Commit e73852fb authored by julien.delange's avatar julien.delange
Browse files

fix headers inclusion

git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 5947a51a
...@@ -318,6 +318,8 @@ package body Ocarina.Backends.PO_HI_C.Marshallers is ...@@ -318,6 +318,8 @@ package body Ocarina.Backends.PO_HI_C.Marshallers is
N : Node_Id; N : Node_Id;
S : Node_Id; S : Node_Id;
begin begin
Add_Include (RH (RH_Types));
if No (Get_Handling (E, By_Name, H_C_Marshall_Spec)) then if No (Get_Handling (E, By_Name, H_C_Marshall_Spec)) then
N := Marshall_Type_Spec (E); N := Marshall_Type_Spec (E);
Set_Handling (E, By_Name, H_C_Marshall_Spec, N); Set_Handling (E, By_Name, H_C_Marshall_Spec, N);
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