-- -- TMTEST / SPECIFICATION -- -- DESCRIPTION: -- -- This package is the specification for Test 19 of the RTEMS -- Timing Test Suite. -- -- DEPENDENCIES: -- -- -- -- COPYRIGHT (c) 1989-1997. -- On-Line Applications Research Corporation (OAR). -- Copyright assigned to U.S. Government, 1994. -- -- The license and distribution terms for this file may in -- the file LICENSE in this distribution or at -- http://www.OARcorp.com/rtems/license.html. -- -- $Id$ -- with RTEMS; with TIME_TEST_SUPPORT; with TIMER_DRIVER; package TMTEST is -- -- This array contains the IDs of all RTEMS tasks created by this test. -- TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID; -- -- The following variable is set to the execution time returned -- by the timer. -- END_TIME : RTEMS.UNSIGNED32; -- -- INIT -- -- DESCRIPTION: -- -- This RTEMS task initializes the application. -- procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); -- -- PROCESS_ASR_FOR_PASS_1 -- -- DESCRIPTION: -- -- This subprogram is the ASR used to measure and report the -- execution time of a SIGNAL_SEND to SELF. Before it exits -- it starts the timer so that the execution time required to -- exit from an ASR back to the same task can be measured. -- procedure PROCESS_ASR_FOR_PASS_1 ( SIGNALS : in RTEMS.SIGNAL_SET ); -- -- PROCESS_ASR_FOR_PASS_2 -- -- DESCRIPTION: -- -- This subprogram is the ASR which sets up for a preemptive -- return from an ASR. Before it exits it starts the timer -- so that the execution time required to exit from an ASR -- and transfer control to the another task can be measured. -- procedure PROCESS_ASR_FOR_PASS_2 ( SIGNALS : in RTEMS.SIGNAL_SET ); -- -- TASK_1 -- -- DESCRIPTION: -- -- This RTEMS task is responsible for measuring and reporting -- the following execution times: -- -- + SIGNAL_CATCH -- + non-preemptive SIGNAL_SEND -- + non-preemptive return from an ASR -- procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); -- -- PROCESS_ASR_FOR_TASK_2 -- -- DESCRIPTION: -- -- This subprogram is the ASR for TASK_2. It performs no actions. -- procedure PROCESS_ASR_FOR_TASK_2 ( SIGNALS : in RTEMS.SIGNAL_SET ); -- -- TASK_2 -- -- DESCRIPTION: -- -- This RTEMS task is used as the recipient of a SIGNAL_SEND. -- After establishing an ASR, it suspends itself to insure -- that it does not execute again. -- procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); -- -- TASK_3 -- -- DESCRIPTION: -- -- This RTEMS task is used as the recipient of a preemptive -- SIGNAL_SEND. This task suspends itself and is resumed by -- an ASR for TASK_1. Once the task executes, it stops the -- timer and reports the execution time for a preemptive -- return from an ASR. -- procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); end TMTEST;