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

compiler.cfg.stacks.local: unused words

db4
Björn Lindqvist 2015-04-28 02:59:04 +02:00 committed by John Benediktsson
parent d0c1493f36
commit 9fc73c3355
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/cfg/stacks/local/local.factor
View File

@ -29,9 +29,6 @@ IN: compiler.cfg.stacks.local
: translate-local-loc ( loc state -- loc' )
[ clone ] dip over >loc< 0 1 ? rot nth first - >>n ;
: untranslate-local-loc ( loc state -- loc' )
[ clone ] dip over >loc< 0 1 ? rot nth first + >>n ;
: clone-height-state ( state -- state' )
[ clone ] map ;
@ -59,11 +56,6 @@ SYMBOLS: local-peek-set replaces ;
: replaces>copy-insns ( replaces -- insns )
[ [ loc>vreg ] dip ] assoc-map parallel-copy ;
: replaces>replace-insns ( replaces height-state -- insns )
[ keys ] dip
'[ [ loc>vreg ] [ _ untranslate-local-loc ] bi f ##replace boa ] map
[ loc>> n>> 0 >= ] filter ;
: changes>insns ( replaces height-state -- insns )
[ replaces>copy-insns ] [ height-state>insns ] bi* append ;