about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
Diffstat (limited to 'apps')
-rw-r--r--apps/mu.subx62
1 files changed, 49 insertions, 13 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index 7ece54ae..94070a4b 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -805,27 +805,31 @@ $emit-subx-block:end:
     5d/pop-to-ebp
     c3/return
 
-emit-subx-statement:  # out : (address buffered-file), stmt : (address statement), vars : (address variable), regs : (address array (address variable)), primitives : (address opcode-info), functions : (address function)
+emit-subx-statement:  # out : (address buffered-file), stmt : (address statement), vars : (address variable), primitives : (address opcode-info), functions : (address function)
     # . prologue
     55/push-ebp
     89/<- %ebp 4/r32/esp
     # . save registers
     50/push-eax
     51/push-ecx
-    # if statement doesn't match either a primitive or function, abort
+    # if stmt matches a primitive, emit it
     {
-      # if find-matching-function(primitives, statement) break
-      (find-matching-function *(ebp+0x18) *(ebp+0xc))
+      (find-matching-function *(ebp+0x14) *(ebp+0xc))
       3d/compare-eax-and 0/imm32
-      75/jump-if-not-equal break/disp8
-      # if find-matching-function(functions, statement) break
-      (find-matching-function *(ebp+0x20) *(ebp+0xc))
+      74/jump-if-equal break/disp8
+      (emit-subx-primitive *(ebx+8) *(ebx+0xc) %eax)
+      e9/jump $emit-subx-statement:end/disp32
+    }
+    # else if stmt matches a function, emit a call to it
+    {
+      (find-matching-function *(ebp+0x18) *(ebp+0xc))
       3d/compare-eax-and 0/imm32
-      75/jump-if-not-equal break/disp8
-      # abort
-      e9/jump $emit-subx-statement:abort/disp32
+      74/jump-if-equal break/disp8
+      (emit-subx-call *(ebx+8) *(ebx+0xc) %eax)
+      e9/jump $emit-subx-statement:end/disp32
     }
-    # emit code for stmt according to curr and vars
+    # else abort
+    e9/jump $emit-subx-statement:abort/disp32
 $emit-subx-statement:end:
     # . restore registers
     59/pop-to-ecx
@@ -847,6 +851,38 @@ $emit-subx-statement:abort:
     cd/syscall  0x80/imm8
     # never gets here
 
+emit-subx-primitive:  # out : (address buffered-file), stmt : (address statement), vars : (address variable), primitive : (address function)
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    # . save registers
+    50/push-eax
+    51/push-ecx
+$emit-subx-primitive:end:
+    # . restore registers
+    59/pop-to-ecx
+    58/pop-to-eax
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
+emit-subx-call:  # out : (address buffered-file), stmt : (address statement), vars : (address variable), callee : (address function)
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    # . save registers
+    50/push-eax
+    51/push-ecx
+$emit-subx-call:end:
+    # . restore registers
+    59/pop-to-ecx
+    58/pop-to-eax
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
 find-matching-function:  # functions : (address function), stmt : (address statement) -> result/eax : (address function)
     # . prologue
     55/push-ebp
@@ -951,7 +987,7 @@ test-emit-subx-statement-primitive:
     68/push "increment"/imm32/name
     89/<- %ebx 4/r32/esp
     # convert
-    (emit-subx-statement _test-output-buffered-file %edx %ecx 0 %ebx 0)
+    (emit-subx-statement _test-output-buffered-file %edx %ecx %ebx 0)
     (flush _test-output-buffered-file)
 #?     # dump _test-output-stream {{{
 #?     (write 2 "^")
@@ -1021,7 +1057,7 @@ test-emit-subx-statement-function-call:
     68/push "f"/imm32/name
     89/<- %ebx 4/r32/esp
     # convert
-    (emit-subx-statement _test-output-buffered-file %edx %ecx 0 0 %ebx)
+    (emit-subx-statement _test-output-buffered-file %edx %ecx 0 %ebx)
     (flush _test-output-buffered-file)
 #?     # dump _test-output-stream {{{
 #?     (write 2 "^")