From e46cfc2e0c053c3dc2ca17e52126a97f29ce618b Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 26 Sep 2020 20:47:52 -0700 Subject: 6867 Segfault fixed. This shouldn't have been so hard. --- apps/tile/rpn.mu | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'apps') diff --git a/apps/tile/rpn.mu b/apps/tile/rpn.mu index 417bc9a0..47383642 100644 --- a/apps/tile/rpn.mu +++ b/apps/tile/rpn.mu @@ -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 -- cgit 1.4.1-2-gfad0 4c41cda4b3a54788160fdfc6d3e3e719'>refs log blame commit diff stats
path: root/html/079emit.subx.html
blob: b98b146c8e2c1b895bac30a735fb6b4a438899ab (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18