Fixed a typo

[cc65] / libsrc / common / _heap.s

diff --git a/libsrc/common/_heap.s b/libsrc/common/_heap.s
index 427ecaea1e78c58ca21ba9ba5e5f102f3726c794..30b89b81e3e3d8651408fafa3c6a5ae2112da781 100644 (file)
--- a/libsrc/common/_heap.s
+++ b/libsrc/common/_heap.s
@@ -4,42 +4,38 @@
 ; Heap variables and initialization.
 ;
 
-       .export         __horg, __hptr, __hend, __hfirst, __hlast
-       .export         __hinit
-               .import         __BSS_RUN__, __BSS_SIZE__, __stksize
+               .constructor    initheap, 24
+               .import         __BSS_RUN__, __BSS_SIZE__, __STACKSIZE__
        .importzp       sp
 
+        .include        "_heap.inc"
+
+
 .data
 
-__horg:
+__heaporg:
                .word   __BSS_RUN__+__BSS_SIZE__        ; Linker calculates this symbol
-__hptr:
-       .word   __BSS_RUN__+__BSS_SIZE__        ; Dito
-__hend:
+__heapptr:
+       .word   __BSS_RUN__+__BSS_SIZE__        ; Dito
+__heapend:
                .word   __BSS_RUN__+__BSS_SIZE__
-__hfirst:               
-       .word   0
-__hlast:
-       .word   0
+__heapfirst:
+       .word   0
+__heaplast:
+       .word   0
 
 
-;
-; Initialization. Must be called from startup!
-;
+; Initialization. Will be called from startup!
 
 .code
 
-__hinit:
-       sec
-       lda     sp
-       sbc     __stksize
-       sta     __hend
-       lda     sp+1
-       sbc     __stksize+1
-       sta     __hend+1
+initheap:
+       sec
+       lda     sp
+       sbc     #<__STACKSIZE__
+       sta     __heapend
+       lda     sp+1
+       sbc     #>__STACKSIZE__
+       sta     __heapend+1
        rts
 
-
-
-
-