From ebb93c6d58ab087c581948acfc054e91a02047f9 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 26 Sep 2020 21:58:47 -0700 Subject: 6870 Emit a stack of not ints but more complex objects containing the int payload. Function calls again segfaulting. --- apps/tile/main.mu | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'apps/tile/main.mu') diff --git a/apps/tile/main.mu b/apps/tile/main.mu index afefc4b5..8d44ba80 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -67,24 +67,24 @@ fn repl { var env-storage: environment var env/esi: (addr environment) <- address env-storage initialize-environment env - var stack-storage: int-stack - var stack/edi: (addr int-stack) <- address stack-storage - initialize-int-stack stack, 0x10 + var stack-storage: value-stack + var stack/edi: (addr value-stack) <- address stack-storage + initialize-value-stack stack, 0x10 print-string-to-real-screen "> " $repl:loop: { var key/eax: grapheme <- read-key-from-real-keyboard print-grapheme-to-real-screen key compare key, 4 # ctrl-d break-if-= - compare key, 0xa # 'q' + compare key, 0xa # newline { break-if-!= evaluate-environment env, stack - var empty?/eax: boolean <- int-stack-empty? stack + var empty?/eax: boolean <- value-stack-empty? stack { compare empty?, 0 # false break-if-!= - var result/eax: int <- pop-int-stack stack + var result/eax: int <- pop-int-from-value-stack stack print-int32-decimal-to-real-screen result print-string-to-real-screen "\n" } -- cgit 1.4.1-2-gfad0