source: rtems/c/src/ada-tests/mptests/mp05/mptest.ads @ 3d2a28d

4.104.114.95
Last change on this file since 3d2a28d was 23848bbd, checked in by Joel Sherrill <joel.sherrill@…>, on 10/01/07 at 22:58:09

2007-10-01 Joel Sherrill <joel.sherrill@…>

  • mptests/mp01/mptest.adb, mptests/mp01/mptest.ads, mptests/mp01/node1/Makefile.am, mptests/mp02/mptest.adb, mptests/mp02/mptest.ads, mptests/mp03/mptest.adb, mptests/mp03/mptest.ads, mptests/mp04/mptest.adb, mptests/mp04/mptest.ads, mptests/mp05/mptest.adb, mptests/mp05/mptest.ads, mptests/mp06/mptest.adb, mptests/mp06/mptest.ads, mptests/mp07/mptest.adb, mptests/mp07/mptest.ads, mptests/mp08/mptest.adb, mptests/mp08/mptest.ads, mptests/mp09/mptest.adb, mptests/mp09/mptest.ads, mptests/mp10/mptest.adb, mptests/mp10/mptest.ads, mptests/mp11/mptest.adb, mptests/mp11/mptest.ads, mptests/mp12/mptest.adb, mptests/mp12/mptest.ads, mptests/mp13/mptest.adb, mptests/mp13/mptest.ads, mptests/mp14/mptest.adb, mptests/mp14/mptest.ads, support/init.c, support/test_support.adb, support/test_support.ads: Most of single processor Ada tests now build. Some run.
  • Property mode set to 100644
File size: 2.6 KB
Line 
1--
2--  MPTEST / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package is the specification for Test 5 of the RTEMS
7--  Multiprocessor 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 MPTEST 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 ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
33   TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
34
35--
36--  These arrays contain the IDs and NAMEs of all RTEMS timers created
37--  by this test.
38--
39
40   TIMER_ID   : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.ID;
41   TIMER_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 2 ) of RTEMS.NAME;
42
43--
44--  This variable is set when the test should stop executing.
45--
46   STOP_TEST : BOOLEAN;
47
48--
49--  This variable contains the ID of the remote task with which this
50--  test interacts.
51--
52
53   REMOTE_TID  : RTEMS.ID;
54
55--
56--  This variable contains the node on which the remote task with which
57--  this test interacts resides.
58--
59
60   REMOTE_NODE : RTEMS.UNSIGNED32;
61
62--
63--  This is the signal set which is sent to the task on the other node.
64--
65
66   REMOTE_SIGNAL : RTEMS.SIGNAL_SET;
67
68--
69--  This is the signal set the task on this node expects to receive
70--  from the other node.
71--
72
73   EXPECTED_SIGNAL : RTEMS.SIGNAL_SET;
74
75--
76--  These keep track of if a signal set has been caught and how many
77--  signal sets have been caught cumulative.
78--
79
80   SIGNAL_CAUGHT : BOOLEAN;
81   SIGNAL_COUNT  : RTEMS.UNSIGNED32;
82
83--
84--  The number of signals to process per dot printed out.
85--
86
87   SIGNALS_PER_DOT : constant RTEMS.UNSIGNED32 := 15;
88
89--
90--  INIT
91--
92--  DESCRIPTION:
93--
94--  This RTEMS task initializes the application.
95--
96
97   procedure INIT (
98      ARGUMENT : in     RTEMS.TASK_ARGUMENT
99   );
100
101--
102--  PROCESS_ASR
103--
104--  DESCRIPTION:
105--
106--  This subprogram is an ASR for TEST_TASK.
107--
108
109   procedure PROCESS_ASR (
110      SIGNAL : in     RTEMS.SIGNAL_SET
111   );
112
113--
114--  STOP_TEST_TSR
115--
116--  DESCRIPTION:
117--
118--  This subprogram is a TSR which sets the "stop test" flag.
119--
120 
121   procedure STOP_TEST_TSR (
122      IGNORED_ID      : in     RTEMS.ID;
123      IGNORED_ADDRESS : in     RTEMS.ADDRESS
124   );
125
126--
127--  TEST_TASK
128--
129--  DESCRIPTION:
130--
131--  This is the body of the RTEMS tasks which constitute this test.
132--
133
134   procedure TEST_TASK (
135      ARGUMENT : in     RTEMS.TASK_ARGUMENT
136   );
137
138end MPTEST;
Note: See TracBrowser for help on using the repository browser.