diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-11-17 09:25:17 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-11-17 09:25:17 -0800 |
| commit | 789c0ac05a909328e98cbe2cf85734910d09f83d (patch) | |
| tree | 495fc4eaf72c85e16676b526e4bf8f21b3d20c37 | |
| parent | e3349a169c627d2dbbc6bd28986ec79480c42388 (diff) | |
| download | mu-789c0ac05a909328e98cbe2cf85734910d09f83d.tar.gz | |
7256
| -rw-r--r-- | apps/mu.subx | 12 |
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 |