From 2b665cc552a4d98337bfdf87c17390b9dcb9ba9e Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Fri, 27 Dec 2019 23:59:07 -0800
Subject: 5834

Bugfix.
---
 apps/mu.subx | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'apps/mu.subx')

diff --git a/apps/mu.subx b/apps/mu.subx
index e08d609b..79642e08 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -685,7 +685,7 @@ test-convert-function-distinguishes-args:
 
 test-convert-function-returns-result:
     # function writes to output
-    #   fn foo a: int -> result/eax: int {
+    #   fn foo a: int, b: int -> result/eax: int {
     #     result <- copy a
     #     result <- increment
     #   }
@@ -711,7 +711,7 @@ test-convert-function-returns-result:
     (clear-stream _test-output-stream)
     (clear-stream $_test-output-buffered-file->buffer)
     #
-    (write _test-input-stream "fn foo a: int -> result/eax: int {\n")
+    (write _test-input-stream "fn foo a: int, b: int -> result/eax: int {\n")
     (write _test-input-stream "  result <- copy a\n")
     (write _test-input-stream "  result <- increment\n")
     (write _test-input-stream "}\n")
@@ -2395,7 +2395,8 @@ lookup-var-helper:  # name: (address array byte), vars : (address stack (handle
       3d/compare-eax-and 0/imm32
       8b/-> *ebx 0/r32/eax
       75/jump-if-not-equal break/disp8
-      8b/-> *(ebx+4) 3/r32/ebx  # List-next
+      # curr -= 4
+      81 5/subop/subtract %ebx 4/imm32
       e9/jump loop/disp32
     }
 $lookup-var-helper:end:
-- 
cgit 1.4.1-2-gfad0