andrius
/
stage0
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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:
Jeremiah Orians 2017-02-18 15:45:10 -05:00
parent ec8695a4fc
commit 8727b3fb1c
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
stage2/lisp.s
View File

@ -7,9 +7,9 @@
;; FREE = 1, MARKED = (1 << 1),INT = (1 << 2),SYM = (1 << 3),
;; CONS = (1 << 4),PROC = (1 << 5),PRIMOP = (1 << 6),ASCII = (1 << 7)
;; CONS space: End of program -> 1.5MB (0x180000)
;; HEAP space: 1.5MB -> 1.75MB (0x1C0000)
;; STACK space: 1.75MB -> End of Memory (2MB (0x200000))
;; CONS space: End of program -> 1MB (0x100000)
;; HEAP space: 1MB -> 1.5MB (0x180000)
;; STACK space: 1.5MB -> End of Memory (2MB (0x200000))
;; Start function
:start
@ -48,7 +48,7 @@
HALT ; If broken get the fuck out now
:stack_start
'001C0000'
'00180000'
;; Append_Cell
;; Adds a cell to the end of a CDR chain
@ -405,7 +405,7 @@
;; Our static value for malloc pointer
;; Starting at 64KB
:malloc_pointer
'00180000'
'00100000'
;; Switch_Input
@ -2340,7 +2340,7 @@
;; gc_block_end
:gc_block_end
'00160000'
'000FFFF0'
;; reclaim_marked