diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor b/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor index 0f3de71a62..e2f43b1ba0 100644 --- 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 7ad4f3a527..a0b538ae84 100644 --- 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 6b30670c56..63181b0c93 100644 --- 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 b7de4f6b7a..196a8c351b 100644 --- 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