compiler.cfg.gvn: fix special vreg insn handling

diff --git a/extra/compiler/cfg/gvn/gvn.factor b/extra/compiler/cfg/gvn/gvn.factor
index c51b7defb01da9324cf163b7e9e32e5f870cf29d..1ce57aeb31c41207fc81d3c95cb658bee4e25102 100644 (file)
--- a/extra/compiler/cfg/gvn/gvn.factor
+++ b/extra/compiler/cfg/gvn/gvn.factor
@@ -33,8 +33,10 @@ GENERIC: value-number ( insn -- )
 
 M: array value-number [ value-number ] each ;
 
-M: alien-call-insn value-number drop ;
-M: ##callback-inputs value-number drop ;
+: record-defs ( insn -- ) defs-vregs [ dup set-vn ] each ;
+
+M: alien-call-insn value-number record-defs ;
+M: ##callback-inputs value-number record-defs ;
 
 M: ##copy value-number [ src>> vreg>vn ] [ dst>> ] bi set-vn ;