Commit 03d57f19 authored by yoogx's avatar yoogx

* RU: add new parameter 'Elaborated', propagrate elaboration

          requirements.
parent 1ec4ad0a
...@@ -335,7 +335,10 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is ...@@ -335,7 +335,10 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is
-- RU -- -- RU --
-------- --------
function RU (Id : RU_Id; Withed : Boolean := True) return Node_Id is function RU
(Id : RU_Id; Withed : Boolean := True; Elaborated : Boolean := False)
return Node_Id
is
Result : Node_Id; Result : Node_Id;
begin begin
-- This is a runtime unit and not a runtime entity, so it's -- This is a runtime unit and not a runtime entity, so it's
...@@ -343,7 +346,7 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is ...@@ -343,7 +346,7 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is
Result := Copy_Designator (RUD (Id), False); Result := Copy_Designator (RUD (Id), False);
if Withed then if Withed then
Add_With_Package (Result); Add_With_Package (Result, Elaborated => Elaborated);
end if; end if;
return Result; return Result;
end RU; end RU;
......
...@@ -293,7 +293,9 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is ...@@ -293,7 +293,9 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is
function RE (Id : RE_Id; Withed : Boolean := True) return Node_Id; function RE (Id : RE_Id; Withed : Boolean := True) return Node_Id;
-- Return a designator for entity Id -- Return a designator for entity Id
function RU (Id : RU_Id; Withed : Boolean := True) return Node_Id; function RU
(Id : RU_Id; Withed : Boolean := True; Elaborated : Boolean := False)
return Node_Id;
-- Return a node for Unit Id -- Return a node for Unit Id
end Ocarina.Backends.PO_HI_Ada.Runtime; end Ocarina.Backends.PO_HI_Ada.Runtime;
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