source: rtems/c/src/ada-tests/tmtests/tm18/tmtest.ads @ bf9ae83

4.104.114.84.95
Last change on this file since bf9ae83 was bf9ae83, checked in by Joel Sherrill <joel.sherrill@…>, on Jun 2, 1997 at 8:32:11 PM

modified copyright notice to be the same as RTEMS 4.0.0.

changed the CVS ID string to be a "development" version.

  • Property mode set to 100644
File size: 3.1 KB
Line 
1--
2--  TMTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 18 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 RTEMS;
25with TIME_TEST_SUPPORT;
26with TIMER_DRIVER;
27
28package TMTEST is
29
30--
31--  The following variable is set to the execution time returned
32--  by the timer.
33--
34
35   END_TIME       : RTEMS.UNSIGNED32;
36
37--
38--  INIT
39--
40--  DESCRIPTION:
41--
42--  This RTEMS task initializes the application.
43--
44
45   procedure INIT (
46      ARGUMENT : in     RTEMS.TASK_ARGUMENT
47   );
48
49--
50--  TEST_INIT
51--
52--  DESCRIPTION:
53--
54--  This subprogram performs test initialization.
55--
56
57   procedure TEST_INIT;
58
59--
60--  FIRST_TASK
61--
62--  DESCRIPTION:
63--
64--  This RTEMS task is the first task to execute.  It starts the
65--  timer and performs a TASK_DELETE on itself.
66--
67
68   procedure FIRST_TASK (
69      ARGUMENT : in     RTEMS.TASK_ARGUMENT
70   );
71
72--
73--  MIDDLE_TASK
74--
75--  DESCRIPTION:
76--
77--  These RTEMS tasks perform a TASK_DELETE on themselves.
78--
79
80   procedure MIDDLE_TASKS (
81      ARGUMENT : in     RTEMS.TASK_ARGUMENT
82   );
83
84--
85--  LAST_TASK
86--
87--  DESCRIPTION:
88--
89--  This RTEMS task is the last task to execute.  It stops the
90--  timer and reports the execution time of a TASK_DELETE SELF.
91--
92
93   procedure LAST_TASK (
94      ARGUMENT : in     RTEMS.TASK_ARGUMENT
95   );
96
97--
98--  This is the Initialization Tasks Table for this test.
99--
100
101   INITIALIZATION_TASKS : aliased RTEMS.INITIALIZATION_TASKS_TABLE( 1 .. 1 ) := 
102   (1=>
103     (
104       RTEMS.BUILD_NAME( 'U', 'I', '1', ' ' ),        -- task name
105       2048,                                          -- stack size
106       1,                                             -- priority
107       RTEMS.DEFAULT_ATTRIBUTES,                      -- attributes
108       TMTEST.INIT'ACCESS,                            -- entry point
109       RTEMS.NO_PREEMPT,                              -- initial mode
110       0                                              -- argument list
111     )
112   );
113
114--
115--  This is the Configuration Table for this test.
116--
117
118   CONFIGURATION : aliased RTEMS.CONFIGURATION_TABLE := (
119      RTEMS.NULL_ADDRESS,        -- will be replaced by BSP
120      256 * 1024,                -- executive RAM size
121      111,                       -- maximum # tasks
122      0,                         -- maximum # timers
123      0,                         -- maximum # semaphores
124      1,                         -- maximum # message queues
125      100,                       -- maximum # messages
126      0,                         -- maximum # partitions
127      0,                         -- maximum # regions
128      0,                         -- maximum # dp memory areas
129      0,                         -- maximum # periods
130      0,                         -- maximum # user extensions
131      RTEMS.MILLISECONDS_TO_MICROSECONDS(10), -- # us in a tick
132      0                          -- # ticks in a timeslice
133  );
134
135end TMTEST;
Note: See TracBrowser for help on using the repository browser.