diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-04 10:51:33 +0100 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-04 10:53:38 +0100 |
commit | 535d0183d89478316100ca3fd89443bd8e121064 (patch) | |
tree | e7ac81157605a88484dda880ada70e957f182a57 /testsuites/ada | |
parent | 6e05265f22d36c9229ad90b14bd05f894cf2e2ad (diff) |
ada/sp09: Fix region test cases
Diffstat (limited to 'testsuites/ada')
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.adb | 29 | ||||
-rw-r--r-- | testsuites/ada/sptests/sp09/sptest.ads | 4 |
2 files changed, 17 insertions, 16 deletions
diff --git a/testsuites/ada/sptests/sp09/sptest.adb b/testsuites/ada/sptests/sp09/sptest.adb index e064ebef90..8390ab41f2 100644 --- a/testsuites/ada/sptests/sp09/sptest.adb +++ b/testsuites/ada/sptests/sp09/sptest.adb @@ -2475,49 +2475,50 @@ package body SPTEST is RTEMS.REGION.EXTEND( SPTEST.REGION_ID( 1 ), - SPTEST.REGION_BAD_AREA'ADDRESS, - 128, + SPTEST.REGION_GOOD_AREA( + SPTEST.REGION_START_OFFSET - 2 * SPTEST.REGION_LENGTH )'ADDRESS, + SPTEST.REGION_LENGTH, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( STATUS, - RTEMS.NOT_IMPLEMENTED, - "REGION_EXTEND WITH NOT_IMPLEMENTED" + RTEMS.SUCCESSFUL, + "REGION_EXTEND" ); TEXT_IO.PUT_LINE( - "TA1 - region_extend - non-contiguous lower - NOT_IMPLEMENTED" + "TA1 - region_extend - non-contiguous lower - SUCCESSFUL" ); RTEMS.REGION.EXTEND( SPTEST.REGION_ID( 1 ), SPTEST.REGION_GOOD_AREA( SPTEST.REGION_START_OFFSET - SPTEST.REGION_LENGTH )'ADDRESS, - 128, + SPTEST.REGION_LENGTH, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( STATUS, - RTEMS.NOT_IMPLEMENTED, - "REGION_EXTEND WITH NOT_IMPLEMENTED" + RTEMS.SUCCESSFUL, + "REGION_EXTEND" ); TEXT_IO.PUT_LINE( - "TA1 - region_extend - contiguous lower - NOT_IMPLEMENTED" + "TA1 - region_extend - contiguous lower - SUCCESSFUL" ); RTEMS.REGION.EXTEND( SPTEST.REGION_ID( 1 ), SPTEST.REGION_GOOD_AREA( - SPTEST.REGION_START_OFFSET + SPTEST.REGION_LENGTH + 16 )'ADDRESS, - 128, + SPTEST.REGION_START_OFFSET + 2 * SPTEST.REGION_LENGTH )'ADDRESS, + SPTEST.REGION_LENGTH, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( STATUS, - RTEMS.NOT_IMPLEMENTED, - "REGION_EXTEND WITH NOT_IMPLEMENTED" + RTEMS.SUCCESSFUL, + "REGION_EXTEND" ); TEXT_IO.PUT_LINE( - "TA1 - region_extend - non-contiguous higher - NOT_IMPLEMENTED" + "TA1 - region_extend - non-contiguous higher - SUCCESSFUL" ); end SCREEN_12; diff --git a/testsuites/ada/sptests/sp09/sptest.ads b/testsuites/ada/sptests/sp09/sptest.ads index 9fdad75c3a..d1bef16c96 100644 --- a/testsuites/ada/sptests/sp09/sptest.ads +++ b/testsuites/ada/sptests/sp09/sptest.ads @@ -165,7 +165,7 @@ package SPTEST is of RTEMS.UNSIGNED32; for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT; - REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 1024; + REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 2048; REGION_LENGTH : constant RTEMS.UNSIGNED32 := 512; -- @@ -174,7 +174,7 @@ package SPTEST is -- REGION_BAD_AREA_ADDRESS : constant System.Address := - System.Storage_Elements.To_Address(16#00000006#); + System.Storage_Elements.To_Address(16#00000000#); REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 ) of RTEMS.UNSIGNED8; |