2009-07-10 00:14:26 -04:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: accessors assocs kernel namespaces sequences
|
2009-07-28 12:52:42 -04:00
|
|
|
compiler.cfg.instructions compiler.cfg.registers
|
|
|
|
compiler.cfg.renaming.functor ;
|
2009-07-10 00:14:26 -04:00
|
|
|
IN: compiler.cfg.renaming
|
|
|
|
|
|
|
|
SYMBOL: renamings
|
|
|
|
|
2009-07-28 12:52:42 -04:00
|
|
|
: rename-value ( vreg -- vreg' )
|
|
|
|
renamings get ?at drop ;
|
2009-07-10 00:14:26 -04:00
|
|
|
|
2009-07-29 07:36:14 -04:00
|
|
|
: fresh-value ( vreg -- vreg' )
|
2009-08-07 18:44:50 -04:00
|
|
|
rep>> next-vreg ;
|
2009-07-10 00:14:26 -04:00
|
|
|
|
2009-07-29 07:36:14 -04:00
|
|
|
RENAMING: rename [ rename-value ] [ rename-value ] [ fresh-value ]
|