compiler.cfg.linear-scan.*: fix help-lint errors

diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor b/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor
index 0f3de71a623d12ce249cb2c839f4ec5d4752ea92..e2f43b1ba0ee455b5bbb9a6d16a9d6e31e90a5b5 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor
@@ -9,8 +9,7 @@ HELP: (allocate-registers)
 
 HELP: allocate-registers
 { $values
-  { "live-intervals" sequence }
-  { "sync-point" sequence }
+  { "intervals/sync-points" sequence }
   { "registers" assoc }
   { "live-intervals'" sequence }
 }

diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation.factor b/basis/compiler/cfg/linear-scan/allocation/allocation.factor
index 7ad4f3a52775e16de9039ae23d6699a9dc7d2ccc..a0b538ae846573ce2cd145fd56ca86d75b19767d 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/allocation.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/allocation.factor
@@ -63,6 +63,6 @@ M: sync-point handle ( sync-point -- )
     handled-intervals get
     active-intervals inactive-intervals [ get values concat ] bi@ 3append ;
 
-: allocate-registers ( intervals/sync-point registers -- live-intervals' )
+: allocate-registers ( intervals/sync-points registers -- live-intervals' )
     init-allocator unhandled-min-heap get (allocate-registers)
     gather-intervals ;

diff --git a/basis/compiler/cfg/linear-scan/allocation/state/state-docs.factor b/basis/compiler/cfg/linear-scan/allocation/state/state-docs.factor
index 6b30670c563c453fd02d5257080a5a5ed7946632..63181b0c939f49fc76392690079d2e07e5eb2638 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/state/state-docs.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/state/state-docs.factor
@@ -50,8 +50,7 @@ HELP: inactive-intervals
 
 HELP: init-allocator
 { $values
-  { "live-intervals" { $link sequence } " of " { $link live-interval-state } }
-  { "sync-points" { $link sequence } " of " { $link sync-point } }
+  { "intervals/sync-points" { $link sequence } " of " { $link live-interval-state } " and " { $link sync-point } "." }
   { "registers" { $link assoc } " mapping from register class to available machine registers." }
 }
 { $description "Initializes the state for the register allocator." }

diff --git a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals-docs.factor b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals-docs.factor
index b7de4f6b7a24778e17df15119c78be1d88f17a15..196a8c351b3b47fcb129a30cd3ac99408f1b481a 100644 (file)
--- a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals-docs.factor
+++ b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals-docs.factor
@@ -16,7 +16,7 @@ HELP: block-from
 { $description "The instruction number immediately preceeding this block." } ;
 
 HELP: finish-live-intervals
-{ $values { "live-intervals" sequence } { "seq" sequence } }
+{ $values { "live-intervals" sequence } }
 { $description "Since live intervals are computed in a backward order, we have to reverse some sequences, and compute the start and end." } ;
 
 HELP: from