2008-10-22 19:37:47 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: kernel namespaces assocs accessors ;
|
|
|
|
|
IN: compiler.cfg.copy-prop
|
|
|
|
|
|
|
|
|
|
SYMBOL: copies
|
|
|
|
|
|
|
|
|
|
: resolve ( vreg -- vreg )
|
2009-05-19 18:28:13 -04:00
|
|
|
[ copies get at ] keep or ;
|
2008-10-22 19:37:47 -04:00
|
|
|
|
|
|
|
|
: record-copy ( insn -- )
|
|
|
|
|
[ src>> resolve ] [ dst>> ] bi copies get set-at ; inline
|
