about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xapps/mubin369145 -> 369174 bytes
-rw-r--r--apps/mu.subx7
2 files changed, 7 insertions, 0 deletions
diff --git a/apps/mu b/apps/mu
index 04eefef8..336596d1 100755
--- a/apps/mu
+++ b/apps/mu
Binary files differdiff --git a/apps/mu.subx b/apps/mu.subx
index 912b2b1f..f1fc3ed7 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -12895,6 +12895,13 @@ $type-component-match?:compare-addr:
     39/compare %edx 0/r32/eax  # Var-type
     b8/copy-to-eax 1/imm32/true
     0f 84/jump-if-= $type-component-match?:end/disp32
+    # if (def == 0) return false
+    b8/copy-to-eax 0/imm32/false
+    81 7/subop/compare %ecx 0/imm32  # Type-tree-is-atom
+    0f 84/jump-if-= $type-component-match?:end/disp32
+    # if (call == 0) return false
+    81 7/subop/compare %edx 0/imm32  # Type-tree-is-atom
+    0f 84/jump-if-= $type-component-match?:end/disp32
     # if def is a type parameter, just check in type-parameters
     {
 $type-component-match?:check-type-parameter: