From 423b2afb91f48cd12b13c1757ccfe85e16eb4119 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 16 Jun 2015 20:38:13 -0700 Subject: [PATCH] compiler.cfg.linear-scan.allocation: fix docs for free-position. --- .../cfg/linear-scan/allocation/allocation-docs.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor b/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor index cf7a5d6bb1..4cc14a1ffa 100644 --- a/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor +++ b/basis/compiler/cfg/linear-scan/allocation/allocation-docs.factor @@ -1,7 +1,7 @@ USING: assocs compiler.cfg compiler.cfg.instructions compiler.cfg.linear-scan.allocation compiler.cfg.linear-scan.allocation.state -compiler.cfg.linear-scan.live-intervals hashtables help.markup help.syntax -kernel sequences ; +compiler.cfg.linear-scan.live-intervals cpu.architecture hashtables help.markup +help.syntax kernel sequences ; IN: compiler.cfg.linear-scan.allocation HELP: (allocate-registers) @@ -25,7 +25,7 @@ HELP: assign-register { $description "Assigns a processor register to the live interval." } ; HELP: free-positions -{ $values { "registers" assoc } { "reg-class" } { "avail-registers" assoc } } +{ $values { "registers" assoc } { "reg-class" { $or int-regs float-regs } } { "avail-registers" assoc } } { $description "Creates an alist mapping registers to their desirability for allocation. 'avail-registers' is an alist and not a " { $link hashtable } " because the register allocation order is significant." } { $see-also register-status } ;