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

compiler.cfg: unlikely? slot unused, lets get rid of it

db4
Björn Lindqvist 2015-03-02 09:29:33 +00:00 committed by John Benediktsson
parent bb504b7c3d
commit 74ea76a3c9
4 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/compiler/cfg/cfg-docs.factor
View File

@ -10,7 +10,6 @@ HELP: basic-block
{ { $slot "successors" } { "A " { $link vector } " of basic blocks that may be executed directly after this block. Most blocks only have one successor but a block that checks where an if-condition should branch to would have two for example." } } { { $slot "successors" } { "A " { $link vector } " of basic blocks that may be executed directly after this block. Most blocks only have one successor but a block that checks where an if-condition should branch to would have two for example." } }
{ { $slot "predecessors" } { "The opposite of successors -- a " { $link vector } " of basic blocks from which the execution may have arrived into this block." } } { { $slot "predecessors" } { "The opposite of successors -- a " { $link vector } " of basic blocks from which the execution may have arrived into this block." } }
{ { $slot "instructions" } { "A " { $link vector } " of " { $link insn } " tuples which form the instructions of the basic block." } } { { $slot "instructions" } { "A " { $link vector } " of " { $link insn } " tuples which form the instructions of the basic block." } }
{ { $slot "unlikely?" } { "Unused boolean slot." } }
} }
} ; } ;

3
basis/compiler/cfg/cfg.factor
View File

@ -9,8 +9,7 @@ number
{ instructions vector } { instructions vector }
{ successors vector } { successors vector }
{ predecessors vector } { predecessors vector }
{ kill-block? boolean } { kill-block? boolean } ;
{ unlikely? boolean } ;
: <basic-block> ( -- bb ) : <basic-block> ( -- bb )
basic-block new basic-block new

2
basis/compiler/cfg/gc-checks/gc-checks.factor
View File

@ -77,7 +77,7 @@ M: ##box-displaced-alien allocation-size* drop 5 cells ;
: <gc-call> ( -- bb ) : <gc-call> ( -- bb )
<basic-block> <basic-block>
[ <gc-map> ##call-gc, ##branch, ] V{ } make [ <gc-map> ##call-gc, ##branch, ] V{ } make
>>instructions t >>unlikely? ; >>instructions ;
:: connect-gc-checks ( bbs -- ) :: connect-gc-checks ( bbs -- )
! Every basic block but the last has two successors: ! Every basic block but the last has two successors:

4
basis/compiler/cfg/linearization/linearization.factor
View File

@ -67,9 +67,7 @@ SYMBOLS: work-list loop-heads visited ;
: (linearization-order) ( cfg -- bbs ) : (linearization-order) ( cfg -- bbs )
init-linearization-order init-linearization-order
[ work-list get [ process-block ] slurp-deque ] { } make [ work-list get [ process-block ] slurp-deque ] { } make ;
! [ unlikely?>> not ] partition append
;
PRIVATE> PRIVATE>