Alias_analysistype allocated_const = | Normal of Allocated_const.t| Array of Lambda.array_kind * Asttypes.mutable_flag * Variable.t list| Duplicate_array of Lambda.array_kind * Asttypes.mutable_flag * Variable.ttype constant_defining_value = | Allocated_const of allocated_const| Block of Tag.t * Variable.t list| Set_of_closures of Flambda.set_of_closures| Project_closure of Flambda.project_closure| Move_within_set_of_closures of Flambda.move_within_set_of_closures| Project_var of Flambda.project_var| Field of Variable.t * int| Symbol_field of Symbol.t * int| Const of Flambda.const| Symbol of Symbol.t| Variable of Variable.ttype initialize_symbol_field = Variable.t optionval run :
constant_defining_value Variable.Tbl.t ->
initialize_symbol_field list Symbol.Tbl.t ->
Flambda.constant_defining_value Symbol.Tbl.t ->
the_dead_constant:Symbol.t ->
allocation_point Variable.Map.tval print_constant_defining_value :
Format.formatter ->
constant_defining_value ->
unit