compiler.cfg.ssa.detruction: coalesce different representations in more cases

diff --git a/basis/compiler/cfg/ssa/destruction/destruction.factor b/basis/compiler/cfg/ssa/destruction/destruction.factor
index eea64eec0715c60dd07aba877798857eeac10d2e..ff174bc7130b861fc0a46e2d67233c24897dcd24 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/destruction.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction.factor
@@ -82,7 +82,7 @@ M: insn prepare-insn
         [ defs-vreg ] [ uses-vregs ] bi
         2dup empty? not and [
             first
-            2dup [ rep-of ] bi@ eq?
+            2dup [ rep-of reg-class-of ] bi@ eq?
             [ try-to-coalesce ] [ 2drop ] if
         ] [ 2drop ] if
     ] bi ;