source: rtems/c/src/ada-tests/tmtests/tm04/tmtest.adb @ 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: 12.6 KB
Line 
1--
2--  TMTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Test 4 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 INTERFACES; use INTERFACES;
25with RTEMS;
26with RTEMS_CALLING_OVERHEAD;
27with TEST_SUPPORT;
28with TEXT_IO;
29with TIME_TEST_SUPPORT;
30with UNSIGNED32_IO;
31
32package body TMTEST is
33
34--PAGE
35--
36--  INIT
37--
38
39   procedure INIT (
40      ARGUMENT : in     RTEMS.TASK_ARGUMENT
41   ) is
42      STATUS  : RTEMS.STATUS_CODES;
43   begin
44
45      TEXT_IO.NEW_LINE( 2 );
46      TEXT_IO.PUT_LINE( "*** TIME TEST 4 ***" );
47
48      TMTEST.TEST_INIT;
49
50      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
51      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
52
53   end INIT;
54
55--PAGE
56--
57--  TEST_INIT
58--
59
60   procedure TEST_INIT
61   is
62      INDEX    : RTEMS.UNSIGNED32;
63      STATUS   : RTEMS.STATUS_CODES;
64   begin
65
66      TMTEST.TASK_COUNT := TIME_TEST_SUPPORT.OPERATION_COUNT;
67
68      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
69      loop
70
71         RTEMS.TASK_CREATE( 
72            RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' ),
73            10, 
74            1024, 
75            RTEMS.NO_PREEMPT,
76            RTEMS.DEFAULT_ATTRIBUTES,
77            TMTEST.TASK_ID( INDEX ),
78            STATUS
79         );
80         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE LOOP" );
81
82         RTEMS.TASK_START( 
83            TMTEST.TASK_ID( INDEX ),
84            TMTEST.LOW_TASKS'ACCESS, 
85            0, 
86            STATUS
87         );
88         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
89
90      end loop;
91
92      RTEMS.SEMAPHORE_CREATE(
93         RTEMS.BUILD_NAME( 'S', 'M', '1', ' ' ),
94         0,
95         RTEMS.DEFAULT_ATTRIBUTES,
96         TMTEST.SEMAPHORE_ID,
97         STATUS
98      );
99      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE OF SM1" );
100
101   end TEST_INIT;
102
103--PAGE
104--
105--  HIGHEST_TASK
106--
107
108   procedure HIGHEST_TASK (
109      ARGUMENT : in     RTEMS.TASK_ARGUMENT
110   ) is
111      OLD_PRIORITY : RTEMS.TASK_PRIORITY;
112      STATUS       : RTEMS.STATUS_CODES;
113   begin
114
115      if ARGUMENT = 1 then
116
117         TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
118
119         TIME_TEST_SUPPORT.PUT_TIME( 
120            "TASK_RESTART (blocked, preempt)",
121            TMTEST.END_TIME, 
122            1, 
123            0,
124            RTEMS_CALLING_OVERHEAD.TASK_RESTART
125         );
126 
127         RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 254, OLD_PRIORITY, STATUS );
128         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
129
130      elsif ARGUMENT = 2 then
131
132         TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
133
134         TIME_TEST_SUPPORT.PUT_TIME( 
135            "TASK_RESTART (ready, preempt)",
136            TMTEST.END_TIME, 
137            1, 
138            0,
139            RTEMS_CALLING_OVERHEAD.TASK_RESTART
140         );
141
142         RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
143         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
144 
145      else
146
147         RTEMS.SEMAPHORE_OBTAIN( 
148            TMTEST.SEMAPHORE_ID, 
149            RTEMS.DEFAULT_OPTIONS,
150            RTEMS.NO_TIMEOUT,
151            STATUS
152         );
153
154      end if;
155
156   end HIGHEST_TASK;
157
158--PAGE
159--
160--  HIGH_TASK
161--
162
163   procedure HIGH_TASK (
164      ARGUMENT : in     RTEMS.TASK_ARGUMENT
165   ) is
166      OLD_PRIORITY : RTEMS.TASK_PRIORITY;
167      INDEX        : RTEMS.UNSIGNED32;
168      OVERHEAD     : RTEMS.UNSIGNED32;
169      NAME         : RTEMS.NAME;
170      STATUS       : RTEMS.STATUS_CODES;
171   begin
172 
173      TIMER_DRIVER.INITIALIZE;
174         RTEMS.TASK_RESTART( TMTEST.HIGHEST_ID, 1, STATUS );
175      -- preempted by Higher_task
176
177      TIMER_DRIVER.INITIALIZE;
178         RTEMS.TASK_RESTART( TMTEST.HIGHEST_ID, 2, STATUS );
179      -- preempted by Higher_task
180
181      TIMER_DRIVER.INITIALIZE;
182         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
183         loop
184            TIMER_DRIVER.EMPTY_FUNCTION;
185         end loop;
186      OVERHEAD := TIMER_DRIVER.READ_TIMER;
187
188      TIMER_DRIVER.INITIALIZE;
189         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
190         loop
191            RTEMS.SEMAPHORE_RELEASE( TMTEST.SEMAPHORE_ID, STATUS );
192         end loop;
193      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
194
195      TIME_TEST_SUPPORT.PUT_TIME( 
196         "SEMAPHORE_RELEASE (readying)",
197         TMTEST.END_TIME, 
198         TIME_TEST_SUPPORT.OPERATION_COUNT, 
199         OVERHEAD,
200         RTEMS_CALLING_OVERHEAD.SEMAPHORE_RELEASE
201      );
202
203      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
204      loop
205         RTEMS.TASK_DELETE( TMTEST.TASK_ID( INDEX ), STATUS );
206         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
207      end loop;
208     
209      NAME := RTEMS.BUILD_NAME( 'T', 'I', 'M', 'E' );
210
211      TIMER_DRIVER.INITIALIZE;
212         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
213         loop
214            RTEMS.TASK_CREATE( 
215               NAME,
216               10, 
217               1024, 
218               RTEMS.NO_PREEMPT,
219               RTEMS.DEFAULT_ATTRIBUTES,
220               TMTEST.TASK_ID( INDEX ),
221               STATUS
222            );
223         end loop; 
224      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
225
226      TIME_TEST_SUPPORT.PUT_TIME( 
227         "TASK_CREATE",
228         TMTEST.END_TIME, 
229         TIME_TEST_SUPPORT.OPERATION_COUNT, 
230         OVERHEAD,
231         RTEMS_CALLING_OVERHEAD.TASK_CREATE
232      );
233
234      TIMER_DRIVER.INITIALIZE;
235         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
236         loop
237            RTEMS.TASK_START( 
238               TMTEST.TASK_ID( INDEX ),
239               TMTEST.LOW_TASKS'ACCESS, 
240               0, 
241               STATUS
242            );
243         end loop; 
244      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
245
246      TIME_TEST_SUPPORT.PUT_TIME( 
247         "TASK_START",
248         TMTEST.END_TIME, 
249         TIME_TEST_SUPPORT.OPERATION_COUNT, 
250         OVERHEAD,
251         RTEMS_CALLING_OVERHEAD.TASK_START
252      );
253
254      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
255      loop
256         RTEMS.TASK_DELETE( TMTEST.TASK_ID( INDEX ), STATUS );
257         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE LOOP" );
258      end loop;
259     
260      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
261      loop
262         RTEMS.TASK_CREATE( 
263            NAME,
264            250, 
265            1024, 
266            RTEMS.NO_PREEMPT,
267            RTEMS.DEFAULT_ATTRIBUTES,
268            TMTEST.TASK_ID( INDEX ),
269            STATUS
270         );
271         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE LOOP" );
272         RTEMS.TASK_START( 
273            TMTEST.TASK_ID( INDEX ),
274            TMTEST.RESTART_TASK'ACCESS, 
275            0, 
276            STATUS
277         );
278         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
279         RTEMS.TASK_SUSPEND( TMTEST.TASK_ID( INDEX ), STATUS );
280         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND LOOP" );
281      end loop;
282     
283      TIMER_DRIVER.INITIALIZE;
284         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
285         loop
286            RTEMS.TASK_RESTART( TMTEST.TASK_ID( INDEX ), 0, STATUS );
287         end loop; 
288      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
289
290      TIME_TEST_SUPPORT.PUT_TIME( 
291         "TASK_RESTART (suspended)",
292         TMTEST.END_TIME, 
293         TIME_TEST_SUPPORT.OPERATION_COUNT, 
294         OVERHEAD,
295         RTEMS_CALLING_OVERHEAD.TASK_RESTART
296      );
297
298      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
299      loop
300         RTEMS.TASK_SUSPEND( TMTEST.TASK_ID( INDEX ), STATUS );
301         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND LOOP" );
302      end loop;
303
304      TIMER_DRIVER.INITIALIZE;
305         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
306         loop
307            RTEMS.TASK_DELETE( TMTEST.TASK_ID( INDEX ), STATUS );
308         end loop; 
309      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
310
311      TIME_TEST_SUPPORT.PUT_TIME( 
312         "TASK_DELETE (suspended)",
313         TMTEST.END_TIME, 
314         TIME_TEST_SUPPORT.OPERATION_COUNT, 
315         OVERHEAD,
316         RTEMS_CALLING_OVERHEAD.TASK_DELETE
317      );
318
319      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
320      loop
321         RTEMS.TASK_CREATE( 
322            NAME,
323            250, 
324            1024, 
325            RTEMS.DEFAULT_OPTIONS,
326            RTEMS.DEFAULT_ATTRIBUTES,
327            TMTEST.TASK_ID( INDEX ),
328            STATUS
329         );
330         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE LOOP" );
331         RTEMS.TASK_START( 
332            TMTEST.TASK_ID( INDEX ),
333            TMTEST.RESTART_TASK'ACCESS, 
334            0, 
335            STATUS
336         );
337         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START LOOP" );
338      end loop;
339     
340      TIMER_DRIVER.INITIALIZE;
341         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
342         loop
343            RTEMS.TASK_RESTART( TMTEST.TASK_ID( INDEX ), 1, STATUS );
344         end loop; 
345      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
346
347      TIME_TEST_SUPPORT.PUT_TIME( 
348         "TASK_RESTART (ready)",
349         TMTEST.END_TIME, 
350         TIME_TEST_SUPPORT.OPERATION_COUNT, 
351         OVERHEAD,
352         RTEMS_CALLING_OVERHEAD.TASK_RESTART
353      );
354
355      for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
356      loop
357         RTEMS.TASK_SET_PRIORITY( 
358            TMTEST.TASK_ID( INDEX ), 
359            5, 
360            OLD_PRIORITY, 
361            STATUS
362         );
363         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY LOOP" );
364      end loop; 
365
366      -- yield processor -- tasks block
367      RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS ); 
368      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
369   
370      TIMER_DRIVER.INITIALIZE;
371         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
372         loop
373            RTEMS.TASK_RESTART( TMTEST.TASK_ID( INDEX ), 1, STATUS );
374         end loop; 
375      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
376
377      TIME_TEST_SUPPORT.PUT_TIME( 
378         "TASK_RESTART (blocked, no preempt)",
379         TMTEST.END_TIME, 
380         TIME_TEST_SUPPORT.OPERATION_COUNT, 
381         OVERHEAD,
382         RTEMS_CALLING_OVERHEAD.TASK_RESTART
383      );
384
385      -- yield processor -- tasks block
386      RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS ); 
387      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
388   
389      TIMER_DRIVER.INITIALIZE;
390         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
391         loop
392            RTEMS.TASK_DELETE( TMTEST.TASK_ID( INDEX ), STATUS );
393         end loop; 
394      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
395
396      TIME_TEST_SUPPORT.PUT_TIME( 
397         "TASK_DELETE (blocked)",
398         TMTEST.END_TIME, 
399         TIME_TEST_SUPPORT.OPERATION_COUNT, 
400         OVERHEAD,
401         RTEMS_CALLING_OVERHEAD.TASK_DELETE
402      );
403
404      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
405
406   end HIGH_TASK;
407
408--PAGE
409--
410--  LOW_TASKS
411--
412
413   procedure LOW_TASKS (
414      ARGUMENT : in     RTEMS.TASK_ARGUMENT
415   ) is
416      ID         : RTEMS.ID;
417      STATUS     : RTEMS.STATUS_CODES;
418   begin
419   
420      TMTEST.TASK_COUNT := TMTEST.TASK_COUNT - 1;
421
422      if TMTEST.TASK_COUNT = 0 then
423
424         RTEMS.TASK_CREATE( 
425            RTEMS.BUILD_NAME( 'H', 'I', ' ', ' ' ),
426            5, 
427            2048, 
428            RTEMS.DEFAULT_OPTIONS,
429            RTEMS.DEFAULT_ATTRIBUTES,
430            ID,
431            STATUS
432         );
433         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE HI" );
434
435         RTEMS.TASK_START( 
436            ID, 
437            TMTEST.HIGH_TASK'ACCESS, 
438            0, 
439            STATUS
440         );
441         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START HI" );
442
443
444         RTEMS.TASK_CREATE( 
445            RTEMS.BUILD_NAME( 'H', 'I', 'G', 'H' ),
446            3, 
447            2048, 
448            RTEMS.DEFAULT_OPTIONS,
449            RTEMS.DEFAULT_ATTRIBUTES,
450            TMTEST.HIGHEST_ID,
451            STATUS
452         );
453         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE HIGH" );
454
455         RTEMS.TASK_START( 
456            TMTEST.HIGHEST_ID, 
457            TMTEST.HIGHEST_TASK'ACCESS, 
458            0, 
459            STATUS
460         );
461         TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START HIGH" );
462
463
464      end if;
465
466      RTEMS.SEMAPHORE_OBTAIN( 
467         TMTEST.SEMAPHORE_ID, 
468         RTEMS.DEFAULT_OPTIONS,
469         RTEMS.NO_TIMEOUT,
470         STATUS
471      );
472
473   end LOW_TASKS;
474
475--PAGE
476--
477--  RESTART_TASK
478--
479
480   procedure RESTART_TASK (
481      ARGUMENT : in     RTEMS.TASK_ARGUMENT
482   ) is
483      INDEX    : RTEMS.UNSIGNED32;
484      PRIORITY : RTEMS.TASK_PRIORITY;
485      ID       : RTEMS.ID;
486      STATUS   : RTEMS.STATUS_CODES;
487   begin
488   
489      if ARGUMENT = 1 then
490         RTEMS.SEMAPHORE_OBTAIN( 
491            TMTEST.SEMAPHORE_ID, 
492            RTEMS.DEFAULT_OPTIONS,
493            RTEMS.NO_TIMEOUT,
494            STATUS
495         );
496      end if;
497
498   end RESTART_TASK;
499
500end TMTEST;
Note: See TracBrowser for help on using the repository browser.