Port fix from hept_arrays branch
This commit is contained in:
parent
ce4e0620a2
commit
fcf7264f94
|
@ -915,8 +915,4 @@ let global_file_header name prog =
|
||||||
let translate name prog =
|
let translate name prog =
|
||||||
let modname = (Filename.basename name) in
|
let modname = (Filename.basename name) in
|
||||||
global_name := String.capitalize modname;
|
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)
|
(global_file_header modname prog) :: (cfile_list_of_oprog modname prog)
|
||||||
|
|
Loading…
Reference in a new issue