source: rtems/c/src/ada-tests/tmtests/tm04/tmtest.adb @ f3f06f79

4.104.114.84.95
Last change on this file since f3f06f79 was bf9ae83, checked in by Joel Sherrill <joel.sherrill@…>, on 06/02/97 at 20:32:11

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.