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

Temporary fix.

Browse source
This commit is contained in:
Adrien Guatto 2010-07-23 13:48:10 +02:00
parent 3698105ccf
commit e34ec2a229
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/minils/sequential/cgen.ml
View file

@ -719,6 +719,8 @@ let cfile_list_of_oprog name oprog =
let struct_decl,use_ctrlr,(cdecls, cdefs) =
cdefs_and_cdecls_of_class_def cd in
let l = get_opened_modules () in
let cfile_mem = cfile_name ^ "_mem" in
add_opened_module cfile_mem;
if use_ctrlr then
@ -726,7 +728,7 @@ let cfile_list_of_oprog name oprog =
remove_opened_module name;
let acc_cfiles = acc_cfiles @
[ (cfile_mem ^ ".h", Cheader (get_opened_modules (), struct_decl));
[ (cfile_mem ^ ".h", Cheader (l, struct_decl));
(cfile_name ^ ".h", Cheader (get_opened_modules (), cdecls));
(cfile_name ^ ".c", Csource cdefs)] in
deps@[cfile_name],acc_cfiles in