Correct for the fact you will run out of stack space before you run out of CONS Cells in only 2MB of ram
This commit is contained in:
parent
ec8695a4fc
commit
8727b3fb1c
|
@ -7,9 +7,9 @@
|
||||||
;; FREE = 1, MARKED = (1 << 1),INT = (1 << 2),SYM = (1 << 3),
|
;; FREE = 1, MARKED = (1 << 1),INT = (1 << 2),SYM = (1 << 3),
|
||||||
;; CONS = (1 << 4),PROC = (1 << 5),PRIMOP = (1 << 6),ASCII = (1 << 7)
|
;; CONS = (1 << 4),PROC = (1 << 5),PRIMOP = (1 << 6),ASCII = (1 << 7)
|
||||||
|
|
||||||
;; CONS space: End of program -> 1.5MB (0x180000)
|
;; CONS space: End of program -> 1MB (0x100000)
|
||||||
;; HEAP space: 1.5MB -> 1.75MB (0x1C0000)
|
;; HEAP space: 1MB -> 1.5MB (0x180000)
|
||||||
;; STACK space: 1.75MB -> End of Memory (2MB (0x200000))
|
;; STACK space: 1.5MB -> End of Memory (2MB (0x200000))
|
||||||
|
|
||||||
;; Start function
|
;; Start function
|
||||||
:start
|
:start
|
||||||
|
@ -48,7 +48,7 @@
|
||||||
HALT ; If broken get the fuck out now
|
HALT ; If broken get the fuck out now
|
||||||
|
|
||||||
:stack_start
|
:stack_start
|
||||||
'001C0000'
|
'00180000'
|
||||||
|
|
||||||
;; Append_Cell
|
;; Append_Cell
|
||||||
;; Adds a cell to the end of a CDR chain
|
;; Adds a cell to the end of a CDR chain
|
||||||
|
@ -405,7 +405,7 @@
|
||||||
;; Our static value for malloc pointer
|
;; Our static value for malloc pointer
|
||||||
;; Starting at 64KB
|
;; Starting at 64KB
|
||||||
:malloc_pointer
|
:malloc_pointer
|
||||||
'00180000'
|
'00100000'
|
||||||
|
|
||||||
|
|
||||||
;; Switch_Input
|
;; Switch_Input
|
||||||
|
@ -2340,7 +2340,7 @@
|
||||||
|
|
||||||
;; gc_block_end
|
;; gc_block_end
|
||||||
:gc_block_end
|
:gc_block_end
|
||||||
'00160000'
|
'000FFFF0'
|
||||||
|
|
||||||
|
|
||||||
;; reclaim_marked
|
;; reclaim_marked
|
||||||
|
|
Loading…
Reference in New Issue