diff options
| -rw-r--r-- | apps/mu.subx | 92 |
1 files changed, 70 insertions, 22 deletions
diff --git a/apps/mu.subx b/apps/mu.subx index 9bae9353..eeea17a3 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -12354,7 +12354,8 @@ $operand-matches-primitive?:var-register-no-match: $operand-matches-primitive?:wildcard-no-match: # if string contents aren't equal, return false (string-equal? %ecx %ebx) # => eax - 75/jump-if-!= $operand-matches-primitive?:return-false/disp8 + 3d/compare-eax-and 0/imm32/false + 74/jump-if-= $operand-matches-primitive?:return-false/disp8 } } $operand-matches-primitive?:return-true: @@ -14112,46 +14113,93 @@ test-compare-eax-with-literal: # setup (clear-stream _test-output-stream) (clear-stream $_test-output-buffered-file->buffer) - # var type/ecx: (handle tree type-id) = int - 68/push 0/imm32/right/null - 68/push 1/imm32/left/int - 68/push 1/imm32/is-atom +$test-compare-eax-with-literal:initialize-type: + # var type/ecx: (payload tree type-id) = int + 68/push 0/imm32/right:null + 68/push 0/imm32/right:null + 68/push 0/imm32/left:unused + 68/push 1/imm32/value:int + 68/push 1/imm32/is-atom?:true + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %ecx 4/r32/esp - # var var-var1/ecx: var in eax - 68/push "eax"/imm32/register +$test-compare-eax-with-literal:initialize-var1: + # var var1/ecx: (payload var) + 68/push 0/imm32/register + 68/push 0/imm32/register 68/push 0/imm32/no-stack-offset 68/push 1/imm32/block-depth 51/push-ecx - 68/push "var1"/imm32 + 68/push 0x11/imm32/alloc-id:fake + 68/push 0/imm32/name + 68/push 0/imm32/name + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %ecx 4/r32/esp - # var type/edx: (handle tree type-id) = literal - 68/push 0/imm32/right/null - 68/push 0/imm32/left/literal +$test-compare-eax-with-literal:initialize-var1-name: + # var1->name = "var1" + 8d/copy-address *(ecx+4) 0/r32/eax # Var-name + 4 + (copy-array Heap "var1" %eax) +$test-compare-eax-with-literal:initialize-var1-register: + # v->register = "eax" + 8d/copy-address *(ecx+0x1c) 0/r32/eax # Var-register + 4 + (copy-array Heap "eax" %eax) +$test-compare-eax-with-literal:initialize-literal-type: + # var type/edx: (payload tree type-id) = literal + 68/push 0/imm32/right:null + 68/push 0/imm32/right:null + 68/push 0/imm32/left:unused + 68/push 0/imm32/value:literal + 68/push 1/imm32/is-atom?:true + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %edx 4/r32/esp - # var var-var2/edx: var literal - 68/push 0/imm32/no-register +$test-compare-eax-with-literal:initialize-literal: + # var l/edx: (payload var) + 68/push 0/imm32/register + 68/push 0/imm32/register 68/push 0/imm32/no-stack-offset 68/push 1/imm32/block-depth 52/push-edx - 68/push "0x34"/imm32 + 68/push 0x11/imm32/alloc-id:fake + 68/push 0/imm32/name + 68/push 0/imm32/name + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %edx 4/r32/esp - # var inouts/esi: (handle stmt-var) = [var2] +$test-compare-eax-with-literal:initialize-literal-value: + # l->name = "0x34" + 8d/copy-address *(edx+4) 0/r32/eax # Var-name + 4 + (copy-array Heap "0x34" %eax) +$test-compare-eax-with-literal:initialize-inouts: + # var inouts/esi: (payload stmt-var) = [l] 68/push 0/imm32/is-deref:false 68/push 0/imm32/next - 52/push-edx/var-var2 + 68/push 0/imm32/next + 52/push-edx/l + 68/push 0x11/imm32/alloc-id:fake + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %esi 4/r32/esp - # inouts = [var1, var2] + # var inouts = (handle stmt-var) = [var1, var2] 68/push 0/imm32/is-deref:false 56/push-esi/next - 51/push-ecx/var-var1 + 68/push 0x11/imm32/alloc-id:fake + 51/push-ecx/var1 + 68/push 0x11/imm32/alloc-id:fake + 68/push 0x11/imm32/alloc-id:fake:payload 89/<- %esi 4/r32/esp - # var stmt/esi: statement +$test-compare-eax-with-literal:initialize-stmt: + # var stmt/esi: (addr statement) 68/push 0/imm32/next - 68/push 0/imm32/no-outputs + 68/push 0/imm32/next + 68/push 0/imm32/outputs + 68/push 0/imm32/outputs 56/push-esi/inouts - 68/push "compare"/imm32/operation - 68/push 1/imm32/regular-stmt + 68/push 0x11/imm32/alloc-id:fake + 68/push 0/imm32/operation + 68/push 0/imm32/operation + 68/push 1/imm32/tag:stmt1 89/<- %esi 4/r32/esp +$test-compare-eax-with-literal:initialize-stmt-operation: + # stmt->operation = "compare" + 8d/copy-address *(esi+4) 0/r32/eax # Stmt1-operation + (copy-array Heap "compare" %eax) # convert c7 0/subop/copy *Curr-block-depth 0/imm32 (emit-subx-stmt _test-output-buffered-file %esi Primitives) |