106 lines
4.1 KiB
Factor
106 lines
4.1 KiB
Factor
USING: compiler.cfg compiler.cfg.instructions
|
|
compiler.cfg.linear-scan.allocation cpu.architecture help.markup help.syntax
|
|
kernel math sequences ;
|
|
IN: compiler.cfg.linear-scan.live-intervals
|
|
|
|
HELP: <live-interval>
|
|
{ $values
|
|
{ "vreg" "virtual register" }
|
|
{ "live-interval" live-interval-state }
|
|
}
|
|
{ $description "Creates a new live interval for a virtual register. Initially the range is empty." } ;
|
|
|
|
HELP: block-from
|
|
{ $values { "bb" basic-block } { "n" integer } }
|
|
{ $description "The instruction number immediately preceeding this block." } ;
|
|
|
|
HELP: cfg>live-intervals
|
|
{ $values { "cfg" cfg } { "live-intervals" sequence } }
|
|
{ $description "The cfg is traversed in reverse linearization order." } ;
|
|
|
|
HELP: cfg>sync-points
|
|
{ $values { "cfg" cfg } { "sync-points" sequence } }
|
|
{ $description "Creates a sequence of all sync points in the cfg." }
|
|
{ $see-also sync-point } ;
|
|
|
|
HELP: compute-live-intervals
|
|
{ $values { "cfg" cfg } { "intervals/sync-points" sequence } }
|
|
{ $description "Computes the live intervals and sync points of a cfg." }
|
|
{ $notes "The instructions must be numbered." } ;
|
|
|
|
HELP: find-use
|
|
{ $values
|
|
{ "insn#" integer }
|
|
{ "live-interval" live-interval }
|
|
{ "vreg-use/f" vreg-use }
|
|
}
|
|
{ $description "Finds the live intervals " { $link vreg-use } " at the given instruction number, if it has one." } ;
|
|
|
|
HELP: finish-live-intervals
|
|
{ $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
|
|
{ $var-description "An integer representing a sequence number one lower than all numbers in the currently processed block." } ;
|
|
|
|
HELP: intervals-intersect?
|
|
{ $values { "interval1" live-interval } { "interval2" live-interval } { "?" boolean } }
|
|
{ $description "Checks if two live intervals intersect each other." } ;
|
|
|
|
HELP: live-interval-state
|
|
{ $class-description "A class encoding the \"liveness\" of a virtual register. It has the following slots:"
|
|
{ $table
|
|
{ { $slot "vreg" } { "The vreg this live interval state is bound to." } }
|
|
{
|
|
{ $slot "reg" }
|
|
{ "The allocated register, set in the " { $link allocate-registers } " step." }
|
|
}
|
|
{
|
|
{ $slot "spill-rep" }
|
|
{ "Representation the vreg will have when it is spilled." }
|
|
}
|
|
{
|
|
{ $slot "spill-to" }
|
|
{ { $link spill-slot } " to use for spilling, if it needs to be spilled." }
|
|
}
|
|
{ { $slot "start" } { "Earliest insn# where the interval is live." } }
|
|
{ { $slot "end" } { "Latest insn# where the interval is live." } }
|
|
{
|
|
{ $slot "ranges" }
|
|
{ "Inclusive ranges where the live interval is live. This is because the [start,end] interval can have gaps." }
|
|
}
|
|
{
|
|
{ $slot "uses" } { "sequence of insn# numbers which reference insructions that use the register in the live interval." }
|
|
}
|
|
}
|
|
}
|
|
{ $notes "The " { $slot "uses" } " and " { $slot "ranges" } " will never be empty because then the interval would be unused." } ;
|
|
|
|
HELP: live-intervals
|
|
{ $var-description "Mapping from vreg to " { $link live-interval-state } "." } ;
|
|
|
|
HELP: record-temp
|
|
{ $values { "vreg" number } { "n" number } }
|
|
{ $description "Assigns the interval [n,n] to vreg:s live interval." } ;
|
|
|
|
HELP: sync-point
|
|
{ $class-description "A location where all registers have to be spilled. For example when garbage collection is run or an alien ffi call is invoked. Figuring out where in the " { $link cfg } " the sync points are is done in the " { $link compute-live-intervals } " step. The tuple has the following slots:"
|
|
{ $table
|
|
{ { $slot "n" } { "Set from an instructions sequence number." } }
|
|
{ { $slot "keep-dst?" } { "Boolean that determines whether registers are spilled around this sync point." } }
|
|
}
|
|
}
|
|
{ $see-also insn } ;
|
|
|
|
HELP: to
|
|
{ $var-description "An integer representing a sequence number equal to the highest number in the currently processed block." } ;
|
|
|
|
ARTICLE: "compiler.cfg.linear-scan.live-intervals" "Live interval utilities"
|
|
"This vocab contains words for managing live intervals."
|
|
$nl
|
|
"Liveness classes and constructors:"
|
|
{ $subsections <live-interval> live-interval } ;
|
|
|
|
|
|
ABOUT: "compiler.cfg.linear-scan.live-intervals"
|