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

* specify the correct size



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@711 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 94dfd8fd
...@@ -1777,6 +1777,36 @@ package body Ocarina.Backends.PO_HI_C.Marshallers is ...@@ -1777,6 +1777,36 @@ package body Ocarina.Backends.PO_HI_C.Marshallers is
Append_Node_To_List Append_Node_To_List
(N, Switch_Statements); (N, Switch_Statements);
Append_Node_To_List
(Make_Expression
(Left_Expr =>
Make_Member_Designator
(Defining_Identifier =>
Make_Member_Designator
(Defining_Identifier =>
Make_Member_Designator
(Defining_Identifier =>
Make_Member_Designator
(Defining_Identifier =>
Make_Defining_Identifier
(Get_String_Name ("nCount"),
C_Conversion => False),
Aggregate_Name =>
(Make_Defining_Identifier
(Map_Port_Name_For_Asn1 (F)))),
Aggregate_Name =>
(Make_Defining_Identifier
(Get_String_Name ("u")))),
Aggregate_Name =>
Make_Defining_Identifier (MN (M_Msg))),
Aggregate_Name =>
Make_Defining_Identifier (VN (V_Pkt)),
Is_Pointer => True),
Operator => Op_Equal,
Right_Expr => Get_Data_Size
(Corresponding_Instance (F))),
Switch_Statements);
Append_Node_To_List Append_Node_To_List
(Make_Defining_Identifier (Make_Defining_Identifier
(Map_C_Enumerator_Name (F)), (Map_C_Enumerator_Name (F)),
......
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