18 lines
798 B
Factor
18 lines
798 B
Factor
USING: assocs compiler.cfg.ssa.destruction.leaders help.markup help.syntax
|
|
kernel math sequences ;
|
|
IN: compiler.utilities
|
|
|
|
HELP: compress-path
|
|
{ $values { "source" integer } { "assoc" assoc } { "destination" integer } }
|
|
{ $description "Gets the original definer for a vreg number. Then inserts a direct path from 'source' to that definer. For example if the assoc is " { $code "{ { 1 2 } { 2 3 } { 3 4 } { 4 4 } }" } "then the original definer of 1 is 4. The word is used by " { $link leader } " to figure out what the top leader of a vreg is." } ;
|
|
|
|
HELP: pad-tail-shorter
|
|
{ $values
|
|
{ "seq1" sequence }
|
|
{ "seq2" sequence }
|
|
{ "elt" object }
|
|
{ "seq1'" sequence }
|
|
{ "seq2'" sequence }
|
|
}
|
|
{ $description "Pads the tail of the shorter sequence so that both sequences have the same length." } ;
|