diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-07-24 21:29:20 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-07-24 21:29:20 -0700 |
commit | a4c31549f9555a673b804d9dfa21b8ebfd8862d0 (patch) | |
tree | a696fe741279dc1ecef619c5f4cf8f533b61af33 | |
parent | 511844ffb9c196102961d80e95c751dc051f376b (diff) | |
download | mu-a4c31549f9555a673b804d9dfa21b8ebfd8862d0.tar.gz |
6665
-rw-r--r-- | apps/mu.subx | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/apps/mu.subx b/apps/mu.subx index 378410d3..5cdd9247 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -12401,8 +12401,8 @@ $type-component-match?:compare-addr: 0f 84/jump-if-= $type-component-match?:end/disp32 $type-component-match?:compare-atom-state: # if (def->is-atom? != call->is-atom?) return false - 8b/-> *ecx 3/r32/ebx # Type-tree-value - 39/compare *edx 3/r32/ebx # Type-tree-value + 8b/-> *ecx 3/r32/ebx # Type-tree-is-atom + 39/compare *edx 3/r32/ebx # Type-tree-is-atom b8/copy-to-eax 0/imm32/false 0f 85/jump-if-!= $type-component-match?:end/disp32 # if def->is-atom? return (def->value == call->value) @@ -12657,8 +12657,8 @@ $type-equal?:compare-addr: 0f 84/jump-if-= $type-equal?:end/disp32 $type-equal?:compare-atom-state: # if (a->is-atom? != b->is-atom?) return false - 8b/-> *ecx 3/r32/ebx # Type-tree-value - 39/compare *edx 3/r32/ebx # Type-tree-value + 8b/-> *ecx 3/r32/ebx # Type-tree-is-atom + 39/compare *edx 3/r32/ebx # Type-tree-is-atom b8/copy-to-eax 0/imm32/false 0f 85/jump-if-!= $type-equal?:end/disp32 # if a->is-atom? return (a->value == b->value) |