compiler.cfg.ssa.destruction: alien-call-insns are too hairy to coalesce (issue #22)

diff --git a/basis/compiler/cfg/ssa/destruction/destruction.factor b/basis/compiler/cfg/ssa/destruction/destruction.factor
index 4da2e1db28bf6349c313bef3eb0c14439fa9512c..0d1f5d968f02eaa10656426100c1bce8f9bcd656 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/destruction.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction.factor
@@ -74,6 +74,8 @@ GENERIC: prepare-insn ( insn -- )
 
 M: insn prepare-insn drop ;
 
+M: alien-call-insn prepare-insn drop ;
+
 M: vreg-insn prepare-insn
     [ temp-vregs [ leader-map get conjoin ] each ]
     [