Commit 35eb213b authored by yoogx's avatar yoogx

* Add missing include to subprograms.h

parent 3154b0d5
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 ESA & ISAE. -- -- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -41,6 +41,7 @@ with Ocarina.Backends.Properties; ...@@ -41,6 +41,7 @@ with Ocarina.Backends.Properties;
with Ocarina.Backends.C_Tree.Nutils; with Ocarina.Backends.C_Tree.Nutils;
with Ocarina.Backends.C_Tree.Nodes; with Ocarina.Backends.C_Tree.Nodes;
with Ocarina.Backends.C_Common.Mapping; with Ocarina.Backends.C_Common.Mapping;
with Ocarina.Backends.PO_HI_C.Runtime;
package body Ocarina.Backends.C_Common.Subprograms is package body Ocarina.Backends.C_Common.Subprograms is
...@@ -52,6 +53,8 @@ package body Ocarina.Backends.C_Common.Subprograms is ...@@ -52,6 +53,8 @@ package body Ocarina.Backends.C_Common.Subprograms is
use Ocarina.Backends.C_Tree.Nutils; use Ocarina.Backends.C_Tree.Nutils;
use Ocarina.Backends.C_Common.Mapping; use Ocarina.Backends.C_Common.Mapping;
package PHCR renames Ocarina.Backends.PO_HI_C.Runtime;
package AIN renames Ocarina.ME_AADL.AADL_Instances.Nodes; package AIN renames Ocarina.ME_AADL.AADL_Instances.Nodes;
package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils; package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils;
package CTN renames Ocarina.Backends.C_Tree.Nodes; package CTN renames Ocarina.Backends.C_Tree.Nodes;
...@@ -896,6 +899,10 @@ package body Ocarina.Backends.C_Common.Subprograms is ...@@ -896,6 +899,10 @@ package body Ocarina.Backends.C_Common.Subprograms is
Start_Recording_Handlings; Start_Recording_Handlings;
-- Include associated header file
Add_Include (PHCR.RH (PHCR.RH_Subprograms));
-- First, generate extern declaration for globvars. -- First, generate extern declaration for globvars.
if not AINU.Is_Empty (Subcomponents (E)) then if not AINU.Is_Empty (Subcomponents (E)) then
...@@ -1144,6 +1151,7 @@ package body Ocarina.Backends.C_Common.Subprograms is ...@@ -1144,6 +1151,7 @@ package body Ocarina.Backends.C_Common.Subprograms is
Pop_Entity; Pop_Entity;
Pop_Entity; Pop_Entity;
end if; end if;
end Visit_System_Instance; end Visit_System_Instance;
--------------------------- ---------------------------
......
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