about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-05-06 22:58:57 -0700
committerKartik Agaram <vc@akkartik.com>2020-05-18 00:44:48 -0700
commit323006af913f10bf54147a6ac646c284e1ea0742 (patch)
treed86fbc6558fd9df2328e32fdda9b014ac253fd30
parentb101712767a4db8c7c27358d3fae0b290df17f89 (diff)
downloadmu-323006af913f10bf54147a6ac646c284e1ea0742.tar.gz
-
-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 ...)