diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2018-01-23 09:53:06 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2018-01-29 06:58:28 +0100 |
commit | bc96f3b4b889891cb685c4bbcaf12166ca08331c (patch) | |
tree | f83b796d2dcc1bfbad1501d8e40a3c4277695e86 /cpukit/include/adainclude/rtems-message_queue.adb | |
parent | ada: Fix RTEMS.Time_t (diff) | |
download | rtems-bc96f3b4b889891cb685c4bbcaf12166ca08331c.tar.bz2 |
ada: Introduce RTEMS.Size type
Some time ago the Classic API object size related parameters were
changed to use size_t. Reflect this in the Ada bindings.
Update #3082.
Diffstat (limited to 'cpukit/include/adainclude/rtems-message_queue.adb')
-rw-r--r-- | cpukit/include/adainclude/rtems-message_queue.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/cpukit/include/adainclude/rtems-message_queue.adb b/cpukit/include/adainclude/rtems-message_queue.adb index 67abf48baf..7437670554 100644 --- a/cpukit/include/adainclude/rtems-message_queue.adb +++ b/cpukit/include/adainclude/rtems-message_queue.adb @@ -27,7 +27,7 @@ package body RTEMS.Message_Queue is procedure Create (Name : in RTEMS.Name; Count : in RTEMS.Unsigned32; - Max_Message_Size : in RTEMS.Unsigned32; + Max_Message_Size : in RTEMS.Size; Attribute_Set : in RTEMS.Attribute; ID : out RTEMS.ID; Result : out RTEMS.Status_Codes) @@ -36,7 +36,7 @@ package body RTEMS.Message_Queue is function Create_Base (Name : RTEMS.Name; Count : RTEMS.Unsigned32; - Max_Message_Size : RTEMS.Unsigned32; + Max_Message_Size : RTEMS.Size; Attribute_Set : RTEMS.Attribute; ID : access RTEMS.ID) return RTEMS.Status_Codes; @@ -101,13 +101,13 @@ package body RTEMS.Message_Queue is procedure Send (ID : in RTEMS.ID; Buffer : in RTEMS.Address; - Size : in RTEMS.Unsigned32; + Size : in RTEMS.Size; Result : out RTEMS.Status_Codes) is function Send_Base (ID : RTEMS.ID; Buffer : RTEMS.Address; - Size : RTEMS.Unsigned32) + Size : RTEMS.Size) return RTEMS.Status_Codes; pragma Import (C, Send_Base, "rtems_message_queue_send"); begin @@ -119,13 +119,13 @@ package body RTEMS.Message_Queue is procedure Urgent (ID : in RTEMS.ID; Buffer : in RTEMS.Address; - Size : in RTEMS.Unsigned32; + Size : in RTEMS.Size; Result : out RTEMS.Status_Codes) is function Urgent_Base (ID : RTEMS.ID; Buffer : RTEMS.Address; - Size : RTEMS.Unsigned32) + Size : RTEMS.Size) return RTEMS.Status_Codes; pragma Import (C, @@ -140,14 +140,14 @@ package body RTEMS.Message_Queue is procedure Broadcast (ID : in RTEMS.ID; Buffer : in RTEMS.Address; - Size : in RTEMS.Unsigned32; + Size : in RTEMS.Size; Count : out RTEMS.Unsigned32; Result : out RTEMS.Status_Codes) is function Broadcast_Base (ID : RTEMS.ID; Buffer : RTEMS.Address; - Size : RTEMS.Unsigned32; + Size : RTEMS.Size; Count : access RTEMS.Unsigned32) return RTEMS.Status_Codes; pragma Import @@ -168,13 +168,13 @@ package body RTEMS.Message_Queue is Buffer : in RTEMS.Address; Option_Set : in RTEMS.Option; Timeout : in RTEMS.Interval; - Size : in out RTEMS.Unsigned32; + Size : in out RTEMS.Size; Result : out RTEMS.Status_Codes) is function Receive_Base (ID : RTEMS.ID; Buffer : RTEMS.Address; - Size : access RTEMS.Unsigned32; + Size : access RTEMS.Size; Option_Set : RTEMS.Option; Timeout : RTEMS.Interval) return RTEMS.Status_Codes; @@ -182,7 +182,7 @@ package body RTEMS.Message_Queue is (C, Receive_Base, "rtems_message_queue_receive"); - Size_Base : aliased RTEMS.Unsigned32; + Size_Base : aliased RTEMS.Size; begin Size_Base := Size; |