fix array-indexing in type evaluation mode

src/eval/eval_ir.c

@@ -574,9 +574,12 @@ E_TYPE_ACCESS_FUNCTION_DEF(default)
           
           // rjf: ops to compute the final address
           new_tree = e_irtree_binary_op_u(arena, RDI_EvalOp_Add, offset_tree, base_tree);
+          if(mode != E_Mode_Null)
+          {
             mode = E_Mode_Offset;
           }
         }
+      }
       
       // rjf: fill
       result.root     = new_tree;