Commit 1fc2562b authored by erwan's avatar erwan
Browse files

Chore: put the header at the top of <file>_<node>.h + move and #endif forward

parent e2e27ec9
Pipeline #70667 passed with stages
in 4 minutes and 41 seconds
(* Time-stamp: <modified the 05/07/2021 (at 17:12) by Erwan Jahier> *)
(* Time-stamp: <modified the 05/07/2021 (at 17:30) by Erwan Jahier> *)
(* let put (os: out_channel) (fmt:('a, unit, string, unit) format4) : 'a = *)
......@@ -1013,16 +1013,17 @@ typedef float _float;
#define _true 1
#endif
// end of _SOC2C_PREDEF_TYPES");
Lv6util.entete och "/*" "*/";
output_string och ("
#include \"lustre_types.h\"
// User typedef
#ifndef _"^base0^"_TYPES
#define _"^base0^"_TYPES\n");
output_string och (user_typedef licprg);
output_string och ("#endif // enf of _"^base^"_TYPES
output_string och (user_typedef licprg); flush och;
output_string och ((typedef_all licprg stbl main_soc )
^ "#endif // end of _"^base0^"_TYPES
"
^ (typedef_all licprg stbl main_soc )
^ (if needs_hfile then "#include \""^ base0 ^"_ext.h\"" else ""));
try
......@@ -1030,7 +1031,6 @@ typedef float _float;
let cfmt fmt = Printf.kprintf (fun t -> output_string occ t) fmt in
let puth s = output_string och s in
Lv6util.entete occ "/*" "*/" ;
Lv6util.entete och "/*" "*/";
if Lv6MainArgs.global_opt.Lv6MainArgs.soc2c_dro then () else
if Lv6MainArgs.global_opt.Lv6MainArgs.gen_wcet then (
gen_loop_file4ogensim main_soc base ocl stbl;
......
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