Commit f5e34296 authored by Julien's avatar Julien

SCADE and Simulink program have local include

 clauses
parent b1cd5d65
......@@ -2457,8 +2457,8 @@ package body Ocarina.Backends.C_Common.Mapping is
when Subprogram_Simulink =>
Add_Include
(Make_Include_Clause
(Make_Defining_Identifier (Get_Source_Name (S), False),
False),
(Make_Defining_Identifier (Get_Source_Name (S), True),
True),
True);
if not AINU.Is_Empty (Features (S)) then
......@@ -2540,7 +2540,7 @@ package body Ocarina.Backends.C_Common.Mapping is
when Subprogram_Scade =>
Add_Include
(Make_Include_Clause (Map_Scade_Function_Name (S)),
(Make_Include_Clause (Map_Scade_Function_Name (S), True),
Preserve_Case => True);
-- At first, we declare structures used as parameters
-- for SCADE functions. So, if the subprograms has IN
......
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