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

compiler.cfg.stacks.uninitialized: use bitand instead of min

db4
Slava Pestov 2009-08-03 06:03:38 -05:00
parent 89305e0bcb
commit 720bfe378f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/stacks/uninitialized/uninitialized.factor
View File

@ -52,7 +52,7 @@ M: insn visit-insn drop ;
: finish ( -- pair ) ds-loc get rs-loc get 2array ; : finish ( -- pair ) ds-loc get rs-loc get 2array ;
: (join-sets) ( seq1 seq2 -- seq ) : (join-sets) ( seq1 seq2 -- seq )
2dup [ length ] bi@ max '[ _ 1 pad-tail ] bi@ [ min ] 2map ; 2dup [ length ] bi@ max '[ _ 1 pad-tail ] bi@ [ bitand ] 2map ;
: (uninitialized-locs) ( seq quot -- seq' ) : (uninitialized-locs) ( seq quot -- seq' )
[ dup length [ drop 0 = ] pusher [ 2each ] dip ] dip map ; inline [ dup length [ drop 0 = ] pusher [ 2each ] dip ] dip map ; inline