diff options
Diffstat (limited to 'c')
-rw-r--r-- | c/src/ada/rtems.adb | 30 | ||||
-rw-r--r-- | c/src/ada/rtems.ads | 8 |
2 files changed, 37 insertions, 1 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 72ee262e59..3043ad668c 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -1505,10 +1505,38 @@ package body RTEMS is Segment, Size_Base'Unchecked_Access ); - Size := SIZE_Base; + Size := Size_Base; end Region_Get_Segment_Size; + procedure Region_Resize_Segment ( + ID : in RTEMS.ID; + Segment : in RTEMS.Address; + Size : in RTEMS.Unsigned32; + Old_Size : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes + ) is + function Region_Resize_Segment_Base ( + ID : RTEMS.ID; + Segment : RTEMS.Address; + Size : RTEMS.Unsigned32; + Old_Size : access RTEMS.Unsigned32 + ) return RTEMS.Status_Codes; + pragma Import (C, Region_Resize_Segment_Base, + "rtems_region_get_segment_size"); + Old_Size_Base : aliased RTEMS.Unsigned32; + begin + + Result := Region_Resize_Segment_Base ( + ID, + Segment, + Size, + Size_Base'Unchecked_Access + ); + Old_Size := Old_Size_Base; + + end Region_Resize_Segment; + procedure Region_Return_Segment ( ID : in RTEMS.ID; Segment : in RTEMS.Address; diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index d95b2571d9..752a6fe064 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -1299,6 +1299,14 @@ pragma Elaborate_Body (RTEMS); Result : out RTEMS.Status_Codes ); + procedure Region_Resize_Segment ( + ID : in RTEMS.ID; + Segment : in RTEMS.Address; + Old_Size : in RTEMS.Unsigned32; + Size : out RTEMS.Unsigned32; + Result : out RTEMS.Status_Codes + ); + procedure Region_Return_Segment ( ID : in RTEMS.ID; Segment : in RTEMS.Address; |