steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.stacks.vacant: fix usings and remove commented out code

db4
Björn Lindqvist 2014-08-14 00:11:49 +02:00 committed by Doug Coleman
parent e961a03837
commit 40ee3cdcbb
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/compiler/cfg/stacks/vacant/vacant.factor
View File

@ -1,12 +1,11 @@
USING: accessors arrays byte-arrays classes compiler.cfg.dataflow-analysis USING: accessors arrays byte-arrays compiler.cfg.dataflow-analysis
compiler.cfg.instructions compiler.cfg.registers compiler.cfg.instructions compiler.cfg.registers fry kernel math math.order
formatting fry io kernel math math.order sequences sets ; sequences sets ;
QUALIFIED: sets
IN: compiler.cfg.stacks.vacant IN: compiler.cfg.stacks.vacant
! Operations on the stack info ! Operations on the stack info
: register-write ( n stack -- stack' ) : register-write ( n stack -- stack' )
first2 rot suffix sets:members 2array ; first2 rot suffix members 2array ;
: adjust-stack ( n stack -- stack' ) : adjust-stack ( n stack -- stack' )
first2 pick '[ _ + ] map [ + ] dip 2array ; first2 pick '[ _ + ] map [ + ] dip 2array ;
@ -38,10 +37,6 @@ IN: compiler.cfg.stacks.vacant
: insn>gc-map ( insn -- pair ) : insn>gc-map ( insn -- pair )
gc-map>> [ scrub-d>> ] [ scrub-r>> ] bi 2array ; gc-map>> [ scrub-d>> ] [ scrub-r>> ] bi 2array ;
! : log-gc-map-insn ( state insn -- )
! [ state>gc-map ] [ [ class-of ] [ insn>gc-map ] bi ] bi* rot
! 2dup = not [ "%u: given %u have %u\n" printf ] [ 3drop ] if ;
: insn>location ( insn -- n ds? ) : insn>location ( insn -- n ds? )
loc>> [ n>> ] [ ds-loc? ] bi ; loc>> [ n>> ] [ ds-loc? ] bi ;
@ -76,9 +71,6 @@ M: ##peek visit-insn ( state insn -- state' )
M: gc-map-insn visit-insn ( state insn -- state' ) M: gc-map-insn visit-insn ( state insn -- state' )
dupd set-gc-map [ register-gc ] map ; dupd set-gc-map [ register-gc ] map ;
! gc-map>> swap state>gc-map first2
! [ >>scrub-d ] [ >>scrub-r ] bi* drop ;
! 2dup log-gc-map-insn drop [ register-gc ] map ;
M: insn visit-insn ( state insn -- state' ) M: insn visit-insn ( state insn -- state' )
drop ; drop ;