Skip to content
GitLab
Commit 879bda83 authored by yoogx's avatar yoogx
Browse files

* Change base types to index messages in queue to support 

          larger queue size

          For issue #97
parent 75597c42
Hide whitespace changes
Inline Side-by-side
src/backends/po_hi_c/ocarina-backends-po_hi_c-activity.adb
View file @ 879bda83
...@@ -1870,7 +1870,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1870,7 +1870,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (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)); Append_Node_To_List (N, CTN.Declarations (Current_File));
N := N :=
...@@ -1883,7 +1883,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1883,7 +1883,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (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)); Append_Node_To_List (N, CTN.Declarations (Current_File));
N := N :=
...@@ -1896,7 +1896,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1896,7 +1896,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (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)); Append_Node_To_List (N, CTN.Declarations (Current_File));
N := N :=
...@@ -1909,7 +1909,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1909,7 +1909,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (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)); Append_Node_To_List (N, CTN.Declarations (Current_File));
N := N :=
...@@ -1922,7 +1922,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1922,7 +1922,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (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)); Append_Node_To_List (N, CTN.Declarations (Current_File));
N := N :=
...@@ -1995,7 +1995,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -1995,7 +1995,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Uint8_T)), Used_Type => RE (RE_Port_Id_T)),
Operator => Op_Equal, Operator => Op_Equal,
Right_Expr => N_Dest_Values); Right_Expr => N_Dest_Values);
Append_Node_To_List (N, CTN.Declarations (Current_File)); Append_Node_To_List (N, CTN.Declarations (Current_File));
...@@ -2014,7 +2014,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is ...@@ -2014,7 +2014,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Array_Size => Array_Size =>
Make_Defining_Identifier Make_Defining_Identifier
(Map_C_Define_Name (S, Nb_Ports => True))), (Map_C_Define_Name (S, Nb_Ports => True))),
Used_Type => RE (RE_Int8_T)), Used_Type => RE (RE_Port_Id_T)),
Operator => Op_Equal, Operator => Op_Equal,
Right_Expr => Fifo_Size_Values); Right_Expr => Fifo_Size_Values);
Append_Node_To_List (N, CTN.Declarations (Current_File)); Append_Node_To_List (N, CTN.Declarations (Current_File));
......
src/backends/po_hi_c/ocarina-backends-po_hi_c-runtime.ads
View file @ 879bda83
...@@ -214,6 +214,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is ...@@ -214,6 +214,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is
RE_Asn1_Buffer_T, -- __po_hi_asn1_buffer_t RE_Asn1_Buffer_T, -- __po_hi_asn1_buffer_t
RE_Time_T, -- __po_hi_time_t RE_Time_T, -- __po_hi_time_t
RE_Byte_T, -- __po_hi_byte_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_Uint64_T, -- __po_hi_uint64_t
RE_Uint32_T, -- __po_hi_uint32_t RE_Uint32_T, -- __po_hi_uint32_t
RE_Uint16_T, -- __po_hi_uint16_t RE_Uint16_T, -- __po_hi_uint16_t
...@@ -376,6 +377,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is ...@@ -376,6 +377,7 @@ package Ocarina.Backends.PO_HI_C.Runtime is
RE_Asn1_Buffer_T => RH_PO_HI_Marshallers, RE_Asn1_Buffer_T => RH_PO_HI_Marshallers,
RE_Bool_T => RH_PO_HI_Types, RE_Bool_T => RH_PO_HI_Types,
RE_Port_Kind_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_Uint8_T => RH_PO_HI_Types,
RE_Int8_T => RH_PO_HI_Types, RE_Int8_T => RH_PO_HI_Types,
RE_Uint16_T => RH_PO_HI_Types, RE_Uint16_T => RH_PO_HI_Types,
......
Supports Markdown
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