diff options
Diffstat (limited to 'testsuites/ada/sptests/sp09')
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.adb | 6 | ||||
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.ads | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/testsuites/ada/sptests/sp09/sptest.adb b/testsuites/ada/sptests/sp09/sptest.adb index 519d0ad4cb..7ebb67b54e 100644 --- a/testsuites/ada/sptests/sp09/sptest.adb +++ b/testsuites/ada/sptests/sp09/sptest.adb @@ -30,6 +30,8 @@ with RTEMS.RATE_MONOTONIC; with RTEMS.REGION; with RTEMS.SEMAPHORE; with RTEMS.TIMER; +with Interfaces.C; +use Interfaces.C; package body SPTEST is @@ -1126,7 +1128,7 @@ package body SPTEST is BUFFER : SPTEST.BUFFER; BUFFER_POINTER : RTEMS.ADDRESS; COUNT : RTEMS.UNSIGNED32; - MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0; + MESSAGE_SIZE : RTEMS.Size := 0; STATUS : RTEMS.STATUS_CODES; begin @@ -3035,7 +3037,7 @@ package body SPTEST is pragma Unreferenced(ARGUMENT); BUFFER : SPTEST.BUFFER; BUFFER_POINTER : RTEMS.ADDRESS; - MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0; + MESSAGE_SIZE : RTEMS.Size := 0; STATUS : RTEMS.STATUS_CODES; begin diff --git a/testsuites/ada/sptests/sp09/sptest.ads b/testsuites/ada/sptests/sp09/sptest.ads index d1bef16c96..7191dd59ce 100644 --- a/testsuites/ada/sptests/sp09/sptest.ads +++ b/testsuites/ada/sptests/sp09/sptest.ads @@ -161,12 +161,12 @@ package SPTEST is -- starting area and length. -- - REGION_GOOD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 4095 ) - of RTEMS.UNSIGNED32; + REGION_GOOD_AREA : array ( RTEMS.Size range 0 .. 4095 ) + of RTEMS.Size; for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT; - REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 2048; - REGION_LENGTH : constant RTEMS.UNSIGNED32 := 512; + REGION_START_OFFSET : constant RTEMS.Size := 2048; + REGION_LENGTH : constant RTEMS.Size := 512; -- -- The following area defines a memory area to be used as the |