-- SPDX-License-Identifier: BSD-2-Clause -- -- TMTEST / SPECIFICATION -- -- DESCRIPTION: -- -- This package is the specification for Test 6 of the RTEMS -- Timing Test Suite. -- -- DEPENDENCIES: -- -- -- -- COPYRIGHT (c) 1989-2011. -- On-Line Applications Research Corporation (OAR). -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions -- are met: -- 1. Redistributions of source code must retain the above copyright -- notice, this list of conditions and the following disclaimer. -- 2. Redistributions in binary form must reproduce the above copyright -- notice, this list of conditions and the following disclaimer in the -- documentation and/or other materials provided with the distribution. -- -- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" -- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE -- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -- POSSIBILITY OF SUCH DAMAGE. -- with TIME_TEST_SUPPORT; with RTEMS; with RTEMS.TASKS; package TMTEST is -- -- This array contains the IDs of all RTEMS tasks created by this test. -- TASK_ID : array ( RTEMS.UNSIGNED32 range 0 .. TIME_TEST_SUPPORT.OPERATION_COUNT ) of RTEMS.ID; -- -- This variable is used to determine which restart of TASK_1 will start -- timer and which will stop the timer and report the execution time. -- TASK_RESTARTED : RTEMS.UNSIGNED32; -- -- 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.TASKS.ARGUMENT ); pragma Convention (C, INIT); -- -- TEST_INIT -- -- DESCRIPTION: -- -- This subprogram performs test initialization. -- procedure TEST_INIT; -- -- TASK_1 -- -- DESCRIPTION: -- -- This RTEMS task is responsible for measuring and reporting the -- following directive execution times: -- -- + TASK_RESTART of SELF -- + TASK_SUSPEND of another task with no context switch -- + TASK_RESUME with no preemption -- + TASK_DELETE of another task -- procedure TASK_1 ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ); pragma Convention (C, TASK_1); -- -- NULL_TASK -- -- DESCRIPTION: -- -- This RTEMS task has no operations. It is used to have -- tasks to perform directives upon. -- procedure NULL_TASK ( ARGUMENT : in RTEMS.TASKS.ARGUMENT ); pragma Convention (C, NULL_TASK); end TMTEST;