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

Port fix from hept_arrays branch

Browse source
This commit is contained in:
Cédric Pasteur 2010-06-18 14:01:13 +02:00
parent ce4e0620a2
commit fcf7264f94
1 changed files with 0 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
minils/sequential/cgen.ml
View file

@ -915,8 +915,4 @@ let global_file_header name prog =
let translate name prog =
let modname = (Filename.basename name) in
global_name := String.capitalize modname;
(match !simulation_node with
| None -> ()
| Some s -> simulation_node := Some (String.capitalize name ^ "_" ^ s)
);
(global_file_header modname prog) :: (cfile_list_of_oprog modname prog)