about summary refs log tree commit diff stats
path: root/apps
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-11-17 09:25:17 -0800
committerKartik Agaram <vc@akkartik.com>2020-11-17 09:25:17 -0800
commit789c0ac05a909328e98cbe2cf85734910d09f83d (patch)
tree495fc4eaf72c85e16676b526e4bf8f21b3d20c37 /apps
parente3349a169c627d2dbbc6bd28986ec79480c42388 (diff)
downloadmu-789c0ac05a909328e98cbe2cf85734910d09f83d.tar.gz
7256
Diffstat (limited to 'apps')
-rw-r--r--apps/mu.subx12
1 files changed, 6 insertions, 6 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index e8822f75..13fff705 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -26872,13 +26872,13 @@ $translate-mu-index-stmt:end:
     5d/pop-to-ebp
     c3/return
 
-$translate-mu-index-stmt-with-array:error1:
+$translate-mu-index-stmt:error1:
     (write-buffered *(ebp+0x14) "couldn't translate an index instruction. second (index) input must either lie in a register or be a literal\n")
     (flush *(ebp+0x14))
     (stop *(ebp+0x18) 1)
     # never gets here
 
-$translate-mu-index-stmt-with-array:error2:
+$translate-mu-index-stmt:error2:
     (write-buffered *(ebp+0x14) "couldn't translate an index instruction. second (index) input when in a register must be an int or offset\n")
     (flush *(ebp+0x14))
     (stop *(ebp+0x18) 1)
@@ -26940,7 +26940,7 @@ $translate-mu-index-stmt-with-array-in-register:emit-int-register-index:
       # if index->type is any other atom, abort
       (lookup *(edx+8) *(edx+0xc))  # Var-type Var-type => eax
       81 7/subop/compare *eax 0/imm32/false  # Type-tree-is-atom
-      0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32
+      0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32
       # if index has type (offset ...)
       (lookup *(eax+4) *(eax+8))  # Type-tree-left Type-tree-left => eax
       (is-simple-mu-type? %eax 7)  # => eax
@@ -26979,7 +26979,7 @@ $translate-mu-index-stmt-with-array-in-register:emit-literal-index:
       e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32
     }
     # otherwise abort
-    e9/jump $translate-mu-index-stmt-with-array:error1/disp32
+    e9/jump $translate-mu-index-stmt:error1/disp32
 $translate-mu-index-stmt-with-array-in-register:emit-output:
     # outputs[0] "/r32"
     8b/-> *(ebp+0xc) 1/r32/ecx
@@ -27057,7 +27057,7 @@ $translate-mu-index-stmt-with-array-on-stack:emit-int-register-index:
       # if index->type is any other atom, abort
       (lookup *(edx+8) *(edx+0xc))  # Var-type Var-type => eax
       81 7/subop/compare *eax 0/imm32/false  # Type-tree-is-atom
-      0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32
+      0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32
       # if index has type (offset ...)
       (lookup *(eax+4) *(eax+8))  # Type-tree-left Type-tree-left => eax
       (is-simple-mu-type? %eax 7)  # => eax
@@ -27098,7 +27098,7 @@ $translate-mu-index-stmt-with-array-on-stack:emit-literal-index:
       e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32
     }
     # otherwise abort
-    e9/jump $translate-mu-index-stmt-with-array:error1/disp32
+    e9/jump $translate-mu-index-stmt:error1/disp32
 $translate-mu-index-stmt-with-array-on-stack:emit-output:
     # outputs[0] "/r32"
     8b/-> *(ebp+0xc) 0/r32/eax