Some bugfixes to runtime code, probably need to implement stepping debugger
This commit is contained in:
parent
d0d0ca23ec
commit
1c84a9c862
@ -1,3 +1,6 @@
|
|||||||
|
(push main)
|
||||||
|
(jmp)
|
||||||
|
|
||||||
;; Note that this is scheme syntax wrapping asm for a stack machine
|
;; Note that this is scheme syntax wrapping asm for a stack machine
|
||||||
(variable eol 0)
|
(variable eol 0)
|
||||||
(variable scan 0)
|
(variable scan 0)
|
||||||
@ -8,9 +11,6 @@
|
|||||||
(variable new 0)
|
(variable new 0)
|
||||||
(variable root 0)
|
(variable root 0)
|
||||||
|
|
||||||
(push main)
|
|
||||||
(jmp)
|
|
||||||
|
|
||||||
alloc ;; ( -- p)
|
alloc ;; ( -- p)
|
||||||
;; Test if free will go beyond eom
|
;; Test if free will go beyond eom
|
||||||
(ref free)
|
(ref free)
|
||||||
@ -129,7 +129,7 @@ gc-loop
|
|||||||
(<)
|
(<)
|
||||||
(branch gc-loop-done)
|
(branch gc-loop-done)
|
||||||
(ref scan)
|
(ref scan)
|
||||||
(relocate-reg)
|
(push relocate-reg)
|
||||||
(push gc-loop)
|
(push gc-loop)
|
||||||
(jmp)
|
(jmp)
|
||||||
gc-loop-done
|
gc-loop-done
|
||||||
|
Loading…
Reference in New Issue
Block a user