27 lines
975 B
Factor
27 lines
975 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors assocs fry kernel math
|
|
namespaces compiler.cfg.registers ;
|
|
IN: compiler.cfg.stacks.height
|
|
|
|
! Global stack height tracking done while constructing CFG.
|
|
SYMBOLS: ds-heights rs-heights ;
|
|
|
|
: record-stack-heights ( ds-height rs-height bb -- )
|
|
[ ds-heights get set-at ] [ rs-heights get set-at ] bi-curry bi* ;
|
|
|
|
GENERIC# translate-loc 1 ( loc bb -- loc' )
|
|
|
|
M: ds-loc translate-loc [ n>> ] [ ds-heights get at ] bi* - <ds-loc> ;
|
|
M: rs-loc translate-loc [ n>> ] [ rs-heights get at ] bi* - <rs-loc> ;
|
|
|
|
: translate-locs ( assoc bb -- assoc' )
|
|
'[ [ _ translate-loc ] dip ] assoc-map ;
|
|
|
|
GENERIC# untranslate-loc 1 ( loc bb -- loc' )
|
|
|
|
M: ds-loc untranslate-loc [ n>> ] [ ds-heights get at ] bi* + <ds-loc> ;
|
|
M: rs-loc untranslate-loc [ n>> ] [ rs-heights get at ] bi* + <rs-loc> ;
|
|
|
|
: untranslate-locs ( assoc bb -- assoc' )
|
|
'[ [ _ untranslate-loc ] dip ] assoc-map ; |