source: rtems/c/src/ada-tests/mptests/mp10/mptest.adb @ 0f4b25df

4.104.114.84.95
Last change on this file since 0f4b25df was 35e4691, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 4, 2003 at 6:50:41 PM

2003-09-04 Joel Sherrill <joel@…>

  • mptests/mp01/config.h, mptests/mp01/mp01.adb, mptests/mp01/mptest.adb, mptests/mp01/mptest.ads, 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, samples/base_mp/config.h, samples/base_mp/mptest.adb, samples/base_mp/mptest.ads, samples/base_sp/base_sp.adb, samples/base_sp/config.h, samples/base_sp/sptest.adb, samples/base_sp/sptest.ads, samples/hello/config.h, samples/hello/hello.adb, samples/hello/sptest.adb, samples/hello/sptest.ads, samples/ticker/config.h, samples/ticker/sptest.adb, samples/ticker/sptest.ads, samples/ticker/ticker.adb, sptests/sp01/config.h, sptests/sp01/sp01.adb, sptests/sp01/sptest.adb, sptests/sp01/sptest.ads, sptests/sp02/config.h, sptests/sp02/sp02.adb, sptests/sp02/sptest.adb, sptests/sp02/sptest.ads, sptests/sp03/config.h, sptests/sp03/sp03.adb, sptests/sp03/sptest.adb, sptests/sp03/sptest.ads, sptests/sp04/config.h, sptests/sp04/sp04.adb, sptests/sp04/sptest.adb, sptests/sp04/sptest.ads, sptests/sp05/config.h, sptests/sp05/sp05.adb, sptests/sp05/sptest.adb, sptests/sp05/sptest.ads, sptests/sp06/config.h, sptests/sp06/sp06.adb, sptests/sp06/sptest.adb, sptests/sp06/sptest.ads, sptests/sp07/config.h, sptests/sp07/sp07.adb, sptests/sp07/sptest.adb, sptests/sp07/sptest.ads, sptests/sp08/config.h, sptests/sp08/sp08.adb, sptests/sp08/sptest.adb, sptests/sp08/sptest.ads, sptests/sp09/config.h, sptests/sp09/sp09.adb, sptests/sp09/sptest.adb, sptests/sp09/sptest.ads, sptests/sp11/config.h, sptests/sp11/sp11.adb, sptests/sp11/sptest.adb, sptests/sp11/sptest.ads, sptests/sp12/config.h, sptests/sp12/sp12.adb, sptests/sp12/sptest.adb, sptests/sp12/sptest.ads, sptests/sp13/config.h, sptests/sp13/sp13.adb, sptests/sp13/sptest.adb, sptests/sp13/sptest.ads, sptests/sp14/config.h, sptests/sp14/sp14.adb, sptests/sp14/sptest.adb, sptests/sp14/sptest.ads, sptests/sp15/config.h, sptests/sp15/sp15.adb, sptests/sp15/sptest.adb, sptests/sp15/sptest.ads, sptests/sp16/config.h, sptests/sp16/sp16.adb, sptests/sp16/sptest.adb, sptests/sp16/sptest.ads, sptests/sp17/config.h, sptests/sp17/sp17.adb, sptests/sp17/sptest.adb, sptests/sp17/sptest.ads, sptests/sp19/config.h, sptests/sp19/sp19.adb, sptests/sp19/sptest.ads, sptests/sp20/config.h, sptests/sp20/sp20.adb, sptests/sp20/sptest.adb, sptests/sp20/sptest.ads, sptests/sp21/config.h, sptests/sp21/sp21.adb, sptests/sp21/sptest.adb, sptests/sp21/sptest.ads, sptests/sp22/config.h, sptests/sp22/sp22.adb, sptests/sp22/sptest.adb, sptests/sp22/sptest.ads, sptests/sp23/config.h, sptests/sp23/sp23.adb, sptests/sp23/sptest.adb, sptests/sp23/sptest.ads, sptests/sp24/config.h, sptests/sp24/sp24.adb, sptests/sp24/sptest.adb, sptests/sp24/sptest.ads, sptests/sp25/config.h, sptests/sp25/sp25.adb, sptests/sp25/sptest.adb, sptests/sp25/sptest.ads, sptests/spsize/spsize.adb, sptests/spsize/sptest.adb, sptests/spsize/sptest.ads, support/address_io.adb, support/address_io.ads, support/float_io.ads, support/fp.inc, support/integer.inc, support/rtems_calling_overhead.ads, support/status_io.ads, support/test_support.adb, support/test_support.ads, support/time_test_support.adb, support/time_test_support.ads, support/timer_driver.adb, support/timer_driver.ads, support/unsigned32_io.ads, tmtests/tm01/config.h, tmtests/tm01/tm01.adb, tmtests/tm01/tmtest.adb, tmtests/tm01/tmtest.ads, tmtests/tm02/config.h, tmtests/tm02/tm02.adb, tmtests/tm02/tmtest.adb, tmtests/tm02/tmtest.ads, tmtests/tm03/config.h, tmtests/tm03/tm03.adb, tmtests/tm03/tmtest.adb, tmtests/tm03/tmtest.ads, tmtests/tm04/config.h, tmtests/tm04/tm04.adb, tmtests/tm04/tmtest.adb, tmtests/tm04/tmtest.ads, tmtests/tm05/config.h, tmtests/tm05/tm05.adb, tmtests/tm05/tmtest.adb, tmtests/tm05/tmtest.ads, tmtests/tm06/config.h, tmtests/tm06/tm06.adb, tmtests/tm06/tmtest.adb, tmtests/tm06/tmtest.ads, tmtests/tm07/config.h, tmtests/tm07/tm07.adb, tmtests/tm07/tmtest.adb, tmtests/tm07/tmtest.ads, tmtests/tm08/config.h, tmtests/tm08/tm08.adb, tmtests/tm08/tmtest.adb, tmtests/tm08/tmtest.ads, tmtests/tm09/config.h, tmtests/tm09/tm09.adb, tmtests/tm09/tmtest.adb, tmtests/tm09/tmtest.ads, tmtests/tm10/config.h, tmtests/tm10/tm10.adb, tmtests/tm10/tmtest.adb, tmtests/tm10/tmtest.ads, tmtests/tm11/config.h, tmtests/tm11/tm11.adb, tmtests/tm11/tmtest.adb, tmtests/tm11/tmtest.ads, tmtests/tm12/config.h, tmtests/tm12/tm12.adb, tmtests/tm12/tmtest.adb, tmtests/tm12/tmtest.ads, tmtests/tm13/config.h, tmtests/tm13/tm13.adb, tmtests/tm13/tmtest.adb, tmtests/tm13/tmtest.ads, tmtests/tm14/config.h, tmtests/tm14/tm14.adb, tmtests/tm14/tmtest.adb, tmtests/tm14/tmtest.ads, tmtests/tm15/config.h, tmtests/tm15/tm15.adb, tmtests/tm15/tmtest.adb, tmtests/tm15/tmtest.ads, tmtests/tm16/config.h, tmtests/tm16/tm16.adb, tmtests/tm16/tmtest.adb, tmtests/tm16/tmtest.ads, tmtests/tm17/config.h, tmtests/tm17/tm17.adb, tmtests/tm17/tmtest.adb, tmtests/tm17/tmtest.ads, tmtests/tm18/config.h, tmtests/tm18/tm18.adb, tmtests/tm18/tmtest.adb, tmtests/tm18/tmtest.ads, tmtests/tm19/config.h, tmtests/tm19/tm19.adb, tmtests/tm19/tmtest.adb, tmtests/tm19/tmtest.ads, tmtests/tm20/config.h, tmtests/tm20/tm20.adb, tmtests/tm20/tmtest.adb, tmtests/tm20/tmtest.ads, tmtests/tm21/config.h, tmtests/tm21/tm21.adb, tmtests/tm21/tmtest.adb, tmtests/tm21/tmtest.ads, tmtests/tm22/config.h, tmtests/tm22/tm22.adb, tmtests/tm22/tmtest.adb, tmtests/tm22/tmtest.ads, tmtests/tm23/config.h, tmtests/tm23/tm23.adb, tmtests/tm23/tmtest.adb, tmtests/tm23/tmtest.ads, tmtests/tm24/config.h, tmtests/tm24/tm24.adb, tmtests/tm24/tmtest.adb, tmtests/tm24/tmtest.ads, tmtests/tm25/config.h, tmtests/tm25/tm25.adb, tmtests/tm25/tmtest.adb, tmtests/tm25/tmtest.ads, tmtests/tm28/config.h, tmtests/tm28/tm28.adb, tmtests/tm28/tmtest.adb, tmtests/tm28/tmtest.ads, tmtests/tm29/config.h, tmtests/tm29/tm29.adb, tmtests/tm29/tmtest.adb, tmtests/tm29/tmtest.ads, tmtests/tmck/config.h, tmtests/tmck/tmck.adb, tmtests/tmck/tmtest.adb, tmtests/tmck/tmtest.ads, tmtests/tmoverhd/config.h, tmtests/tmoverhd/dummy_rtems.adb, tmtests/tmoverhd/dummy_rtems.ads, tmtests/tmoverhd/tmoverhd.adb, tmtests/tmoverhd/tmtest.adb, tmtests/tmoverhd/tmtest.ads: URL for license changed.
  • Property mode set to 100644
File size: 7.6 KB
Line 
1--
2--  MPTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation for Test 10 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 INTERFACES; use INTERFACES;
24with RTEMS;
25with TEST_SUPPORT;
26with TEXT_IO;
27with UNSIGNED32_IO;
28
29package body MPTEST is
30
31   package body PER_NODE_CONFIGURATION is separate;
32
33--PAGE
34--
35--  INIT
36--
37
38   procedure INIT (
39      ARGUMENT : in     RTEMS.TASK_ARGUMENT
40   ) is
41      STATUS : RTEMS.STATUS_CODES;
42   begin
43
44      TEXT_IO.NEW_LINE( 2 );
45      TEXT_IO.PUT( "*** TEST 10 -- NODE " );
46      UNSIGNED32_IO.PUT(
47         MPTEST.MULTIPROCESSING_CONFIGURATION.NODE,
48         WIDTH => 1
49      );
50      TEXT_IO.PUT_LINE( " ***" );
51
52
53      MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
54      MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME(  'T', 'A', '2', ' ' );
55      MPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME(  'S', 'A', '3', ' ' );
56
57      MPTEST.QUEUE_NAME( 1 ) := RTEMS.BUILD_NAME(  'M', 'S', 'G', ' ' );
58
59      MPTEST.SEMAPHORE_NAME( 1 ) := RTEMS.BUILD_NAME(  'S', 'E', 'M', ' ' );
60
61      if MPTEST.MULTIPROCESSING_CONFIGURATION.NODE = 1 then
62
63         TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
64         RTEMS.MESSAGE_QUEUE_CREATE(
65            MPTEST.QUEUE_NAME( 1 ),
66            3,
67            RTEMS.GLOBAL + RTEMS.LIMIT,
68            MPTEST.QUEUE_ID( 1 ),
69            STATUS
70         );
71         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
72
73         TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
74         RTEMS.SEMAPHORE_CREATE(
75            MPTEST.SEMAPHORE_NAME( 1 ),
76            0,
77            RTEMS.GLOBAL + RTEMS.PRIORITY,
78            MPTEST.SEMAPHORE_ID( 1 ),
79            STATUS
80         );
81         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
82
83         RTEMS.TASK_WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
84         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
85
86      else
87
88         TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
89         RTEMS.TASK_CREATE(
90            MPTEST.TASK_NAME( 1 ),
91            1,
92            2048,
93            RTEMS.TIMESLICE,
94            RTEMS.DEFAULT_ATTRIBUTES,
95            MPTEST.TASK_ID( 1 ),
96            STATUS
97         );
98         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
99
100         TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
101         RTEMS.TASK_START(
102            MPTEST.TASK_ID( 1 ),
103            MPTEST.TEST_TASK_1'ACCESS,
104            0,
105            STATUS
106         );
107         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
108
109         TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
110         RTEMS.TASK_CREATE(
111            MPTEST.TASK_NAME( 2 ),
112            1,
113            2048,
114            RTEMS.TIMESLICE,
115            RTEMS.DEFAULT_ATTRIBUTES,
116            MPTEST.TASK_ID( 2 ),
117            STATUS
118         );   
119         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
120 
121         TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
122         RTEMS.TASK_START(
123            MPTEST.TASK_ID( 2 ),
124            MPTEST.TEST_TASK_2'ACCESS,
125            0,
126            STATUS
127         );   
128         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
129
130         TEXT_IO.PUT_LINE( "Creating Test_task 3 (local)" );
131         RTEMS.TASK_CREATE(
132            MPTEST.TASK_NAME( 3 ),
133            1,
134            2048,
135            RTEMS.TIMESLICE,
136            RTEMS.DEFAULT_ATTRIBUTES,
137            MPTEST.TASK_ID( 3 ),
138            STATUS
139         );   
140         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
141 
142         TEXT_IO.PUT_LINE( "Starting Test_task 3 (local)" );
143         RTEMS.TASK_START(
144            MPTEST.TASK_ID( 3 ),
145            MPTEST.TEST_TASK_3'ACCESS,
146            0,
147            STATUS
148         );   
149         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
150
151         TEXT_IO.PUT_LINE( "Sleeping for 1 second ..." );
152         RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
153         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
154
155         TEXT_IO.PUT_LINE( "Deleting Test_task 2" );
156         RTEMS.TASK_DELETE( MPTEST.TASK_ID( 2 ), STATUS );
157         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 2" );
158
159         TEXT_IO.PUT_LINE( "Deleting Test_task 1" );
160         RTEMS.TASK_DELETE( MPTEST.TASK_ID( 1 ), STATUS );
161         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 1" );
162
163         TEXT_IO.PUT_LINE( "Restarting Test_task 3" );
164         RTEMS.TASK_RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
165         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF 3" );
166
167      end if;
168
169      TEXT_IO.PUT_LINE( "*** END OF TEST 10 ***" );
170
171      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
172
173   end INIT;
174
175--PAGE
176--
177--  TEST_TASK_1
178--
179
180   procedure TEST_TASK_1 (
181      ARGUMENT : in     RTEMS.TASK_ARGUMENT
182   ) is
183      COUNT               : RTEMS.UNSIGNED32;
184      RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
185      RECEIVE_BUFFER      : RTEMS.BUFFER_POINTER;
186      STATUS              : RTEMS.STATUS_CODES;
187   begin
188
189      RECEIVE_BUFFER :=
190         RTEMS.TO_BUFFER_POINTER( RECEIVE_BUFFER_AREA'ADDRESS );
191
192      TEXT_IO.PUT_LINE( "Getting QID of message queue" );
193
194      loop
195
196         RTEMS.MESSAGE_QUEUE_IDENT(
197            MPTEST.QUEUE_NAME( 1 ),
198            RTEMS.SEARCH_ALL_NODES,
199            MPTEST.QUEUE_ID( 1 ),
200            STATUS
201         );
202
203         exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
204
205      end loop;
206
207      TEXT_IO.PUT_LINE( "Attempting to receive message ..." );
208      RTEMS.MESSAGE_QUEUE_RECEIVE(
209         MPTEST.QUEUE_ID( 1 ),
210         RECEIVE_BUFFER,
211         RTEMS.DEFAULT_OPTIONS,
212         RTEMS.NO_TIMEOUT,
213         STATUS
214      );
215      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_RECEIVE" );
216
217   end TEST_TASK_1;
218
219--PAGE
220--
221--  TEST_TASK_2
222--
223 
224   procedure TEST_TASK_2 (
225      ARGUMENT : in     RTEMS.TASK_ARGUMENT
226   ) is
227      STATUS : RTEMS.STATUS_CODES;
228   begin 
229 
230      TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
231
232      loop
233
234         RTEMS.SEMAPHORE_IDENT(
235            MPTEST.SEMAPHORE_NAME( 1 ),
236            RTEMS.SEARCH_ALL_NODES,
237            MPTEST.SEMAPHORE_ID( 1 ),
238            STATUS
239         ); 
240 
241         exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
242
243      end loop;
244
245      TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
246      RTEMS.SEMAPHORE_OBTAIN(
247         MPTEST.SEMAPHORE_ID( 1 ),
248         RTEMS.DEFAULT_OPTIONS,
249         RTEMS.NO_TIMEOUT,
250         STATUS
251      ); 
252      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
253 
254   end TEST_TASK_2;
255
256--PAGE
257--
258--  TEST_TASK_3
259--
260 
261   procedure TEST_TASK_3 ( 
262      RESTART : in     RTEMS.TASK_ARGUMENT 
263   ) is 
264      STATUS : RTEMS.STATUS_CODES;
265   begin
266
267      if RESTART = 1 then
268
269         RTEMS.TASK_DELETE( RTEMS.SELF, STATUS ); 
270         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
271
272      end if;
273
274      TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
275
276      loop
277
278         RTEMS.SEMAPHORE_IDENT(
279            MPTEST.SEMAPHORE_NAME( 1 ),
280            RTEMS.SEARCH_ALL_NODES,
281            MPTEST.SEMAPHORE_ID( 1 ),
282            STATUS   
283         ); 
284
285         exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
286
287      end loop;
288
289      TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
290      RTEMS.SEMAPHORE_OBTAIN(
291         MPTEST.SEMAPHORE_ID( 1 ),
292         RTEMS.DEFAULT_OPTIONS,
293         RTEMS.NO_TIMEOUT, 
294         STATUS 
295      ); 
296      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
297 
298   end TEST_TASK_3; 
299 
300end MPTEST;
Note: See TracBrowser for help on using the repository browser.