source: rtems/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @ 20b21be

4.104.114.84.95
Last change on this file since 20b21be was 20b21be, checked in by Joel Sherrill <joel.sherrill@…>, on 05/05/05 at 18:35:16

2005-05-05 Joel Sherrill <joel@…>

  • sptests/sp04/sptest.adb, tmtests/tm02/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Removed warnings.
  • Property mode set to 100644
File size: 37.1 KB
Line 
1--
2--  TMTEST / BODY
3--
4--  DESCRIPTION:
5--
6--  This package is the implementation of Calling Overhead Test 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--
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 DUMMY_RTEMS;
24with INTERFACES; use INTERFACES;
25with RTEMS;
26with TEST_SUPPORT;
27with TEXT_IO;
28with TIME_TEST_SUPPORT;
29with UNSIGNED32_IO;
30
31package body TMTEST is
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_LINE( "*** TIME TEST OVERHEAD ***" );
46
47      TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE );
48
49      TMTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME(  'T', 'A', '1', ' ' );
50
51      RTEMS.TASK_CREATE(
52         TMTEST.TASK_NAME( 1 ),
53         254,
54         2048,
55         RTEMS.DEFAULT_MODES,
56         RTEMS.DEFAULT_ATTRIBUTES,
57         TMTEST.TASK_ID( 1 ),
58         STATUS
59      );
60      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
61
62      RTEMS.TASK_START(
63         TMTEST.TASK_ID( 1 ),
64         TMTEST.TASK_1'ACCESS,
65         0,
66         STATUS
67      );
68      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
69
70      RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
71      TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
72
73   end INIT;
74
75--PAGE
76--
77--  TIMER_HANDLER
78--
79
80   procedure TIMER_HANDLER (
81      IGNORED_ID      : in     RTEMS.ID;
82      IGNORED_ADDRESS : in     RTEMS.ADDRESS
83   ) is
84   begin
85
86      NULL;
87
88   end TIMER_HANDLER;
89
90--PAGE
91--
92--  ISR_HANDLER
93--
94
95   procedure ISR_HANDLER (
96      VECTOR : in     RTEMS.VECTOR_NUMBER
97   ) is
98   begin
99
100      NULL;
101
102   end ISR_HANDLER;
103
104--PAGE
105--
106--  ASR_HANDLER
107--
108
109   procedure ASR_HANDLER (
110      SIGNALS : in     RTEMS.SIGNAL_SET
111   ) is
112   begin
113
114      NULL;
115
116   end ASR_HANDLER;
117
118--PAGE
119--
120--  TASK_1
121--
122
123   CPU_TABLE      : aliased RTEMS.CPU_TABLE;
124
125   procedure TASK_1 (
126      ARGUMENT : in     RTEMS.TASK_ARGUMENT
127   ) is
128      NAME           : RTEMS.NAME;
129      OVERHEAD       : RTEMS.UNSIGNED32;
130      ID             : RTEMS.ID;
131      IN_PRIORITY    : RTEMS.TASK_PRIORITY;
132      OUT_PRIORITY   : RTEMS.TASK_PRIORITY;
133      IN_MODE        : RTEMS.MODE;
134      MASK           : RTEMS.MODE;
135      OUT_MODE       : RTEMS.MODE;
136      NOTE           : RTEMS.UNSIGNED32;
137      TIME           : RTEMS.TIME_OF_DAY;
138      TIMEOUT        : RTEMS.INTERVAL;
139      SIGNALS        : RTEMS.SIGNAL_SET;
140      ADDRESS_1      : RTEMS.ADDRESS;
141      EVENTS         : RTEMS.SIGNAL_SET;
142      BUFFER         : TMTEST.BUFFER;
143      BUFFER_POINTER : RTEMS.ADDRESS;
144      MESSAGE_SIZE   : RTEMS.UNSIGNED32;
145      COUNT          : RTEMS.UNSIGNED32;
146      MAJOR          : RTEMS.DEVICE_MAJOR_NUMBER;
147      MINOR          : RTEMS.DEVICE_MINOR_NUMBER;
148      ERROR          : RTEMS.UNSIGNED32;
149      STATUS         : RTEMS.STATUS_CODES;
150   begin
151
152      NAME := RTEMS.BUILD_NAME(  'N', 'A', 'M', 'E' );
153
154      BUFFER_POINTER := BUFFER'ADDRESS;
155      OVERHEAD := 0;
156      IN_PRIORITY := 0;
157      IN_MODE := 0;
158      MASK := 0;
159      SIGNALS := 0;
160      EVENTS := 0;
161      MAJOR := 0;
162      MINOR := 0;
163      ERROR := 0;
164     
165-- INITIALIZE_EXECUTIVE
166
167      TIMER_DRIVER.INITIALIZE;
168         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
169         loop
170            DUMMY_RTEMS.INITIALIZE_EXECUTIVE(
171               RTEMS.CONFIGURATION,
172               CPU_TABLE'ACCESS
173            );
174         end loop;
175      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
176
177      TIME_TEST_SUPPORT.PUT_TIME(
178         "INITIALIZE_EXECUTIVE",
179         TMTEST.END_TIME,
180         TIME_TEST_SUPPORT.OPERATION_COUNT,
181         OVERHEAD,
182         0
183      );
184
185-- SHUTDOWN_EXECUTIVE
186
187      TIMER_DRIVER.INITIALIZE;
188         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
189         loop
190            DUMMY_RTEMS.SHUTDOWN_EXECUTIVE( ERROR );
191         end loop;
192      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
193
194      TIME_TEST_SUPPORT.PUT_TIME(
195         "SHUTDOWN_EXECUTIVE",
196         TMTEST.END_TIME,
197         TIME_TEST_SUPPORT.OPERATION_COUNT,
198         OVERHEAD,
199         0
200      );
201
202-- TASK_CREATE
203
204      TIMER_DRIVER.INITIALIZE;
205         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
206         loop
207            DUMMY_RTEMS.TASK_CREATE(
208               NAME,
209               IN_PRIORITY,
210               2048,
211               RTEMS.DEFAULT_MODES,
212               RTEMS.DEFAULT_ATTRIBUTES,
213               ID,
214               STATUS
215            );
216         end loop;
217      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
218
219      TIME_TEST_SUPPORT.PUT_TIME(
220         "TASK_CREATE",
221         TMTEST.END_TIME,
222         TIME_TEST_SUPPORT.OPERATION_COUNT,
223         OVERHEAD,
224         0
225      );
226
227-- TASK_IDENT
228
229      TIMER_DRIVER.INITIALIZE;
230         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
231         loop
232            DUMMY_RTEMS.TASK_IDENT(
233               NAME,
234               RTEMS.SEARCH_ALL_NODES,
235               ID,
236               STATUS
237            );
238         end loop;
239      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
240
241      TIME_TEST_SUPPORT.PUT_TIME(
242         "TASK_IDENT",
243         TMTEST.END_TIME,
244         TIME_TEST_SUPPORT.OPERATION_COUNT,
245         OVERHEAD,
246         0
247      );
248
249-- TASK_START
250
251      TIMER_DRIVER.INITIALIZE;
252         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
253         loop
254            DUMMY_RTEMS.TASK_START( ID, TMTEST.TASK_1'ACCESS, 0, STATUS );
255         end loop;
256      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
257
258      TIME_TEST_SUPPORT.PUT_TIME(
259         "TASK_START",
260         TMTEST.END_TIME,
261         TIME_TEST_SUPPORT.OPERATION_COUNT,
262         OVERHEAD,
263         0
264      );
265
266-- TASK_RESTART
267
268      TIMER_DRIVER.INITIALIZE;
269         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
270         loop
271            DUMMY_RTEMS.TASK_RESTART( ID, 0, STATUS );
272         end loop;
273      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
274
275      TIME_TEST_SUPPORT.PUT_TIME(
276         "TASK_RESTART",
277         TMTEST.END_TIME,
278         TIME_TEST_SUPPORT.OPERATION_COUNT,
279         OVERHEAD,
280         0
281      );
282
283-- TASK_DELETE
284
285      TIMER_DRIVER.INITIALIZE;
286         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
287         loop
288            DUMMY_RTEMS.TASK_DELETE( ID, STATUS );
289         end loop;
290      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
291
292      TIME_TEST_SUPPORT.PUT_TIME(
293         "TASK_DELETE",
294         TMTEST.END_TIME,
295         TIME_TEST_SUPPORT.OPERATION_COUNT,
296         OVERHEAD,
297         0
298      );
299
300-- TASK_SUSPEND
301
302      TIMER_DRIVER.INITIALIZE;
303         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
304         loop
305            DUMMY_RTEMS.TASK_SUSPEND( ID, STATUS );
306         end loop;
307      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
308
309      TIME_TEST_SUPPORT.PUT_TIME(
310         "TASK_SUSPEND",
311         TMTEST.END_TIME,
312         TIME_TEST_SUPPORT.OPERATION_COUNT,
313         OVERHEAD,
314         0
315      );
316
317-- TASK_RESUME
318
319      TIMER_DRIVER.INITIALIZE;
320         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
321         loop
322            DUMMY_RTEMS.TASK_RESUME( ID, STATUS );
323         end loop;
324      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
325
326      TIME_TEST_SUPPORT.PUT_TIME(
327         "TASK_RESUME",
328         TMTEST.END_TIME,
329         TIME_TEST_SUPPORT.OPERATION_COUNT,
330         OVERHEAD,
331         0
332      );
333
334-- TASK_SET_PRIORITY
335
336      TIMER_DRIVER.INITIALIZE;
337         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
338         loop
339            DUMMY_RTEMS.TASK_SET_PRIORITY(
340               ID,
341               IN_PRIORITY,
342               OUT_PRIORITY,
343               STATUS
344            );
345         end loop;
346      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
347
348      TIME_TEST_SUPPORT.PUT_TIME(
349         "TASK_SET_PRIORITY",
350         TMTEST.END_TIME,
351         TIME_TEST_SUPPORT.OPERATION_COUNT,
352         OVERHEAD,
353         0
354      );
355
356-- TASK_MODE
357
358      TIMER_DRIVER.INITIALIZE;
359         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
360         loop
361            DUMMY_RTEMS.TASK_MODE(
362               IN_MODE,
363               MASK,
364               OUT_MODE,
365               STATUS
366            );
367         end loop;
368      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
369
370      TIME_TEST_SUPPORT.PUT_TIME(
371         "TASK_MODE",
372         TMTEST.END_TIME,
373         TIME_TEST_SUPPORT.OPERATION_COUNT,
374         OVERHEAD,
375         0
376      );
377
378-- TASK_GET_NOTE
379
380      TIMER_DRIVER.INITIALIZE;
381         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
382         loop
383            DUMMY_RTEMS.TASK_GET_NOTE( ID, 1, NOTE, STATUS );
384         end loop;
385      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
386
387      TIME_TEST_SUPPORT.PUT_TIME(
388         "TASK_GET_NOTE",
389         TMTEST.END_TIME,
390         TIME_TEST_SUPPORT.OPERATION_COUNT,
391         OVERHEAD,
392         0
393      );
394
395-- TASK_SET_NOTE
396
397      TIMER_DRIVER.INITIALIZE;
398         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
399         loop
400            DUMMY_RTEMS.TASK_SET_NOTE( ID, 1, NOTE, STATUS );
401         end loop;
402      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
403
404      TIME_TEST_SUPPORT.PUT_TIME(
405         "TASK_SET_NOTE",
406         TMTEST.END_TIME,
407         TIME_TEST_SUPPORT.OPERATION_COUNT,
408         OVERHEAD,
409         0
410      );
411
412-- TASK_WAKE_WHEN
413
414      TIMER_DRIVER.INITIALIZE;
415         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
416         loop
417            DUMMY_RTEMS.TASK_WAKE_WHEN( TIME, STATUS );
418         end loop;
419      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
420
421      TIME_TEST_SUPPORT.PUT_TIME(
422         "TASK_WAKE_WHEN",
423         TMTEST.END_TIME,
424         TIME_TEST_SUPPORT.OPERATION_COUNT,
425         OVERHEAD,
426         0
427      );
428
429-- TASK_WAKE_AFTER
430
431      TIMER_DRIVER.INITIALIZE;
432         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
433         loop
434            DUMMY_RTEMS.TASK_WAKE_AFTER( TIMEOUT, STATUS );
435         end loop;
436      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
437
438      TIME_TEST_SUPPORT.PUT_TIME(
439         "TASK_WAKE_AFTER",
440         TMTEST.END_TIME,
441         TIME_TEST_SUPPORT.OPERATION_COUNT,
442         OVERHEAD,
443         0
444      );
445
446-- INTERRUPT_CATCH
447
448      TIMER_DRIVER.INITIALIZE;
449         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
450         loop
451            DUMMY_RTEMS.INTERRUPT_CATCH(
452               TMTEST.ISR_HANDLER'ADDRESS, 
453               RTEMS.VECTOR_NUMBER'FIRST,
454               ADDRESS_1,
455               STATUS
456            );
457         end loop;
458      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
459
460      TIME_TEST_SUPPORT.PUT_TIME(
461         "INTERRUPT_CATCH",
462         TMTEST.END_TIME,
463         TIME_TEST_SUPPORT.OPERATION_COUNT,
464         OVERHEAD,
465         0
466      );
467
468-- CLOCK_GET
469
470      TIMER_DRIVER.INITIALIZE;
471         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
472         loop
473            DUMMY_RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
474         end loop;
475      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
476
477      TIME_TEST_SUPPORT.PUT_TIME(
478         "CLOCK_GET",
479         TMTEST.END_TIME,
480         TIME_TEST_SUPPORT.OPERATION_COUNT,
481         OVERHEAD,
482         0
483      );
484
485-- CLOCK_SET
486
487      TIMER_DRIVER.INITIALIZE;
488         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
489         loop
490            DUMMY_RTEMS.CLOCK_SET( TIME, STATUS );
491         end loop;
492      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
493
494      TIME_TEST_SUPPORT.PUT_TIME(
495         "CLOCK_SET",
496         TMTEST.END_TIME,
497         TIME_TEST_SUPPORT.OPERATION_COUNT,
498         OVERHEAD,
499         0
500      );
501
502-- CLOCK_TICK
503
504      TIMER_DRIVER.INITIALIZE;
505         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
506         loop
507            DUMMY_RTEMS.CLOCK_TICK( STATUS );
508         end loop;
509      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
510
511      TIME_TEST_SUPPORT.PUT_TIME(
512         "CLOCK_TICK",
513         TMTEST.END_TIME,
514         TIME_TEST_SUPPORT.OPERATION_COUNT,
515         OVERHEAD,
516         0
517      );
518
519TEST_SUPPORT.PAUSE;
520
521-- TIMER_CREATE
522
523      TIMER_DRIVER.INITIALIZE;
524         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
525         loop
526            DUMMY_RTEMS.TIMER_CREATE( NAME, ID, STATUS );
527         end loop;
528      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
529
530      TIME_TEST_SUPPORT.PUT_TIME(
531         "TIMER_CREATE",
532         TMTEST.END_TIME,
533         TIME_TEST_SUPPORT.OPERATION_COUNT,
534         OVERHEAD,
535         0
536      );
537
538-- TIMER_DELETE
539
540      TIMER_DRIVER.INITIALIZE;
541         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
542         loop
543            DUMMY_RTEMS.TIMER_DELETE( ID, STATUS );
544         end loop;
545      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
546
547      TIME_TEST_SUPPORT.PUT_TIME(
548         "TIMER_DELETE",
549         TMTEST.END_TIME,
550         TIME_TEST_SUPPORT.OPERATION_COUNT,
551         OVERHEAD,
552         0
553      );
554
555-- TIMER_IDENT
556
557      TIMER_DRIVER.INITIALIZE;
558         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
559         loop
560            DUMMY_RTEMS.TIMER_IDENT(
561               NAME,
562               ID,
563               STATUS
564            );
565         end loop;
566      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
567
568      TIME_TEST_SUPPORT.PUT_TIME(
569         "TIMER_IDENT",
570         TMTEST.END_TIME,
571         TIME_TEST_SUPPORT.OPERATION_COUNT,
572         OVERHEAD,
573         0
574      );
575
576-- TIMER_FIRE_AFTER
577
578      TIMER_DRIVER.INITIALIZE;
579         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
580         loop
581            DUMMY_RTEMS.TIMER_FIRE_AFTER(
582               ID,
583               TIMEOUT,
584               TMTEST.TIMER_HANDLER'ACCESS,
585               RTEMS.NULL_ADDRESS,
586               STATUS
587            );
588         end loop;
589      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
590
591      TIME_TEST_SUPPORT.PUT_TIME(
592         "TIMER_FIRE_AFTER",
593         TMTEST.END_TIME,
594         TIME_TEST_SUPPORT.OPERATION_COUNT,
595         OVERHEAD,
596         0
597      );
598
599-- TIMER_FIRE_WHEN
600
601      TIMER_DRIVER.INITIALIZE;
602         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
603         loop
604            DUMMY_RTEMS.TIMER_FIRE_WHEN(
605               ID,
606               TIME,
607               TMTEST.TIMER_HANDLER'ACCESS,
608               RTEMS.NULL_ADDRESS,
609               STATUS
610            );
611         end loop;
612      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
613
614      TIME_TEST_SUPPORT.PUT_TIME(
615         "TIMER_FIRE_WHEN",
616         TMTEST.END_TIME,
617         TIME_TEST_SUPPORT.OPERATION_COUNT,
618         OVERHEAD,
619         0
620      );
621
622-- TIMER_RESET
623
624      TIMER_DRIVER.INITIALIZE;
625         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
626         loop
627            DUMMY_RTEMS.TIMER_RESET( ID, STATUS );
628         end loop;
629      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
630
631      TIME_TEST_SUPPORT.PUT_TIME(
632         "TIMER_RESET",
633         TMTEST.END_TIME,
634         TIME_TEST_SUPPORT.OPERATION_COUNT,
635         OVERHEAD,
636         0
637      );
638
639-- TIMER_CANCEL
640
641      TIMER_DRIVER.INITIALIZE;
642         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
643         loop
644            DUMMY_RTEMS.TIMER_CANCEL( ID, STATUS );
645         end loop;
646      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
647
648      TIME_TEST_SUPPORT.PUT_TIME(
649         "TIMER_CANCEL",
650         TMTEST.END_TIME,
651         TIME_TEST_SUPPORT.OPERATION_COUNT,
652         OVERHEAD,
653         0
654      );
655
656-- SEMAPHORE_CREATE
657
658      TIMER_DRIVER.INITIALIZE;
659         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
660         loop
661            DUMMY_RTEMS.SEMAPHORE_CREATE(
662               NAME,
663               128,
664               RTEMS.DEFAULT_ATTRIBUTES,
665               RTEMS.NO_PRIORITY,
666               ID,
667               STATUS
668            );
669         end loop;
670      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
671
672      TIME_TEST_SUPPORT.PUT_TIME(
673         "SEMAPHORE_CREATE",
674         TMTEST.END_TIME,
675         TIME_TEST_SUPPORT.OPERATION_COUNT,
676         OVERHEAD,
677         0
678      );
679
680-- SEMAPHORE_DELETE
681
682      TIMER_DRIVER.INITIALIZE;
683         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
684         loop
685            DUMMY_RTEMS.SEMAPHORE_DELETE( ID, STATUS );
686         end loop;
687      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
688
689      TIME_TEST_SUPPORT.PUT_TIME(
690         "SEMAPHORE_DELETE",
691         TMTEST.END_TIME,
692         TIME_TEST_SUPPORT.OPERATION_COUNT,
693         OVERHEAD,
694         0
695      );
696
697-- SEMAPHORE_IDENT
698
699      TIMER_DRIVER.INITIALIZE;
700         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
701         loop
702            DUMMY_RTEMS.SEMAPHORE_IDENT(
703               NAME,
704               RTEMS.SEARCH_ALL_NODES,
705               ID,
706               STATUS
707            );
708         end loop;
709      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
710
711      TIME_TEST_SUPPORT.PUT_TIME(
712         "SEMAPHORE_IDENT",
713         TMTEST.END_TIME,
714         TIME_TEST_SUPPORT.OPERATION_COUNT,
715         OVERHEAD,
716         0
717      );
718
719-- SEMAPHORE_OBTAIN
720
721      TIMER_DRIVER.INITIALIZE;
722         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
723         loop
724            DUMMY_RTEMS.SEMAPHORE_OBTAIN(
725               ID,
726               RTEMS.DEFAULT_OPTIONS,
727               TIMEOUT,
728               STATUS
729            );
730         end loop;
731      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
732
733      TIME_TEST_SUPPORT.PUT_TIME(
734         "SEMAPHORE_OBTAIN",
735         TMTEST.END_TIME,
736         TIME_TEST_SUPPORT.OPERATION_COUNT,
737         OVERHEAD,
738         0
739      );
740
741-- SEMAPHORE_RELEASE
742
743      TIMER_DRIVER.INITIALIZE;
744         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
745         loop
746            DUMMY_RTEMS.SEMAPHORE_RELEASE( ID, STATUS );
747         end loop;
748      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
749
750      TIME_TEST_SUPPORT.PUT_TIME(
751         "SEMAPHORE_RELEASE",
752         TMTEST.END_TIME,
753         TIME_TEST_SUPPORT.OPERATION_COUNT,
754         OVERHEAD,
755         0
756      );
757
758-- MESSAGE_QUEUE_CREATE
759
760      TIMER_DRIVER.INITIALIZE;
761         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
762         loop
763            DUMMY_RTEMS.MESSAGE_QUEUE_CREATE(
764               NAME,
765               128,
766               16,
767               RTEMS.DEFAULT_ATTRIBUTES,
768               ID,
769               STATUS
770            );
771         end loop;
772      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
773
774      TIME_TEST_SUPPORT.PUT_TIME(
775         "MESSAGE_QUEUE_CREATE",
776         TMTEST.END_TIME,
777         TIME_TEST_SUPPORT.OPERATION_COUNT,
778         OVERHEAD,
779         0
780      );
781
782-- MESSAGE_QUEUE_IDENT
783
784      TIMER_DRIVER.INITIALIZE;
785         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
786         loop
787            DUMMY_RTEMS.MESSAGE_QUEUE_IDENT(
788               NAME,
789               RTEMS.SEARCH_ALL_NODES,
790               ID,
791               STATUS
792            );
793         end loop;
794      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
795
796      TIME_TEST_SUPPORT.PUT_TIME(
797         "MESSAGE_QUEUE_IDENT",
798         TMTEST.END_TIME,
799         TIME_TEST_SUPPORT.OPERATION_COUNT,
800         OVERHEAD,
801         0
802      );
803
804-- MESSAGE_QUEUE_DELETE
805
806      TIMER_DRIVER.INITIALIZE;
807         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
808         loop
809            DUMMY_RTEMS.MESSAGE_QUEUE_DELETE( ID, STATUS );
810         end loop;
811      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
812
813      TIME_TEST_SUPPORT.PUT_TIME(
814         "MESSAGE_QUEUE_DELETE",
815         TMTEST.END_TIME,
816         TIME_TEST_SUPPORT.OPERATION_COUNT,
817         OVERHEAD,
818         0
819      );
820
821-- MESSAGE_QUEUE_SEND
822
823      TIMER_DRIVER.INITIALIZE;
824         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
825         loop
826            DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, 16, STATUS );
827         end loop;
828      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
829
830      TIME_TEST_SUPPORT.PUT_TIME(
831         "MESSAGE_QUEUE_SEND",
832         TMTEST.END_TIME,
833         TIME_TEST_SUPPORT.OPERATION_COUNT,
834         OVERHEAD,
835         0
836      );
837
838-- MESSAGE_QUEUE_URGENT
839
840      TIMER_DRIVER.INITIALIZE;
841         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
842         loop
843            DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, 16, STATUS );
844         end loop;
845      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
846
847      TIME_TEST_SUPPORT.PUT_TIME(
848         "MESSAGE_QUEUE_URGENT",
849         TMTEST.END_TIME,
850         TIME_TEST_SUPPORT.OPERATION_COUNT,
851         OVERHEAD,
852         0
853      );
854
855-- MESSAGE_QUEUE_BROADCAST
856
857      TIMER_DRIVER.INITIALIZE;
858         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
859         loop
860            DUMMY_RTEMS.MESSAGE_QUEUE_BROADCAST(
861               ID,
862               BUFFER_POINTER,
863               16,
864               COUNT,
865               STATUS
866            );
867         end loop;
868      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
869
870      TIME_TEST_SUPPORT.PUT_TIME(
871         "MESSAGE_QUEUE_BROADCAST",
872         TMTEST.END_TIME,
873         TIME_TEST_SUPPORT.OPERATION_COUNT,
874         OVERHEAD,
875         0
876      );
877
878-- MESSAGE_QUEUE_RECEIVE
879
880      TIMER_DRIVER.INITIALIZE;
881         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
882         loop
883            DUMMY_RTEMS.MESSAGE_QUEUE_RECEIVE(
884               ID,
885               BUFFER_POINTER,
886               RTEMS.DEFAULT_OPTIONS,
887               TIMEOUT,
888               MESSAGE_SIZE,
889               STATUS
890            );
891         end loop;
892      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
893
894      TIME_TEST_SUPPORT.PUT_TIME(
895         "MESSAGE_QUEUE_RECEIVE",
896         TMTEST.END_TIME,
897         TIME_TEST_SUPPORT.OPERATION_COUNT,
898         OVERHEAD,
899         0
900      );
901
902-- MESSAGE_QUEUE_FLUSH
903
904      TIMER_DRIVER.INITIALIZE;
905         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
906         loop
907            DUMMY_RTEMS.MESSAGE_QUEUE_FLUSH( ID, COUNT, STATUS );
908         end loop;
909      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
910
911      TIME_TEST_SUPPORT.PUT_TIME(
912         "MESSAGE_QUEUE_FLUSH",
913         TMTEST.END_TIME,
914         TIME_TEST_SUPPORT.OPERATION_COUNT,
915         OVERHEAD,
916         0
917      );
918
919TEST_SUPPORT.PAUSE;
920
921-- EVENT_SEND
922
923      TIMER_DRIVER.INITIALIZE;
924         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
925         loop
926            DUMMY_RTEMS.EVENT_SEND( ID, EVENTS, STATUS );
927         end loop;
928      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
929
930      TIME_TEST_SUPPORT.PUT_TIME(
931         "EVENT_SEND",
932         TMTEST.END_TIME,
933         TIME_TEST_SUPPORT.OPERATION_COUNT,
934         OVERHEAD,
935         0
936      );
937
938-- EVENT_RECEIVE
939
940      TIMER_DRIVER.INITIALIZE;
941         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
942         loop
943            DUMMY_RTEMS.EVENT_RECEIVE(
944               RTEMS.EVENT_16,
945               EVENTS,
946               RTEMS.DEFAULT_OPTIONS,
947               TIMEOUT,
948               STATUS
949            );
950         end loop;
951      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
952
953      TIME_TEST_SUPPORT.PUT_TIME(
954         "EVENT_RECEIVE",
955         TMTEST.END_TIME,
956         TIME_TEST_SUPPORT.OPERATION_COUNT,
957         OVERHEAD,
958         0
959      );
960
961-- SIGNAL_CATCH
962
963      TIMER_DRIVER.INITIALIZE;
964         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
965         loop
966            DUMMY_RTEMS.SIGNAL_CATCH(
967               TMTEST.ASR_HANDLER'ACCESS,
968               RTEMS.DEFAULT_MODES,
969               STATUS
970            );
971         end loop;
972      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
973
974      TIME_TEST_SUPPORT.PUT_TIME(
975         "SIGNAL_CATCH",
976         TMTEST.END_TIME,
977         TIME_TEST_SUPPORT.OPERATION_COUNT,
978         OVERHEAD,
979         0
980      );
981
982-- SIGNAL_SEND
983
984      TIMER_DRIVER.INITIALIZE;
985         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
986         loop
987            DUMMY_RTEMS.SIGNAL_SEND( ID, SIGNALS, STATUS );
988         end loop;
989      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
990
991      TIME_TEST_SUPPORT.PUT_TIME(
992         "SIGNAL_SEND",
993         TMTEST.END_TIME,
994         TIME_TEST_SUPPORT.OPERATION_COUNT,
995         OVERHEAD,
996         0
997      );
998
999-- PARTITION_CREATE
1000
1001      TIMER_DRIVER.INITIALIZE;
1002         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1003         loop
1004            DUMMY_RTEMS.PARTITION_CREATE(
1005               NAME,
1006               TMTEST.MEMORY_AREA'ADDRESS,
1007               2048,
1008               128,
1009               RTEMS.DEFAULT_ATTRIBUTES,
1010               ID,
1011               STATUS
1012            );
1013         end loop;
1014      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1015
1016      TIME_TEST_SUPPORT.PUT_TIME(
1017         "PARTITION_CREATE",
1018         TMTEST.END_TIME,
1019         TIME_TEST_SUPPORT.OPERATION_COUNT,
1020         OVERHEAD,
1021         0
1022      );
1023
1024-- PARTITION_IDENT
1025
1026      TIMER_DRIVER.INITIALIZE;
1027         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1028         loop
1029            DUMMY_RTEMS.PARTITION_IDENT(
1030               NAME,
1031               RTEMS.SEARCH_ALL_NODES,
1032               ID,
1033               STATUS
1034            );
1035         end loop;
1036      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1037
1038      TIME_TEST_SUPPORT.PUT_TIME(
1039         "PARTITION_IDENT",
1040         TMTEST.END_TIME,
1041         TIME_TEST_SUPPORT.OPERATION_COUNT,
1042         OVERHEAD,
1043         0
1044      );
1045
1046-- PARTITION_DELETE
1047
1048      TIMER_DRIVER.INITIALIZE;
1049         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1050         loop
1051            DUMMY_RTEMS.PARTITION_DELETE( ID, STATUS );
1052         end loop;
1053      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1054
1055      TIME_TEST_SUPPORT.PUT_TIME(
1056         "PARTITION_DELETE",
1057         TMTEST.END_TIME,
1058         TIME_TEST_SUPPORT.OPERATION_COUNT,
1059         OVERHEAD,
1060         0
1061      );
1062
1063-- PARTITION_GET_BUFFER
1064
1065      TIMER_DRIVER.INITIALIZE;
1066         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1067         loop
1068            DUMMY_RTEMS.PARTITION_GET_BUFFER( ID, ADDRESS_1, STATUS );
1069         end loop;
1070      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1071
1072      TIME_TEST_SUPPORT.PUT_TIME(
1073         "PARTITION_GET_BUFFER",
1074         TMTEST.END_TIME,
1075         TIME_TEST_SUPPORT.OPERATION_COUNT,
1076         OVERHEAD,
1077         0
1078      );
1079
1080-- PARTITION_RETURN_BUFFER
1081
1082      TIMER_DRIVER.INITIALIZE;
1083         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1084         loop
1085            DUMMY_RTEMS.PARTITION_RETURN_BUFFER( ID, ADDRESS_1, STATUS );
1086         end loop;
1087      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1088
1089      TIME_TEST_SUPPORT.PUT_TIME(
1090         "PARTITION_RETURN_BUFFER",
1091         TMTEST.END_TIME,
1092         TIME_TEST_SUPPORT.OPERATION_COUNT,
1093         OVERHEAD,
1094         0
1095      );
1096
1097-- REGION_CREATE
1098
1099      TIMER_DRIVER.INITIALIZE;
1100         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1101         loop
1102            DUMMY_RTEMS.REGION_CREATE(
1103               NAME,
1104               TMTEST.MEMORY_AREA'ADDRESS,
1105               2048,
1106               128,
1107               RTEMS.DEFAULT_ATTRIBUTES,
1108               ID,
1109               STATUS
1110            );
1111         end loop;
1112      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1113
1114      TIME_TEST_SUPPORT.PUT_TIME(
1115         "REGION_CREATE",
1116         TMTEST.END_TIME,
1117         TIME_TEST_SUPPORT.OPERATION_COUNT,
1118         OVERHEAD,
1119         0
1120      );
1121
1122-- REGION_IDENT
1123
1124      TIMER_DRIVER.INITIALIZE;
1125         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1126         loop
1127            DUMMY_RTEMS.REGION_IDENT(
1128               NAME,
1129               ID,
1130               STATUS
1131            );
1132         end loop;
1133      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1134
1135      TIME_TEST_SUPPORT.PUT_TIME(
1136         "REGION_IDENT",
1137         TMTEST.END_TIME,
1138         TIME_TEST_SUPPORT.OPERATION_COUNT,
1139         OVERHEAD,
1140         0
1141      );
1142
1143-- REGION_DELETE
1144
1145      TIMER_DRIVER.INITIALIZE;
1146         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1147         loop
1148            DUMMY_RTEMS.REGION_DELETE( ID, STATUS );
1149         end loop;
1150      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1151
1152      TIME_TEST_SUPPORT.PUT_TIME(
1153         "REGION_DELETE",
1154         TMTEST.END_TIME,
1155         TIME_TEST_SUPPORT.OPERATION_COUNT,
1156         OVERHEAD,
1157         0
1158      );
1159
1160-- REGION_GET_SEGMENT
1161
1162      TIMER_DRIVER.INITIALIZE;
1163         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1164         loop
1165            DUMMY_RTEMS.REGION_GET_SEGMENT(
1166               ID,
1167               243,
1168               RTEMS.DEFAULT_OPTIONS,
1169               TIMEOUT,
1170               ADDRESS_1,
1171               STATUS
1172            );
1173         end loop;
1174      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1175
1176      TIME_TEST_SUPPORT.PUT_TIME(
1177         "REGION_GET_SEGMENT",
1178         TMTEST.END_TIME,
1179         TIME_TEST_SUPPORT.OPERATION_COUNT,
1180         OVERHEAD,
1181         0
1182      );
1183
1184-- REGION_RETURN_SEGMENT
1185
1186      TIMER_DRIVER.INITIALIZE;
1187         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1188         loop
1189            DUMMY_RTEMS.REGION_RETURN_SEGMENT( ID, ADDRESS_1, STATUS );
1190         end loop;
1191      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1192
1193      TIME_TEST_SUPPORT.PUT_TIME(
1194         "REGION_RETURN_SEGMENT",
1195         TMTEST.END_TIME,
1196         TIME_TEST_SUPPORT.OPERATION_COUNT,
1197         OVERHEAD,
1198         0
1199      );
1200
1201-- PORT_CREATE
1202
1203      TIMER_DRIVER.INITIALIZE;
1204         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1205         loop
1206            DUMMY_RTEMS.PORT_CREATE(
1207               NAME,
1208               TMTEST.INTERNAL_PORT_AREA'ADDRESS,
1209               TMTEST.EXTERNAL_PORT_AREA'ADDRESS,
1210               TMTEST.INTERNAL_PORT_AREA'LENGTH,
1211               ID,
1212               STATUS
1213            );
1214         end loop;
1215      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1216
1217      TIME_TEST_SUPPORT.PUT_TIME(
1218         "PORT_CREATE",
1219         TMTEST.END_TIME,
1220         TIME_TEST_SUPPORT.OPERATION_COUNT,
1221         OVERHEAD,
1222         0
1223      );
1224
1225-- PORT_IDENT
1226
1227      TIMER_DRIVER.INITIALIZE;
1228         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1229         loop
1230            DUMMY_RTEMS.PORT_IDENT( NAME, ID, STATUS );
1231         end loop;
1232      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1233
1234      TIME_TEST_SUPPORT.PUT_TIME(
1235         "PORT_IDENT",
1236         TMTEST.END_TIME,
1237         TIME_TEST_SUPPORT.OPERATION_COUNT,
1238         OVERHEAD,
1239         0
1240      );
1241
1242-- PORT_DELETE
1243
1244      TIMER_DRIVER.INITIALIZE;
1245         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1246         loop
1247            DUMMY_RTEMS.PORT_DELETE( ID, STATUS );
1248         end loop;
1249      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1250
1251      TIME_TEST_SUPPORT.PUT_TIME(
1252         "PORT_DELETE",
1253         TMTEST.END_TIME,
1254         TIME_TEST_SUPPORT.OPERATION_COUNT,
1255         OVERHEAD,
1256         0
1257      );
1258
1259-- PORT_EXTERNAL_TO_INTERNAL
1260
1261      TIMER_DRIVER.INITIALIZE;
1262         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1263         loop
1264            DUMMY_RTEMS.PORT_EXTERNAL_TO_INTERNAL(
1265               ID,
1266               TMTEST.EXTERNAL_PORT_AREA( 7 )'ADDRESS,
1267               ADDRESS_1,
1268               STATUS
1269            );
1270         end loop;
1271      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1272
1273      TIME_TEST_SUPPORT.PUT_TIME(
1274         "PORT_EXTERNAL_TO_INTERNAL",
1275         TMTEST.END_TIME,
1276         TIME_TEST_SUPPORT.OPERATION_COUNT,
1277         OVERHEAD,
1278         0
1279      );
1280
1281-- PORT_INTERNAL_TO_EXTERNAL
1282
1283      TIMER_DRIVER.INITIALIZE;
1284         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1285         loop
1286            DUMMY_RTEMS.PORT_INTERNAL_TO_EXTERNAL(
1287               ID,
1288               TMTEST.INTERNAL_PORT_AREA( 7 )'ADDRESS,
1289               ADDRESS_1,
1290               STATUS
1291            );
1292         end loop;
1293      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1294
1295      TIME_TEST_SUPPORT.PUT_TIME(
1296         "PORT_INTERNAL_TO_EXTERNAL",
1297         TMTEST.END_TIME,
1298         TIME_TEST_SUPPORT.OPERATION_COUNT,
1299         OVERHEAD,
1300         0
1301      );
1302
1303TEST_SUPPORT.PAUSE;
1304
1305-- IO_INITIALIZE
1306
1307      TIMER_DRIVER.INITIALIZE;
1308         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1309         loop
1310            DUMMY_RTEMS.IO_INITIALIZE(
1311               MAJOR,
1312               MINOR,
1313               ADDRESS_1,
1314               STATUS
1315            );
1316         end loop;
1317      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1318
1319      TIME_TEST_SUPPORT.PUT_TIME(
1320         "IO_INITIALIZE",
1321         TMTEST.END_TIME,
1322         TIME_TEST_SUPPORT.OPERATION_COUNT,
1323         OVERHEAD,
1324         0
1325      );
1326
1327-- IO_OPEN
1328
1329      TIMER_DRIVER.INITIALIZE;
1330         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1331         loop
1332            DUMMY_RTEMS.IO_OPEN(
1333               MAJOR,
1334               MINOR,
1335               ADDRESS_1,
1336               STATUS
1337            );
1338         end loop;
1339      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1340
1341      TIME_TEST_SUPPORT.PUT_TIME(
1342         "IO_OPEN",
1343         TMTEST.END_TIME,
1344         TIME_TEST_SUPPORT.OPERATION_COUNT,
1345         OVERHEAD,
1346         0
1347      );
1348
1349-- IO_CLOSE
1350
1351      TIMER_DRIVER.INITIALIZE;
1352         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1353         loop
1354            DUMMY_RTEMS.IO_CLOSE(
1355               MAJOR,
1356               MINOR,
1357               ADDRESS_1,
1358               STATUS
1359            );
1360         end loop;
1361      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1362
1363      TIME_TEST_SUPPORT.PUT_TIME(
1364         "IO_CLOSE",
1365         TMTEST.END_TIME,
1366         TIME_TEST_SUPPORT.OPERATION_COUNT,
1367         OVERHEAD,
1368         0
1369      );
1370
1371-- IO_READ
1372
1373      TIMER_DRIVER.INITIALIZE;
1374         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1375         loop
1376            DUMMY_RTEMS.IO_READ(
1377               MAJOR,
1378               MINOR,
1379               ADDRESS_1,
1380               STATUS
1381            );
1382         end loop;
1383      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1384
1385      TIME_TEST_SUPPORT.PUT_TIME(
1386         "IO_READ",
1387         TMTEST.END_TIME,
1388         TIME_TEST_SUPPORT.OPERATION_COUNT,
1389         OVERHEAD,
1390         0
1391      );
1392
1393-- IO_WRITE
1394
1395      TIMER_DRIVER.INITIALIZE;
1396         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1397         loop
1398            DUMMY_RTEMS.IO_WRITE(
1399               MAJOR,
1400               MINOR,
1401               ADDRESS_1,
1402               STATUS
1403            );
1404         end loop;
1405      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1406
1407      TIME_TEST_SUPPORT.PUT_TIME(
1408         "IO_WRITE",
1409         TMTEST.END_TIME,
1410         TIME_TEST_SUPPORT.OPERATION_COUNT,
1411         OVERHEAD,
1412         0
1413      );
1414
1415-- IO_CONTROL
1416
1417      TIMER_DRIVER.INITIALIZE;
1418         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1419         loop
1420            DUMMY_RTEMS.IO_CONTROL(
1421               MAJOR,
1422               MINOR,
1423               ADDRESS_1,
1424               STATUS
1425            );
1426         end loop;
1427      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1428
1429      TIME_TEST_SUPPORT.PUT_TIME(
1430         "IO_CONTROL",
1431         TMTEST.END_TIME,
1432         TIME_TEST_SUPPORT.OPERATION_COUNT,
1433         OVERHEAD,
1434         0
1435      );
1436
1437-- FATAL_ERROR_OCCURRED
1438
1439      TIMER_DRIVER.INITIALIZE;
1440         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1441         loop
1442            DUMMY_RTEMS.FATAL_ERROR_OCCURRED( ERROR );
1443         end loop;
1444      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1445
1446      TIME_TEST_SUPPORT.PUT_TIME(
1447         "FATAL_ERROR_OCCURRED",
1448         TMTEST.END_TIME,
1449         TIME_TEST_SUPPORT.OPERATION_COUNT,
1450         OVERHEAD,
1451         0
1452      );
1453
1454-- RATE_MONOTONIC_CREATE
1455
1456      TIMER_DRIVER.INITIALIZE;
1457         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1458         loop
1459            DUMMY_RTEMS.RATE_MONOTONIC_CREATE( NAME, ID, STATUS );
1460         end loop;
1461      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1462
1463      TIME_TEST_SUPPORT.PUT_TIME(
1464         "RATE_MONOTONIC_CREATE",
1465         TMTEST.END_TIME,
1466         TIME_TEST_SUPPORT.OPERATION_COUNT,
1467         OVERHEAD,
1468         0
1469      );
1470
1471-- RATE_MONOTONIC_IDENT
1472
1473      TIMER_DRIVER.INITIALIZE;
1474         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1475         loop
1476            DUMMY_RTEMS.RATE_MONOTONIC_IDENT(
1477               NAME,
1478               ID,
1479               STATUS
1480            );
1481         end loop;
1482      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1483
1484      TIME_TEST_SUPPORT.PUT_TIME(
1485         "RATE_MONOTONIC_IDENT",
1486         TMTEST.END_TIME,
1487         TIME_TEST_SUPPORT.OPERATION_COUNT,
1488         OVERHEAD,
1489         0
1490      );
1491
1492-- RATE_MONOTONIC_DELETE
1493
1494      TIMER_DRIVER.INITIALIZE;
1495         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1496         loop
1497            DUMMY_RTEMS.RATE_MONOTONIC_DELETE( ID, STATUS );
1498         end loop;
1499      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1500
1501      TIME_TEST_SUPPORT.PUT_TIME(
1502         "RATE_MONOTONIC_DELETE",
1503         TMTEST.END_TIME,
1504         TIME_TEST_SUPPORT.OPERATION_COUNT,
1505         OVERHEAD,
1506         0
1507      );
1508
1509-- RATE_MONOTONIC_CANCEL
1510
1511      TIMER_DRIVER.INITIALIZE;
1512         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1513         loop
1514            DUMMY_RTEMS.RATE_MONOTONIC_CANCEL( ID, STATUS );
1515         end loop;
1516      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1517
1518      TIME_TEST_SUPPORT.PUT_TIME(
1519         "RATE_MONOTONIC_CANCEL",
1520         TMTEST.END_TIME,
1521         TIME_TEST_SUPPORT.OPERATION_COUNT,
1522         OVERHEAD,
1523         0
1524      );
1525
1526-- RATE_MONOTONIC_PERIOD
1527
1528      TIMER_DRIVER.INITIALIZE;
1529         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1530         loop
1531            DUMMY_RTEMS.RATE_MONOTONIC_PERIOD( ID, TIMEOUT, STATUS );
1532         end loop;
1533      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1534
1535      TIME_TEST_SUPPORT.PUT_TIME(
1536         "RATE_MONOTONIC_PERIOD",
1537         TMTEST.END_TIME,
1538         TIME_TEST_SUPPORT.OPERATION_COUNT,
1539         OVERHEAD,
1540         0
1541      );
1542
1543-- MULTIPROCESSING_ANNOUNCE
1544
1545      TIMER_DRIVER.INITIALIZE;
1546         for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT
1547         loop
1548            DUMMY_RTEMS.MULTIPROCESSING_ANNOUNCE;
1549         end loop;
1550      TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
1551
1552      TIME_TEST_SUPPORT.PUT_TIME(
1553         "MULTIPROCESSING_ANNOUNCE",
1554         TMTEST.END_TIME,
1555         TIME_TEST_SUPPORT.OPERATION_COUNT,
1556         OVERHEAD,
1557         0
1558      );
1559
1560      RTEMS.SHUTDOWN_EXECUTIVE( 0 );
1561   
1562   end TASK_1;
1563
1564end TMTEST;
Note: See TracBrowser for help on using the repository browser.