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

fix headers inclusion



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