jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Add _in struct for async

Browse source
This commit is contained in:
jeltz 2020-12-21 11:27:30 +01:00
parent fdee5b68c0
commit 5376d9993e
Signed by: jeltz
GPG key ID: 800882B66C0C3326
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/obc/c/cgen.ml
View file

@ -755,6 +755,11 @@ let mem_decl_of_class_def cd =
) else
[]
let in_decl_of_class_def cd =
let step_m = find_step_method cd in
let in_fields = List.map cvar_of_vd step_m.m_inputs in
[Cdecl_struct ((cname_of_qn cd.cd_name) ^ "_in", in_fields)]
let out_decl_of_class_def cd =
(* Fields corresponding to output variables. *)
let step_m = find_step_method cd in
@ -792,6 +797,7 @@ let cdefs_and_cdecls_of_class_def cd =
Idents.enter_node cd.cd_name;
let step_m = find_step_method cd in
let memory_struct_decl = mem_decl_of_class_def cd in
let in_struct_decl = in_decl_of_class_def cd in
let out_struct_decl = out_decl_of_class_def cd in
let step_fun_def = fun_def_of_step_fun cd.cd_name
cd.cd_objs cd.cd_mems cd.cd_objs step_m in
@ -805,7 +811,7 @@ let cdefs_and_cdecls_of_class_def cd =
else
([step_fun_decl], [step_fun_def]) in
memory_struct_decl @ out_struct_decl @ decls,
memory_struct_decl @ in_struct_decl @ out_struct_decl @ decls,
defs
(** {2 Type translation} *)