Docs: initial docs for compiler.tree.propagation.* vocabs
parent
e2fe5ccfe8
commit
b11e912b44
|
@ -0,0 +1,21 @@
|
|||
USING: compiler.tree help.markup help.syntax sequences ;
|
||||
IN: compiler.tree.propagation.info
|
||||
|
||||
HELP: value-info-state
|
||||
{ $class-description "Represents constraints the compiler knows about the input and output variables to an SSA tree node. It has the following slots:"
|
||||
{ $table
|
||||
{ { $slot "class" } { "Class of values the variable can take." } }
|
||||
{ { $slot "interval" } { "Range of values the variable can take." } }
|
||||
{ { $slot "literal" } { "Literal value, if present." } }
|
||||
{ { $slot "literal?" } { "Whether the value of the variable is known at compile-time or not." } }
|
||||
{ { $slot "slots" } { "If the value is a literal tuple or fixed length type, then slots is a " { $link sequence } " of " { $link value-info-state } " encoding what is known about its slots at compile-time." } }
|
||||
}
|
||||
} ;
|
||||
|
||||
HELP: node-input-infos
|
||||
{ $values { "node" node } { "seq" sequence } }
|
||||
{ $description "Lists the value infos for the input variables of an SSA tree node." } ;
|
||||
|
||||
HELP: node-output-infos
|
||||
{ $values { "node" node } { "seq" sequence } }
|
||||
{ $description "Lists the value infos for the output variables of an SSA tree node." } ;
|
|
@ -0,0 +1,37 @@
|
|||
USING: classes compiler.tree.propagation.info help.markup help.syntax math
|
||||
math.intervals ;
|
||||
IN: compiler.tree.propagation.known-words
|
||||
|
||||
HELP: binary-op-class
|
||||
{ $values { "info1" value-info-state } { "info2" value-info-state } { "newclass" class } }
|
||||
{ $description "Given two value infos return the math class which is large enough for both of them." }
|
||||
{ $examples
|
||||
{ $example
|
||||
"USING: compiler.tree.propagation.known-words compiler.tree.propagation.info math prettyprint ;"
|
||||
"bignum real [ <class-info> ] bi@ binary-op-class ."
|
||||
"real"
|
||||
}
|
||||
} ;
|
||||
|
||||
HELP: unary-op-class
|
||||
{ $values { "info" value-info-state } { "newclass" class } }
|
||||
{ $description "Returns the smallest math class large enough to hold values of the value infos class." }
|
||||
{ $see-also binary-op-class } ;
|
||||
|
||||
HELP: number-valued
|
||||
{ $values
|
||||
{ "class" class } { "interval" interval }
|
||||
{ "class'" class } { "interval'" interval }
|
||||
}
|
||||
{ $description "Ensure that the class is a subclass of " { $link number } "." } ;
|
||||
|
||||
HELP: fits-in-fixnum?
|
||||
{ $values { "interval" interval } { "?" "a boolean" } }
|
||||
{ $description "Checks if the interval is a subset of the " { $link fixnum } " interval. Used to see if arithmetic may overflow." }
|
||||
{ $examples
|
||||
{ $example
|
||||
"USING: compiler.tree.propagation.known-words prettyprint ;"
|
||||
"clear full-interval fits-in-fixnum? ."
|
||||
"f"
|
||||
}
|
||||
} ;
|
|
@ -0,0 +1,6 @@
|
|||
USING: compiler.tree help.markup help.syntax ;
|
||||
IN: compiler.tree.propagation.nodes
|
||||
|
||||
HELP: annotate-node
|
||||
{ $values { "node" node } }
|
||||
{ $description "Initializes the info slot for SSA tree nodes that have it." } ;
|
|
@ -0,0 +1,50 @@
|
|||
USING: help.markup help.syntax literals multiline ;
|
||||
IN: compiler.tree.propagation
|
||||
|
||||
STRING: propagate-ex
|
||||
USING: compiler.tree.builder compiler.tree.propagation math prettyprint ;
|
||||
[ 3 + ] build-tree propagate third .
|
||||
T{ #call
|
||||
{ word + }
|
||||
{ in-d V{ 9450187 9450186 } }
|
||||
{ out-d { 9450188 } }
|
||||
{ info
|
||||
H{
|
||||
{
|
||||
9450186
|
||||
T{ value-info-state
|
||||
{ class fixnum }
|
||||
{ interval
|
||||
T{ interval
|
||||
{ from ~array~ }
|
||||
{ to ~array~ }
|
||||
}
|
||||
}
|
||||
{ literal 3 }
|
||||
{ literal? t }
|
||||
}
|
||||
}
|
||||
{
|
||||
9450187
|
||||
T{ value-info-state
|
||||
{ class object }
|
||||
{ interval full-interval }
|
||||
}
|
||||
}
|
||||
{
|
||||
9450188
|
||||
T{ value-info-state
|
||||
{ class number }
|
||||
{ interval full-interval }
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
;
|
||||
|
||||
HELP: propagate
|
||||
{ $values { "nodes" "a sequence of nodes" } }
|
||||
{ $description "Performs the propagation pass of the AST optimization. All nodes info slots are initialized here." }
|
||||
{ $examples { $unchecked-example $[ propagate-ex ] }
|
||||
} ;
|
Loading…
Reference in New Issue