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-region.ads | |
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-region.ads')
-rw-r--r-- | cpukit/include/adainclude/rtems-region.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/cpukit/include/adainclude/rtems-region.ads b/cpukit/include/adainclude/rtems-region.ads index d75a939b8b..753588d7a8 100644 --- a/cpukit/include/adainclude/rtems-region.ads +++ b/cpukit/include/adainclude/rtems-region.ads @@ -28,8 +28,8 @@ package RTEMS.Region is procedure Create ( Name : in RTEMS.Name; Starting_Address : in RTEMS.Address; - Length : in RTEMS.Unsigned32; - Page_Size : in RTEMS.Unsigned32; + Length : in RTEMS.Size; + Page_Size : in RTEMS.Size; Attribute_Set : in RTEMS.Attribute; ID : out RTEMS.ID; Result : out RTEMS.Status_Codes @@ -49,13 +49,13 @@ package RTEMS.Region is procedure Extend ( ID : in RTEMS.ID; Starting_Address : in RTEMS.Address; - Length : in RTEMS.Unsigned32; + Length : in RTEMS.Size; Result : out RTEMS.Status_Codes ); procedure Get_Segment ( ID : in RTEMS.ID; - Size : in RTEMS.Unsigned32; + Size : in RTEMS.Size; Option_Set : in RTEMS.Option; Timeout : in RTEMS.Interval; Segment : out RTEMS.Address; @@ -65,7 +65,7 @@ package RTEMS.Region is procedure Get_Segment_Size ( ID : in RTEMS.ID; Segment : in RTEMS.Address; - Size : out RTEMS.Unsigned32; + Size : out RTEMS.Size; Result : out RTEMS.Status_Codes ); @@ -78,8 +78,8 @@ package RTEMS.Region is procedure Resize_Segment ( ID : in RTEMS.ID; Segment : in RTEMS.Address; - Size : in RTEMS.Unsigned32; - Old_Size : out RTEMS.Unsigned32; + Size : in RTEMS.Size; + Old_Size : out RTEMS.Size; Result : out RTEMS.Status_Codes ); |