akkartik/mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

6867

Browse Source 
Segfault fixed. This shouldn't have been so hard.
This commit is contained in:
Kartik Agaram 2020-09-26 20:47:52 -07:00
parent 42349345f4
commit e46cfc2e0c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
apps/tile/rpn.mu
View File

@ -11,6 +11,8 @@ fn evaluate defs: (addr handle function), bindings: (addr table), scratch: (addr
break-if-=
# update curr-text
emit-word curr, curr-text
#? print-stream-to-real-screen curr-text
#? print-string-to-real-screen "\n"
$evaluate:process-word: {
# if curr-text is an operator, perform it
{
@ -127,9 +129,10 @@ fn perform-call _callee: (addr function), caller-stack: (addr int-stack), defs:
# perform call
var stack-storage: int-stack
var stack/edi: (addr int-stack) <- address stack-storage
print-string-to-real-screen "about to enter recursive eval\n"
initialize-int-stack stack, 0x10
#? print-string-to-real-screen "about to enter recursive eval\n"
evaluate defs, table, body, 0, stack
print-string-to-real-screen "exited recursive eval\n"
#? print-string-to-real-screen "exited recursive eval\n"
# stitch result from stack into caller
var result/eax: int <- pop-int-stack stack
push-int-stack caller-stack, result