source: rtems/c/src/ada-tests/sptests/sp20/sptest.ads @ 3d2bf71

4.104.114.95
Last change on this file since 3d2bf71 was 3d2bf71, checked in by Glenn Humphrey <glenn.humphrey@…>, on 10/18/07 at 19:36:29

2007-10-18 Glenn Humphrey <glenn.humphrey@…>

  • sptests/sp09/sp09.scn, sptests/sp09/sptest.adb, sptests/sp13/sp13.scn, sptests/sp13/sptest.adb, sptests/sp16/sp16.scn, sptests/sp16/sptest.adb, sptests/sp16/sptest.ads, sptests/sp20/sp20.scn, sptests/sp20/sptest.adb, sptests/sp20/sptest.ads: Updated tests to match the current C tests and regenerated the .scn files.
  • Property mode set to 100644
File size: 2.2 KB
Line 
1--
2--  SPTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 20 of the RTEMS
7--  Single Processor Test Suite.
8--
9--  DEPENDENCIES:
10--
11-- 
12--
13--  COPYRIGHT (c) 1989-1997.
14--  On-Line Applications Research Corporation (OAR).
15--
16--  The license and distribution terms for this file may in
17--  the file LICENSE in this distribution or at
18--  http://www.rtems.com/license/LICENSE.
19--
20--  $Id$
21--
22
23with RTEMS;
24
25package SPTEST is
26
27--
28--  These arrays contain the IDs and NAMEs of all RTEMS tasks created
29--  by this test.
30--
31
32   TASK_ID   : array ( 1 .. 6 ) of RTEMS.ID;
33   TASK_NAME : array ( 1 .. 6 ) of RTEMS.NAME;
34
35--
36--  These arrays contain the parameters which define the execution
37--  characteristics and periods of each instantiation of the
38--  copies of the RTEMS task TASKS_1_THROUGH_6.
39--
40
41   PERIODS : constant array ( 1 .. 6 )
42     of RTEMS.UNSIGNED32 := ( 2, 2, 2, 2, 100, 0 );
43
44   ITERATIONS : constant array ( 1 .. 6 )
45     of RTEMS.UNSIGNED32 := ( 50, 50, 50, 50, 1, 10 );
46
47   PRIORITIES : constant array ( 1 .. 6 )
48     of RTEMS.UNSIGNED32 := ( 1, 1, 3, 4, 5, 1 );
49
50--
51--  The following type defines the array used to manage the
52--  execution counts of each task's period.
53--
54
55   type COUNT_ARRAY is array ( 1 .. 6 ) of RTEMS.UNSIGNED32;
56
57--
58--  These arrays contains the number of periods successfully completed
59--  by each of the tasks.  At each of its periods, the fifth task
60--  will copy the contents of the COUNT array to TEMPORARY_COUNT,
61--  and clear the COUNT array.  The copy is performed to insure
62--  that no periods fire while it is verifying the correctness
63--  of the test's execution.
64--
65
66   COUNT           : SPTEST.COUNT_ARRAY;
67   TEMPORARY_COUNT : SPTEST.COUNT_ARRAY;
68
69--
70--  INIT
71--
72--  DESCRIPTION:
73--
74--  This RTEMS task initializes the application.
75--
76
77   procedure INIT (
78      ARGUMENT : in     RTEMS.TASK_ARGUMENT
79   );
80
81--
82--  TASK_1_THROUGH_6
83--
84--  DESCRIPTION:
85--
86--  These RTEMS tasks test the Rate Monotonic Manager.
87--
88
89   procedure TASK_1_THROUGH_6 (
90      ARGUMENT : in     RTEMS.TASK_ARGUMENT
91   );
92
93--
94--  GET_ALL_COUNTERS
95--
96--  DESCRIPTION:
97--
98--  This subprogram atomically copies the contents of COUNTER to
99--  TEMPORARY_COUNTER.
100--
101
102   procedure GET_ALL_COUNTERS;
103
104end SPTEST;
Note: See TracBrowser for help on using the repository browser.