Commit 879bda83 authored by yoogx's avatar yoogx

* Change base types to index messages in queue to support

          larger queue size

          For issue #97
parent 75597c42
......@@ -1870,7 +1870,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T));
Used_Type => RE (RE_Port_Id_T));
Append_Node_To_List (N, CTN.Declarations (Current_File));
N :=
......@@ -1883,7 +1883,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T));
Used_Type => RE (RE_Port_Id_T));
Append_Node_To_List (N, CTN.Declarations (Current_File));
N :=
......@@ -1896,7 +1896,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T));
Used_Type => RE (RE_Port_Id_T));
Append_Node_To_List (N, CTN.Declarations (Current_File));
N :=
......@@ -1909,7 +1909,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T));
Used_Type => RE (RE_Port_Id_T));
Append_Node_To_List (N, CTN.Declarations (Current_File));
N :=
......@@ -1922,7 +1922,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T));
Used_Type => RE (RE_Port_Id_T));
Append_Node_To_List (N, CTN.Declarations (Current_File));
N :=
......@@ -1995,7 +1995,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T)),
Used_Type => RE (RE_Port_Id_T)),
Operator => Op_Equal,
Right_Expr => N_Dest_Values);
Append_Node_To_List (N, CTN.Declarations (Current_File));
......@@ -2014,7 +2014,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size =>
Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Int8_T)),
Used_Type => RE (RE_Port_Id_T)),
Operator => Op_Equal,
Right_Expr => Fifo_Size_Values);
Append_Node_To_List (N, CTN.Declarations (Current_File));
......
......@@ -214,6 +214,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is
RE_Asn1_Buffer_T, -- __po_hi_asn1_buffer_t
RE_Time_T, -- __po_hi_time_t
RE_Byte_T, -- __po_hi_byte_t
RE_Port_Id_T, -- __po_hi_port_id_t
RE_Uint64_T, -- __po_hi_uint64_t
RE_Uint32_T, -- __po_hi_uint32_t
RE_Uint16_T, -- __po_hi_uint16_t
......@@ -376,6 +377,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is
RE_Asn1_Buffer_T => RH_PO_HI_Marshallers,
RE_Bool_T => RH_PO_HI_Types,
RE_Port_Kind_T => RH_PO_HI_Types,
RE_Port_Id_T => RH_PO_HI_Types,
RE_Uint8_T => RH_PO_HI_Types,
RE_Int8_T => RH_PO_HI_Types,
RE_Uint16_T => RH_PO_HI_Types,
......
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