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

diff --git a/basis/compiler/cfg/cfg-docs.factor b/basis/compiler/cfg/cfg-docs.factor
index 67e3a81254efc650dde46729498c9e83d3cbde08..8fd27be9df4d9fa1a831c9da45685d9c9d8010fe 100644 (file)
--- a/basis/compiler/cfg/cfg-docs.factor
+++ b/basis/compiler/cfg/cfg-docs.factor
@@ -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 "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 "unlikely?" } { "Unused boolean slot." } }
   }
 } ;
 

diff --git a/basis/compiler/cfg/cfg.factor b/basis/compiler/cfg/cfg.factor
index 8cb56f563949358439859fa5f8d5113351a29be5..6628ce0aae94c6c94df54fce57ea965418acb58f 100644 (file)
--- a/basis/compiler/cfg/cfg.factor
+++ b/basis/compiler/cfg/cfg.factor
@@ -9,8 +9,7 @@ number
 { instructions vector }
 { successors vector }
 { predecessors vector }
-{ kill-block? boolean }
-{ unlikely? boolean } ;
+{ kill-block? boolean } ;
 
 : <basic-block> ( -- bb )
     basic-block new

diff --git a/basis/compiler/cfg/gc-checks/gc-checks.factor b/basis/compiler/cfg/gc-checks/gc-checks.factor
index 48350878981d85e1251f9ad30cb88fb0f55b468c..280678c3886475ab7c51cf8da836eeb0d8e5b800 100644 (file)
--- a/basis/compiler/cfg/gc-checks/gc-checks.factor
+++ b/basis/compiler/cfg/gc-checks/gc-checks.factor
@@ -77,7 +77,7 @@ M: ##box-displaced-alien allocation-size* drop 5 cells ;
 : <gc-call> ( -- bb )
     <basic-block>
     [ <gc-map> ##call-gc, ##branch, ] V{ } make
-    >>instructions t >>unlikely? ;
+    >>instructions ;
 
 :: connect-gc-checks ( bbs -- )
     ! Every basic block but the last has two successors:

diff --git a/basis/compiler/cfg/linearization/linearization.factor b/basis/compiler/cfg/linearization/linearization.factor
index f8dcd831bd52a958b84f31e08746b4c07cf69adb..c1b60a5017b8558d5c66a2c9b6bb1deb67628cd0 100644 (file)
--- a/basis/compiler/cfg/linearization/linearization.factor
+++ b/basis/compiler/cfg/linearization/linearization.factor
@@ -67,9 +67,7 @@ SYMBOLS: work-list loop-heads visited ;
 : (linearization-order) ( cfg -- bbs )
     init-linearization-order
 
-    [ work-list get [ process-block ] slurp-deque ] { } make
-    ! [ unlikely?>> not ] partition append
-    ;
+    [ work-list get [ process-block ] slurp-deque ] { } make ;
 
 PRIVATE>