Commit e2e27ec9 authored by erwan's avatar erwan
Browse files

Update: move user definitions from lustre_types.h to file_node.h

parent 8f1f46b3
Pipeline #70660 passed with stages
in 4 minutes and 27 seconds
(* Time-stamp: <modified the 05/07/2021 (at 10:56) by Erwan Jahier> *)
(* Time-stamp: <modified the 05/07/2021 (at 17:12) by Erwan Jahier> *)
(* let put (os: out_channel) (fmt:('a, unit, string, unit) format4) : 'a = *)
......@@ -1012,12 +1012,15 @@ typedef float _float;
#define _false 0
#define _true 1
#endif
// end of _SOC2C_PREDEF_TYPES
// end of _SOC2C_PREDEF_TYPES");
output_string och ("
#include \"lustre_types.h\"
// User typedef
#ifndef _"^base0^"_TYPES
#define _"^base0^"_TYPES\n");
output_string types_h_oc (user_typedef licprg);
output_string types_h_oc ("#endif // enf of _"^base^"_TYPES
output_string och (user_typedef licprg);
output_string och ("#endif // enf of _"^base^"_TYPES
"
^ (typedef_all licprg stbl main_soc )
^ (if needs_hfile then "#include \""^ base0 ^"_ext.h\"" else ""));
......@@ -1152,12 +1155,12 @@ struct dro_desc_t DRO_DESC_NAME = {
puth "/////////////////////////////////////////////////\n";
if assign_ext_types_list <> [] then (
output_string types_h_oc "\n// Defining array and extern types assignments \n";
output_string och "\n// Defining array and extern types assignments \n";
if Lv6MainArgs.global_opt.Lv6MainArgs.gen_wcet then
List.iter (fun t -> output_string types_h_oc (Soc2cGenAssign.f_forloop t))
List.iter (fun t -> output_string och (Soc2cGenAssign.f_forloop t))
assign_ext_types_list
else
List.iter (fun t -> output_string types_h_oc (Soc2cGenAssign.f t))
List.iter (fun t -> output_string och (Soc2cGenAssign.f t))
assign_ext_types_list
);
puth "#endif\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment