diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 18:06:46 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 18:06:46 +0000 |
commit | 9bec37b866ba3ebae6c94169f8f1c296d4ae081f (patch) | |
tree | 7aaf4f147e3453a36e014ede20e2bb9846f00518 /c/src/ada-tests/sptests | |
parent | Added RTEMS boolean constants. (diff) | |
download | rtems-9bec37b866ba3ebae6c94169f8f1c296d4ae081f.tar.bz2 |
Switched to proper types for booleans and increased the stack space
for the tasks in this test.
Diffstat (limited to 'c/src/ada-tests/sptests')
-rw-r--r-- | c/src/ada-tests/sptests/sp14/sptest.adb | 7 | ||||
-rw-r--r-- | c/src/ada-tests/sptests/sp14/sptest.ads | 4 |
2 files changed, 6 insertions, 5 deletions
diff --git a/c/src/ada-tests/sptests/sp14/sptest.adb b/c/src/ada-tests/sptests/sp14/sptest.adb index 77b9089127..d52d0dff15 100644 --- a/c/src/ada-tests/sptests/sp14/sptest.adb +++ b/c/src/ada-tests/sptests/sp14/sptest.adb @@ -51,7 +51,7 @@ package body SPTEST is RTEMS.TASK_CREATE( SPTEST.TASK_NAME( 1 ), 1, - 2048, + RTEMS.MINIMUM_STACK_SIZE * 2, RTEMS.DEFAULT_MODES, RTEMS.DEFAULT_ATTRIBUTES, SPTEST.TASK_ID( 1 ), @@ -62,7 +62,7 @@ package body SPTEST is RTEMS.TASK_CREATE( SPTEST.TASK_NAME( 2 ), 1, - 2048, + RTEMS.MINIMUM_STACK_SIZE * 2, RTEMS.DEFAULT_MODES, RTEMS.DEFAULT_ATTRIBUTES, SPTEST.TASK_ID( 2 ), @@ -201,7 +201,8 @@ package body SPTEST is end loop; if SPTEST.TIMER_GOT_THIS_ID = SPTEST.TIMER_ID( 1 ) and then - SPTEST.TIMER_GOT_THIS_POINTER = SPTEST.TASK_1'ADDRESS then + RTEMS.ARE_EQUAL(SPTEST.TIMER_GOT_THIS_POINTER, + SPTEST.TASK_1'ADDRESS) then TEXT_IO.PUT_LINE( "TA1 - timer routine got the correct arguments" ); diff --git a/c/src/ada-tests/sptests/sp14/sptest.ads b/c/src/ada-tests/sptests/sp14/sptest.ads index 6b0a804600..d44d9d1b9b 100644 --- a/c/src/ada-tests/sptests/sp14/sptest.ads +++ b/c/src/ada-tests/sptests/sp14/sptest.ads @@ -46,7 +46,7 @@ package SPTEST is -- been sent from an ISR to the executing task. -- - SIGNAL_SENT : RTEMS.BOOLEAN; + SIGNAL_SENT : BOOLEAN; pragma volatile( SIGNAL_SENT ); -- @@ -64,7 +64,7 @@ package SPTEST is -- and was passed the correct signal set. -- - ASR_FIRED : RTEMS.BOOLEAN; + ASR_FIRED : BOOLEAN; pragma volatile( ASR_FIRED ); -- |