source: rtems/c/src/ada-tests/tmtests/tm02/tmtest.ads @ b4be04e

4.104.114.84.95
Last change on this file since b4be04e was b4be04e, checked in by Joel Sherrill <joel.sherrill@…>, on 06/03/97 at 20:24:11

Removed Configuration Table information.

  • Property mode set to 100644
File size: 1.6 KB
Line 
1--
2--  TMTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 2 of the RTEMS
7--  Timing Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-1997.
14--  On-Line Applications Research Corporation (OAR).
15--  Copyright assigned to U.S. Government, 1994.
16--
17--  The license and distribution terms for this file may in
18--  the file LICENSE in this distribution or at
19--  http://www.OARcorp.com/rtems/license.html.
20--
21--  $Id$
22--
23
24with TIMER_DRIVER;
25with RTEMS;
26
27package TMTEST is
28
29--
30--  The following is the ID of the semaphore used for timing operations.
31--
32
33   SEMAPHORE_ID : RTEMS.ID;
34
35--
36--  The following variable is set to the execution time returned
37--  by the timer.
38--
39
40   END_TIME  : RTEMS.UNSIGNED32;
41
42--
43--  INIT
44--
45--  DESCRIPTION:
46--
47--  This RTEMS task initializes the application.
48--
49
50   procedure INIT (
51      ARGUMENT : in     RTEMS.TASK_ARGUMENT
52   );
53
54--
55--  TEST_INIT
56--
57--  DESCRIPTION:
58--
59--  This subprogram performs test initialization.
60--
61
62   procedure TEST_INIT;
63
64--
65--  HIGH_TASK
66--
67--  DESCRIPTION:
68--
69--  This RTEMS task starts the timer and performs a blocking
70--  SEMAPHORE_OBTAIN.
71--
72
73   procedure HIGH_TASK (
74      ARGUMENT : in     RTEMS.TASK_ARGUMENT
75   );
76
77--
78--  MIDDLE_TASKS
79--
80--  DESCRIPTION:
81--
82--  These RTEMS task start the timer and performs a blocking
83--  SEMAPHORE_OBTAIN.
84--
85
86   procedure MIDDLE_TASKS (
87      ARGUMENT : in     RTEMS.TASK_ARGUMENT
88   );
89
90--
91--  LOW_TASK
92--
93--  DESCRIPTION:
94--
95--  This RTEMS task stops the timer and reports the execution time for
96--  a blocking SEMAPHORE_OBTAIN.
97--
98
99   procedure LOW_TASK (
100      ARGUMENT : in     RTEMS.TASK_ARGUMENT
101   );
102
103end TMTEST;
Note: See TracBrowser for help on using the repository browser.