From bc96f3b4b889891cb685c4bbcaf12166ca08331c Mon Sep 17 00:00:00 2001 From: Sebastian Huber Date: Tue, 23 Jan 2018 09:53:06 +0100 Subject: 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. --- cpukit/include/adainclude/rtems-message_queue.ads | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'cpukit/include/adainclude/rtems-message_queue.ads') diff --git a/cpukit/include/adainclude/rtems-message_queue.ads b/cpukit/include/adainclude/rtems-message_queue.ads index d5efe54ffe..929b659d75 100644 --- a/cpukit/include/adainclude/rtems-message_queue.ads +++ b/cpukit/include/adainclude/rtems-message_queue.ads @@ -28,7 +28,7 @@ package 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 @@ -49,21 +49,21 @@ package 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 ); procedure Urgent ( ID : in RTEMS.ID; Buffer : in RTEMS.Address; - Size : in RTEMS.Unsigned32; + Size : in RTEMS.Size; Result : out RTEMS.Status_Codes ); 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 ); @@ -73,7 +73,7 @@ package 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 ); -- cgit v1.2.3