about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--apps/mu.subx6
1 files changed, 2 insertions, 4 deletions
diff --git a/apps/mu.subx b/apps/mu.subx
index 2e60edf5..a1d9dcf2 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -8318,8 +8318,7 @@ $translate-mu-index-stmt-with-array-in-register:emit-int-register-index:
         e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32
       }
       # if index->type is any other atom, abort
-      # TODO
-      8b/-> *(edx+4) 0/r32/eax  # Var-type
+      (lookup *(edx+8) *(edx+0xc))  # Var-type Var-type => eax
       81 7/subop/compare *eax 0/imm32/false  # Tree-is-atom
       0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32
       # if index has type (offset ...)
@@ -8428,8 +8427,7 @@ $translate-mu-index-stmt-with-array-on-stack:emit-int-register-index:
         e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32
       }
       # if index->type is any other atom, abort
-      # TODO
-      8b/-> *(edx+4) 0/r32/eax  # Var-type
+      (lookup *(edx+8) *(edx+0xc))  # Var-type Var-type => eax
       81 7/subop/compare *eax 0/imm32/false  # Tree-is-atom
       0f 85/jump-if-!= $translate-mu-index-stmt-with-array:error2/disp32
       # if index has type (offset ...)