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

Fixed Forth's Stack Leak

This commit is contained in:
Jeremiah Orians 2017-06-16 16:19:45 -04:00
parent 6c1c1cf0e3
commit 77795c669c
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.org
View File

@ -32,6 +32,7 @@ Stack offset bug in stage2 forth was found and fixed by reepca in record time
Fixed 2DUP and ?DUP in stage2 forth
Swapped TRUE and FALSE values in stage2 forth to match http://lars.nocrew.org/dpans/dpans3.htm#3.1.3
Adjusted order of comparisions to better match ans
Stack leak in stage2 forth found and corrected
** Removed
Removed need for sponge to be used to run webIDE

6
stage2/forth.s
View File

@ -1250,6 +1250,8 @@
:Interpret_Code
CALLI R15 @Word_Direct ; Get the Word
POPR R0 R14 ; Remove Length
CMPSKIPI.NE R0 0 ; If Nothing read
JUMP @Interpret_Cleanup ; Cleanup
POPR R0 R14 ; Remove Pointer
PUSHR R0 R14 ; Protect Pointer
PUSHR R0 R14 ; Put Pointer
@ -1288,6 +1290,10 @@
PUSHR R0 R8 ; Append Immediate to HEAP
JSR_COROUTINE R11 ; NEXT
:Interpret_Cleanup
POPR R0 R14 ; Remove Pointer
JSR_COROUTINE R11 ; NEXT
;; Cold done function
;; Reads Tape_01 until EOF
;; Then switches into TTY Mode