Skip to content
Snippets Groups Projects
Commit 56f5e434 authored by Pierre Loic Garoche's avatar Pierre Loic Garoche
Browse files

Missing files

parent 2fe896f9
No related branches found
No related tags found
No related merge requests found
val check_eq: Lustre_types.node_desc -> Lustre_types.node_desc -> Lustre_types.node_desc
module type S =
sig
val name: string
val activate: unit -> unit
val is_active: unit -> bool
val options: (string * Arg.spec * string) list
val get_normalization_params: unit -> Normalization.param_t
val run: basename:string -> Lustre_types.program_t -> Machine_code_types.machine_t list -> unit
end
module Default =
struct
let get_normalization_params () = {
Normalization.unfold_arrow_active = true;
force_alias_ite = false;
force_alias_internal_fun = false;
}
end
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment