package ocaml-base-compiler
Representation of projections from closures and blocks.
type project_closure = {
set_of_closures : Variable.t;
(*must yield a set of closures
*)closure_id : Closure_id.t;
}
The selection of one closure given a set of closures, required before a function defined by said set of closures can be applied. See more detailed documentation below on set_of_closures
.
type move_within_set_of_closures = {
closure : Variable.t;
(*must yield a closure
*)start_from : Closure_id.t;
move_to : Closure_id.t;
}
The selection of one closure given another closure in the same set of closures. See more detailed documentation below on set_of_closures
. The move_to
closure must be part of the free variables of start_from
.
type project_var = {
closure : Variable.t;
(*must yield a closure
*)closure_id : Closure_id.t;
var : Var_within_closure.t;
}
The selection from a closure of a variable bound by said closure. In other words, access to a function's environment. Also see more detailed documentation below on set_of_closures
.
val print_project_closure : Format.formatter -> project_closure -> unit
val print_move_within_set_of_closures :
Format.formatter ->
move_within_set_of_closures ->
unit
val print_project_var : Format.formatter -> project_var -> unit
val compare_project_var : project_var -> project_var -> int
val compare_project_closure : project_closure -> project_closure -> int
val compare_move_within_set_of_closures :
move_within_set_of_closures ->
move_within_set_of_closures ->
int
type t =
| Project_var of project_var
| Project_closure of project_closure
| Move_within_set_of_closures of move_within_set_of_closures
| Field of int * Variable.t
include Identifiable.S with type t := t
module T : Identifiable.Thing with type t = t
include Identifiable.Thing with type t := T.t
include Hashtbl.HashedType with type t := T.t
val hash : T.t -> int
A hashing function on keys. It must be such that if two keys are equal according to equal
, then they have identical hash values as computed by hash
. Examples: suitable (equal
, hash
) pairs for arbitrary key types include
- (
(=)
,Hashtbl.hash
) for comparing objects by structure (provided objects do not contain floats) - (
(fun x y -> compare x y = 0)
,Hashtbl.hash
) for comparing objects by structure and handlingPervasives.nan
correctly - (
(==)
,Hashtbl.hash
) for comparing objects by physical equality (e.g. for mutable or cyclic objects).
include Map.OrderedType with type t := T.t
A total ordering function over the keys. This is a two-argument function f
such that f e1 e2
is zero if the keys e1
and e2
are equal, f e1 e2
is strictly negative if e1
is smaller than e2
, and f e1 e2
is strictly positive if e1
is greater than e2
. Example: a suitable ordering function is the generic structural comparison function Pervasives.compare
.
val output : Pervasives.out_channel -> T.t -> unit
val print : Format.formatter -> T.t -> unit
module Set : Identifiable.Set with module T := T
module Map : Identifiable.Map with module T := T
module Tbl : Identifiable.Tbl with module T := T
val projecting_from : t -> Variable.t
Return which variable the given projection projects from.
val map_projecting_from : t -> f:(Variable.t -> Variable.t) -> t
Change the variable that the given projection projects from.