diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:00:10 +0200 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:53:16 +0200 |
commit | ee537ea3dd964d4de3565a36b4857af31fb5a3f4 (patch) | |
tree | ad8b328a58469ca0632e3e61cd94f37c9d97cc25 /c/src/ada-tests/tmtests/tm19/tmtest.adb | |
parent | ada-tests: Use _SUBDIRS instead of SUBDIRS (diff) | |
download | rtems-ee537ea3dd964d4de3565a36b4857af31fb5a3f4.tar.bz2 |
ada-tests: Move to testsuites/ada
This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.
Close #3079.
Diffstat (limited to 'c/src/ada-tests/tmtests/tm19/tmtest.adb')
-rw-r--r-- | c/src/ada-tests/tmtests/tm19/tmtest.adb | 287 |
1 files changed, 0 insertions, 287 deletions
diff --git a/c/src/ada-tests/tmtests/tm19/tmtest.adb b/c/src/ada-tests/tmtests/tm19/tmtest.adb deleted file mode 100644 index 288a6a799d..0000000000 --- a/c/src/ada-tests/tmtests/tm19/tmtest.adb +++ /dev/null @@ -1,287 +0,0 @@ --- --- TMTEST / BODY --- --- DESCRIPTION: --- --- This package is the implementation of Test 19 of the RTEMS --- Timing Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2011. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with RTEMS_CALLING_OVERHEAD; -with TEST_SUPPORT; -with TEXT_IO; -with TIME_TEST_SUPPORT; -with TIMER_DRIVER; -with RTEMS.SIGNAL; - -package body TMTEST is - --- --- INIT --- - - procedure INIT ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - STATUS : RTEMS.STATUS_CODES; - begin - - TEXT_IO.NEW_LINE( 2 ); - TEXT_IO.PUT_LINE( "*** TIME TEST 19 ***" ); - - RTEMS.TASKS.CREATE( - RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ), - 128, - 1024, - RTEMS.DEFAULT_MODES, - RTEMS.DEFAULT_ATTRIBUTES, - TMTEST.TASK_ID( 1 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TASK1" ); - - RTEMS.TASKS.START( - TMTEST.TASK_ID( 1 ), - TMTEST.TASK_1'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TASK1" ); - - RTEMS.TASKS.CREATE( - RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ), - 127, - 1024, - RTEMS.DEFAULT_MODES, - RTEMS.DEFAULT_ATTRIBUTES, - TMTEST.TASK_ID( 2 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TASK2" ); - - RTEMS.TASKS.START( - TMTEST.TASK_ID( 2 ), - TMTEST.TASK_2'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TASK2" ); - - RTEMS.TASKS.CREATE( - RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ), - 126, - 1024, - RTEMS.DEFAULT_MODES, - RTEMS.DEFAULT_ATTRIBUTES, - TMTEST.TASK_ID( 3 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TASK3" ); - - RTEMS.TASKS.START( - TMTEST.TASK_ID( 3 ), - TMTEST.TASK_3'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TASK3" ); - - RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" ); - - end INIT; - --- --- PROCESS_ASR_FOR_PASS_1 --- - - procedure PROCESS_ASR_FOR_PASS_1 ( - SIGNALS : in RTEMS.SIGNAL_SET - ) is - pragma Unreferenced(SIGNALS); - begin - - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_SEND (self)", - TMTEST.END_TIME, - 1, - 0, - RTEMS_CALLING_OVERHEAD.SIGNAL_SEND - ); - - TEXT_IO.PUT_LINE( "SIGNAL_ENTER (preemptive) na" ); - - TIMER_DRIVER.INITIALIZE; - - end PROCESS_ASR_FOR_PASS_1; - --- --- PROCESS_ASR_FOR_PASS_2 --- - - procedure PROCESS_ASR_FOR_PASS_2 ( - SIGNALS : in RTEMS.SIGNAL_SET - ) is - pragma Unreferenced(SIGNALS); - STATUS : RTEMS.STATUS_CODES; - begin - - TEXT_IO.PUT_LINE( "SIGNAL_ENTER (preemptive) na" ); - - RTEMS.TASKS.RESUME( TMTEST.TASK_ID( 3 ), STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" ); - - TIMER_DRIVER.INITIALIZE; - - end PROCESS_ASR_FOR_PASS_2; - --- --- TASK_1 --- - - procedure TASK_1 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - STATUS : RTEMS.STATUS_CODES; - begin - - TIMER_DRIVER.INITIALIZE; - RTEMS.SIGNAL.CATCH( - TMTEST.PROCESS_ASR_FOR_PASS_1'ACCESS, - RTEMS.DEFAULT_MODES, - STATUS - ); - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" ); - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_CATCH", - TMTEST.END_TIME, - 1, - 0, - RTEMS_CALLING_OVERHEAD.SIGNAL_CATCH - ); - - TIMER_DRIVER.INITIALIZE; - RTEMS.SIGNAL.SEND( TMTEST.TASK_ID( 2 ), RTEMS.SIGNAL_1, STATUS ); - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" ); - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_SEND (non-preemptive)", - TMTEST.END_TIME, - 1, - 0, - RTEMS_CALLING_OVERHEAD.SIGNAL_SEND - ); - - TIMER_DRIVER.INITIALIZE; - RTEMS.SIGNAL.SEND( RTEMS.SELF, RTEMS.SIGNAL_1, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" ); - - -- end time is done in ASR - - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_RETURN (non-preemptive)", - TMTEST.END_TIME, - 1, - 0, - 0 - ); - - RTEMS.SIGNAL.CATCH( - TMTEST.PROCESS_ASR_FOR_PASS_2'ACCESS, - RTEMS.NO_PREEMPT, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" ); - - TIMER_DRIVER.INITIALIZE; - RTEMS.SIGNAL.SEND( RTEMS.SELF, RTEMS.SIGNAL_1, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" ); - - end TASK_1; - --- --- PROCESS_ASR_FOR_TASK_2 --- - - procedure PROCESS_ASR_FOR_TASK_2 ( - SIGNALS : in RTEMS.SIGNAL_SET - ) is - begin - - NULL; - - end PROCESS_ASR_FOR_TASK_2; - --- --- TASK_2 --- - - procedure TASK_2 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - STATUS : RTEMS.STATUS_CODES; - begin - - RTEMS.SIGNAL.CATCH( - TMTEST.PROCESS_ASR_FOR_TASK_2'ACCESS, - RTEMS.DEFAULT_MODES, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_CATCH" ); - - RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" ); - - end TASK_2; - --- --- TASK_3 --- - - procedure TASK_3 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - STATUS : RTEMS.STATUS_CODES; - begin - - RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" ); - - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_RETURN (preemptive)", - TMTEST.END_TIME, - 1, - 0, - 0 - ); - - TEXT_IO.PUT_LINE( "*** END OF TIME TEST 19 ***" ); - RTEMS.SHUTDOWN_EXECUTIVE( 0 ); - - end TASK_3; - -end TMTEST; |