about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-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