source: rtems/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @ 79e0b6fd

4.104.114.84.95
Last change on this file since 79e0b6fd was 688ecaa0, checked in by Joel Sherrill <joel.sherrill@…>, on 06/03/97 at 22:08:59

Fixed calls to Message_Queue_Create to include maximum message size
parameter.
  • Property mode set to 100644
File size: 19.0 KB
Line 
1--
2--  DUMMY_RTEMS / SPECIFICATION
3--
4--  DESCRIPTION:
5--
6--  This package contains implementation of stub routines
7--  which are used to time the invocation overhead incurred
8--  with an Ada application program invokes each RTEMS directive.
9--
10--  DEPENDENCIES:
11--
12-- 
13--
14--  COPYRIGHT (c) 1989-1997.
15--  On-Line Applications Research Corporation (OAR).
16--  Copyright assigned to U.S. Government, 1994.
17--
18--  The license and distribution terms for this file may in
19--  the file LICENSE in this distribution or at
20--  http://www.OARcorp.com/rtems/license.html.
21--
22--  $Id$
23--
24
25with RTEMS;
26
27package body DUMMY_RTEMS is
28
29-- Initialization Manager
30
31   procedure INITIALIZE_EXECUTIVE (
32      CONFIGURATION_TABLE   : in     RTEMS.CONFIGURATION_TABLE_POINTER;
33      CPU_TABLE             : in     RTEMS.CPU_TABLE_POINTER;
34      TASK_TABLE            : in     RTEMS.INITIALIZATION_TASKS_TABLE_POINTER;
35      DRIVER_TABLE          : in     RTEMS.DRIVER_ADDRESS_TABLE_POINTER;
36      EXTENSION_TABLE       : in     RTEMS.EXTENSIONS_TABLE_POINTER;
37      MULTIPROCESSING_TABLE : in     RTEMS.MULTIPROCESSING_TABLE_POINTER;
38      MPCI_TABLE            : in     RTEMS.MPCI_TABLE_POINTER
39   ) is
40   begin
41
42      NULL;
43
44   end INITIALIZE_EXECUTIVE;
45
46   procedure SHUTDOWN_EXECUTIVE (
47      RESULT : in     RTEMS.UNSIGNED32
48   ) is
49   begin
50
51      NULL;
52
53   end SHUTDOWN_EXECUTIVE;
54
55-- Task Manager
56
57   procedure TASK_CREATE (
58      NAME             : in     RTEMS.NAME;
59      INITIAL_PRIORITY : in     RTEMS.TASK_PRIORITY;
60      STACK_SIZE       : in     RTEMS.UNSIGNED32;
61      INITIAL_MODES    : in     RTEMS.MODE;
62      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
63      ID               :    out RTEMS.ID;
64      RESULT           :    out RTEMS.STATUS_CODES
65   ) is
66   begin
67
68      RESULT := RTEMS.SUCCESSFUL;
69
70   end TASK_CREATE;
71
72   procedure TASK_IDENT (
73      NAME   : in     RTEMS.NAME;
74      NODE   : in     RTEMS.UNSIGNED32;
75      ID     :    out RTEMS.ID;
76      RESULT :    out RTEMS.STATUS_CODES
77   ) is
78   begin
79
80      RESULT := RTEMS.SUCCESSFUL;
81
82   end TASK_IDENT;
83
84   procedure TASK_START (
85      ID          : in     RTEMS.ID;
86      ENTRY_POINT : in     RTEMS.TASK_ENTRY;
87      ARGUMENT    : in     RTEMS.UNSIGNED32;
88      RESULT      :    out RTEMS.STATUS_CODES
89   ) is
90   begin
91
92      RESULT := RTEMS.SUCCESSFUL;
93
94   end TASK_START;
95
96   procedure TASK_RESTART (
97      ID       : in     RTEMS.ID;
98      ARGUMENT : in     RTEMS.UNSIGNED32;
99      RESULT   :    out RTEMS.STATUS_CODES
100   ) is
101   begin
102
103      RESULT := RTEMS.SUCCESSFUL;
104
105   end TASK_RESTART;
106
107   procedure TASK_DELETE (
108      ID     : in     RTEMS.ID;
109      RESULT :    out RTEMS.STATUS_CODES
110   ) is
111   begin
112
113      RESULT := RTEMS.SUCCESSFUL;
114
115   end TASK_DELETE;
116
117   procedure TASK_SUSPEND (
118      ID     : in     RTEMS.ID;
119      RESULT :    out RTEMS.STATUS_CODES
120   ) is
121   begin
122
123      RESULT := RTEMS.SUCCESSFUL;
124
125   end TASK_SUSPEND;
126
127   procedure TASK_RESUME (
128      ID     : in     RTEMS.ID;
129      RESULT :    out RTEMS.STATUS_CODES
130   ) is
131   begin
132
133      RESULT := RTEMS.SUCCESSFUL;
134
135   end TASK_RESUME;
136
137   procedure TASK_SET_PRIORITY (
138      ID           : in     RTEMS.ID;
139      NEW_PRIORITY : in     RTEMS.TASK_PRIORITY;
140      OLD_PRIORITY :    out RTEMS.TASK_PRIORITY;
141      RESULT       :    out RTEMS.STATUS_CODES
142   ) is
143   begin
144
145      RESULT := RTEMS.SUCCESSFUL;
146
147   end TASK_SET_PRIORITY;
148
149   procedure TASK_MODE (
150      MODE_SET          : in     RTEMS.MODE;
151      MASK              : in     RTEMS.MODE;
152      PREVIOUS_MODE_SET :    out RTEMS.MODE;
153      RESULT            :    out RTEMS.STATUS_CODES
154   ) is
155   begin
156
157      RESULT := RTEMS.SUCCESSFUL;
158
159   end TASK_MODE;
160
161   procedure TASK_GET_NOTE (
162      ID      : in     RTEMS.ID;
163      NOTEPAD : in     RTEMS.NOTEPAD_INDEX;
164      NOTE    :    out RTEMS.UNSIGNED32;
165      RESULT  :    out RTEMS.STATUS_CODES
166   ) is
167   begin
168
169      RESULT := RTEMS.SUCCESSFUL;
170
171   end TASK_GET_NOTE;
172
173   procedure TASK_SET_NOTE (
174      ID      : in     RTEMS.ID;
175      NOTEPAD : in     RTEMS.NOTEPAD_INDEX;
176      NOTE    : in     RTEMS.UNSIGNED32;
177      RESULT  :    out RTEMS.STATUS_CODES
178   ) is
179   begin
180
181      RESULT := RTEMS.SUCCESSFUL;
182
183   end TASK_SET_NOTE;
184
185   procedure TASK_WAKE_WHEN (
186      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
187      RESULT      :    out RTEMS.STATUS_CODES
188   ) is
189   begin
190
191      RESULT := RTEMS.SUCCESSFUL;
192
193   end TASK_WAKE_WHEN;
194
195   procedure TASK_WAKE_AFTER (
196      TICKS  : in     RTEMS.INTERVAL;
197      RESULT :    out RTEMS.STATUS_CODES
198   ) is
199   begin
200
201      RESULT := RTEMS.SUCCESSFUL;
202
203   end TASK_WAKE_AFTER;
204
205-- Interrupt Manager
206
207   procedure INTERRUPT_CATCH (
208      NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
209      VECTOR          : in     RTEMS.VECTOR_NUMBER;
210      OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
211      RESULT          :    out RTEMS.STATUS_CODES
212   ) is
213   begin
214
215      RESULT := RTEMS.SUCCESSFUL;
216
217   end INTERRUPT_CATCH;
218
219-- Clock Manager
220
221   procedure CLOCK_GET (
222      OPTION      : in     RTEMS.CLOCK_GET_OPTIONS;
223      TIME_BUFFER : in     RTEMS.ADDRESS;
224      RESULT      :    out RTEMS.STATUS_CODES
225   ) is
226   begin
227
228      RESULT := RTEMS.SUCCESSFUL;
229
230   end CLOCK_GET;
231
232   procedure CLOCK_SET (
233      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
234      RESULT      :    out RTEMS.STATUS_CODES
235   ) is
236   begin
237
238      RESULT := RTEMS.SUCCESSFUL;
239
240   end CLOCK_SET;
241
242   procedure CLOCK_TICK (
243      RESULT :    out RTEMS.STATUS_CODES
244   ) is
245   begin
246
247      RESULT := RTEMS.SUCCESSFUL;
248
249   end CLOCK_TICK;
250
251-- Timer Manager
252
253   procedure TIMER_CREATE (
254      NAME   : in     RTEMS.NAME;
255      ID     :    out RTEMS.ID;
256      RESULT :    out RTEMS.STATUS_CODES
257   ) is
258   begin
259
260      RESULT := RTEMS.SUCCESSFUL;
261
262   end TIMER_CREATE;
263
264   procedure TIMER_DELETE (
265      ID     : in     RTEMS.ID;
266      RESULT :    out RTEMS.STATUS_CODES
267   ) is
268   begin
269
270      RESULT := RTEMS.SUCCESSFUL;
271
272   end TIMER_DELETE;
273
274   procedure TIMER_IDENT (
275      NAME   : in     RTEMS.NAME;
276      ID     :    out RTEMS.ID;
277      RESULT :    out RTEMS.STATUS_CODES
278   ) is
279   begin
280
281      RESULT := RTEMS.SUCCESSFUL;
282
283   end TIMER_IDENT;
284
285   procedure TIMER_FIRE_AFTER (
286      ID        : in     RTEMS.ID;
287      TICKS     : in     RTEMS.INTERVAL;
288      ROUTINE   : in     RTEMS.TIMER_SERVICE_ROUTINE;
289      USER_DATA : in     RTEMS.ADDRESS;
290      RESULT    :    out RTEMS.STATUS_CODES
291   ) is
292   begin
293
294      RESULT := RTEMS.SUCCESSFUL;
295
296   end TIMER_FIRE_AFTER;
297
298   procedure TIMER_FIRE_WHEN (
299      ID        : in     RTEMS.ID;
300      WALL_TIME : in     RTEMS.TIME_OF_DAY;
301      ROUTINE   : in     RTEMS.TIMER_SERVICE_ROUTINE;
302      USER_DATA : in     RTEMS.ADDRESS;
303      RESULT    :    out RTEMS.STATUS_CODES
304   ) is
305   begin
306
307      RESULT := RTEMS.SUCCESSFUL;
308
309   end TIMER_FIRE_WHEN;
310
311   procedure TIMER_RESET (
312      ID     : in     RTEMS.ID;
313      RESULT :    out RTEMS.STATUS_CODES
314   ) is
315   begin
316
317      RESULT := RTEMS.SUCCESSFUL;
318
319   end TIMER_RESET;
320
321   procedure TIMER_CANCEL (
322      ID     : in     RTEMS.ID;
323      RESULT :    out RTEMS.STATUS_CODES
324   ) is
325   begin
326
327      RESULT := RTEMS.SUCCESSFUL;
328
329   end TIMER_CANCEL;
330
331-- Semaphore Manager
332
333   procedure SEMAPHORE_CREATE (
334      NAME             : in     RTEMS.NAME;
335      COUNT            : in     RTEMS.UNSIGNED32;
336      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
337      PRIORITY_CEILING : in     RTEMS.TASK_PRIORITY;
338      ID               :    out RTEMS.ID;
339      RESULT           :    out RTEMS.STATUS_CODES
340   ) is
341   begin
342
343      RESULT := RTEMS.SUCCESSFUL;
344
345   end SEMAPHORE_CREATE;
346
347   procedure SEMAPHORE_DELETE (
348      ID     : in     RTEMS.ID;
349      RESULT :    out RTEMS.STATUS_CODES
350   ) is
351   begin
352
353      RESULT := RTEMS.SUCCESSFUL;
354
355   end SEMAPHORE_DELETE;
356
357   procedure SEMAPHORE_IDENT (
358      NAME   : in     RTEMS.NAME;
359      NODE   : in     RTEMS.UNSIGNED32;
360      ID     :    out RTEMS.ID;
361      RESULT :    out RTEMS.STATUS_CODES
362   ) is
363   begin
364
365      RESULT := RTEMS.SUCCESSFUL;
366
367   end SEMAPHORE_IDENT;
368
369   procedure SEMAPHORE_OBTAIN (
370      ID         : in     RTEMS.ID;
371      OPTION_SET : in     RTEMS.OPTION;
372      TIMEOUT    : in     RTEMS.INTERVAL;
373      RESULT     :    out RTEMS.STATUS_CODES
374   ) is
375   begin
376
377      RESULT := RTEMS.SUCCESSFUL;
378
379   end SEMAPHORE_OBTAIN;
380
381   procedure SEMAPHORE_RELEASE (
382      ID     : in     RTEMS.ID;
383      RESULT :    out RTEMS.STATUS_CODES
384   ) is
385   begin
386
387      RESULT := RTEMS.SUCCESSFUL;
388
389   end SEMAPHORE_RELEASE;
390
391-- Message Queue Manager
392
393   procedure MESSAGE_QUEUE_CREATE (
394      Name             : in     RTEMS.Name;
395      Count            : in     RTEMS.Unsigned32;
396      Max_Message_Size : in     RTEMS.Unsigned32;
397      Attribute_Set    : in     RTEMS.Attribute;
398      ID               :    out RTEMS.ID;
399      Result           :    out RTEMS.Status_Codes
400   ) is
401   begin
402
403      RESULT := RTEMS.SUCCESSFUL;
404
405   end MESSAGE_QUEUE_CREATE;
406
407   procedure MESSAGE_QUEUE_IDENT (
408      NAME   : in     RTEMS.NAME;
409      NODE   : in     RTEMS.UNSIGNED32;
410      ID     :    out RTEMS.ID;
411      RESULT :    out RTEMS.STATUS_CODES
412   ) is
413   begin
414
415      RESULT := RTEMS.SUCCESSFUL;
416
417   end MESSAGE_QUEUE_IDENT;
418
419   procedure MESSAGE_QUEUE_DELETE (
420      ID     : in     RTEMS.ID;
421      RESULT :    out RTEMS.STATUS_CODES
422   ) is
423   begin
424
425      RESULT := RTEMS.SUCCESSFUL;
426
427   end MESSAGE_QUEUE_DELETE;
428
429   procedure MESSAGE_QUEUE_SEND (
430      ID     : in     RTEMS.ID;
431      BUFFER : in     RTEMS.ADDRESS;
432      Size   : in     RTEMS.Unsigned32;
433      RESULT :    out RTEMS.STATUS_CODES
434   ) is
435   begin
436
437      RESULT := RTEMS.SUCCESSFUL;
438
439   end MESSAGE_QUEUE_SEND;
440
441   procedure MESSAGE_QUEUE_URGENT (
442      ID     : in     RTEMS.ID;
443      BUFFER : in     RTEMS.ADDRESS;
444      Size   : in     RTEMS.Unsigned32;
445      RESULT :    out RTEMS.STATUS_CODES
446   ) is
447   begin
448
449      RESULT := RTEMS.SUCCESSFUL;
450
451   end MESSAGE_QUEUE_URGENT;
452
453   procedure MESSAGE_QUEUE_BROADCAST (
454      ID     : in     RTEMS.ID;
455      BUFFER : in     RTEMS.ADDRESS;
456      Size   : in     RTEMS.Unsigned32;
457      COUNT  :    out RTEMS.UNSIGNED32;
458      RESULT :    out RTEMS.STATUS_CODES
459   ) is
460   begin
461
462      RESULT := RTEMS.SUCCESSFUL;
463
464   end MESSAGE_QUEUE_BROADCAST;
465
466   procedure MESSAGE_QUEUE_RECEIVE (
467      ID         : in     RTEMS.ID;
468      BUFFER     : in     RTEMS.ADDRESS;
469      OPTION_SET : in     RTEMS.OPTION;
470      TIMEOUT    : in     RTEMS.INTERVAL;
471      Size       :    out RTEMS.Unsigned32;
472      RESULT     :    out RTEMS.STATUS_CODES
473   ) is
474   begin
475
476      RESULT := RTEMS.SUCCESSFUL;
477
478   end MESSAGE_QUEUE_RECEIVE;
479
480   procedure MESSAGE_QUEUE_FLUSH (
481      ID     : in     RTEMS.ID;
482      COUNT  :    out RTEMS.UNSIGNED32;
483      RESULT :    out RTEMS.STATUS_CODES
484   ) is
485   begin
486
487      RESULT := RTEMS.SUCCESSFUL;
488
489   end MESSAGE_QUEUE_FLUSH;
490
491-- Event Manager
492
493   procedure EVENT_SEND (
494      ID       : in     RTEMS.ID;
495      EVENT_IN : in     RTEMS.EVENT_SET;
496      RESULT   :    out RTEMS.STATUS_CODES
497   ) is
498   begin
499
500      RESULT := RTEMS.SUCCESSFUL;
501
502   end EVENT_SEND;
503
504   procedure EVENT_RECEIVE (
505      EVENT_IN   : in     RTEMS.EVENT_SET;
506      OPTION_SET : in     RTEMS.OPTION;
507      TICKS      : in     RTEMS.INTERVAL;
508      EVENT_OUT  :    out RTEMS.EVENT_SET;
509      RESULT     :    out RTEMS.STATUS_CODES
510   ) is
511   begin
512
513      RESULT := RTEMS.SUCCESSFUL;
514
515   end EVENT_RECEIVE;
516
517-- Signal Manager
518
519   procedure SIGNAL_CATCH (
520      ASR_HANDLER : in     RTEMS.ASR_HANDLER;
521      MODE_SET    : in     RTEMS.MODE;
522      RESULT      :    out RTEMS.STATUS_CODES
523   ) is
524   begin
525
526      RESULT := RTEMS.SUCCESSFUL;
527
528   end SIGNAL_CATCH;
529
530   procedure SIGNAL_SEND (
531      ID         : in     RTEMS.ID;
532      SIGNAL_SET : in     RTEMS.SIGNAL_SET;
533      RESULT     :    out RTEMS.STATUS_CODES
534   ) is
535   begin
536
537      RESULT := RTEMS.SUCCESSFUL;
538
539   end SIGNAL_SEND;
540
541-- Partition Manager
542
543   procedure PARTITION_CREATE (
544      NAME             : in     RTEMS.NAME;
545      STARTING_ADDRESS : in     RTEMS.ADDRESS;
546      LENGTH           : in     RTEMS.UNSIGNED32;
547      BUFFER_SIZE      : in     RTEMS.UNSIGNED32;
548      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
549      ID               :    out RTEMS.ID;
550      RESULT           :    out RTEMS.STATUS_CODES
551   ) is
552   begin
553
554      RESULT := RTEMS.SUCCESSFUL;
555
556   end PARTITION_CREATE;
557
558   procedure PARTITION_IDENT (
559      NAME   : in     RTEMS.NAME;
560      NODE   : in     RTEMS.UNSIGNED32;
561      ID     :    out RTEMS.ID;
562      RESULT :    out RTEMS.STATUS_CODES
563   ) is
564   begin
565
566      RESULT := RTEMS.SUCCESSFUL;
567
568   end PARTITION_IDENT;
569
570   procedure PARTITION_DELETE (
571      ID     : in     RTEMS.ID;
572      RESULT :    out RTEMS.STATUS_CODES
573   ) is
574   begin
575
576      RESULT := RTEMS.SUCCESSFUL;
577
578   end PARTITION_DELETE;
579
580   procedure PARTITION_GET_BUFFER (
581      ID     : in     RTEMS.ID;
582      BUFFER :    out RTEMS.ADDRESS;
583      RESULT :    out RTEMS.STATUS_CODES
584   ) is
585   begin
586
587      RESULT := RTEMS.SUCCESSFUL;
588
589   end PARTITION_GET_BUFFER;
590
591   procedure PARTITION_RETURN_BUFFER (
592      ID     : in     RTEMS.ID;
593      BUFFER : in     RTEMS.ADDRESS;
594      RESULT :    out RTEMS.STATUS_CODES
595   ) is
596   begin
597
598      RESULT := RTEMS.SUCCESSFUL;
599
600   end PARTITION_RETURN_BUFFER;
601
602-- Region Manager
603
604   procedure REGION_CREATE (
605      NAME             : in     RTEMS.NAME;
606      STARTING_ADDRESS : in     RTEMS.ADDRESS;
607      LENGTH           : in     RTEMS.UNSIGNED32;
608      PAGE_SIZE        : in     RTEMS.UNSIGNED32;
609      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
610      ID               :    out RTEMS.ID;
611      RESULT           :    out RTEMS.STATUS_CODES
612   ) is
613   begin
614
615      RESULT := RTEMS.SUCCESSFUL;
616
617   end REGION_CREATE;
618
619   procedure REGION_IDENT (
620      NAME   : in     RTEMS.NAME;
621      ID     :    out RTEMS.ID;
622      RESULT :    out RTEMS.STATUS_CODES
623   ) is
624   begin
625
626      RESULT := RTEMS.SUCCESSFUL;
627
628   end REGION_IDENT;
629
630   procedure REGION_DELETE (
631      ID     : in     RTEMS.ID;
632      RESULT :    out RTEMS.STATUS_CODES
633   ) is
634   begin
635
636      RESULT := RTEMS.SUCCESSFUL;
637
638   end REGION_DELETE;
639
640   procedure REGION_GET_SEGMENT (
641      ID         : in     RTEMS.ID;
642      SIZE       : in     RTEMS.UNSIGNED32;
643      OPTION_SET : in     RTEMS.OPTION;
644      TIMEOUT    : in     RTEMS.INTERVAL;
645      SEGMENT    :    out RTEMS.ADDRESS;
646      RESULT     :    out RTEMS.STATUS_CODES
647   ) is
648   begin
649
650      RESULT := RTEMS.SUCCESSFUL;
651
652   end REGION_GET_SEGMENT;
653
654   procedure REGION_RETURN_SEGMENT (
655      ID      : in     RTEMS.ID;
656      SEGMENT : in     RTEMS.ADDRESS;
657      RESULT  :    out RTEMS.STATUS_CODES
658   ) is
659   begin
660
661      RESULT := RTEMS.SUCCESSFUL;
662
663   end REGION_RETURN_SEGMENT;
664
665-- Dual Ported Memory Manager
666
667   procedure PORT_CREATE (
668      NAME           : in     RTEMS.NAME;
669      INTERNAL_START : in     RTEMS.ADDRESS;
670      EXTERNAL_START : in     RTEMS.ADDRESS;
671      LENGTH         : in     RTEMS.UNSIGNED32;
672      ID             :    out RTEMS.ID;
673      RESULT         :    out RTEMS.STATUS_CODES
674   ) is
675   begin
676
677      RESULT := RTEMS.SUCCESSFUL;
678
679   end PORT_CREATE;
680
681   procedure PORT_IDENT (
682      NAME   : in     RTEMS.NAME;
683      ID     :    out RTEMS.ID;
684      RESULT :    out RTEMS.STATUS_CODES
685   ) is
686   begin
687
688      RESULT := RTEMS.SUCCESSFUL;
689
690   end PORT_IDENT;
691
692   procedure PORT_DELETE (
693      ID     : in     RTEMS.ID;
694      RESULT :    out RTEMS.STATUS_CODES
695   ) is
696   begin
697
698      RESULT := RTEMS.SUCCESSFUL;
699
700   end PORT_DELETE;
701
702   procedure PORT_EXTERNAL_TO_INTERNAL (
703      ID       : in     RTEMS.ID;
704      EXTERNAL : in     RTEMS.ADDRESS;
705      INTERNAL :    out RTEMS.ADDRESS;
706      RESULT   :    out RTEMS.STATUS_CODES
707   ) is
708   begin
709
710      RESULT := RTEMS.SUCCESSFUL;
711
712   end PORT_EXTERNAL_TO_INTERNAL;
713
714   procedure PORT_INTERNAL_TO_EXTERNAL (
715      ID       : in     RTEMS.ID;
716      INTERNAL : in     RTEMS.ADDRESS;
717      EXTERNAL :    out RTEMS.ADDRESS;
718      RESULT   :    out RTEMS.STATUS_CODES
719   ) is
720   begin
721
722      RESULT := RTEMS.SUCCESSFUL;
723
724   end PORT_INTERNAL_TO_EXTERNAL;
725
726-- Input/Output Manager
727
728   procedure IO_INITIALIZE (
729      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
730      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
731      ARGUMENT     : in     RTEMS.ADDRESS;
732      RETURN_VALUE :    out RTEMS.UNSIGNED32;
733      RESULT       :    out RTEMS.STATUS_CODES
734   ) is
735   begin
736
737      RESULT := RTEMS.SUCCESSFUL;
738
739   end IO_INITIALIZE;
740
741   procedure IO_OPEN (
742      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
743      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
744      ARGUMENT     : in     RTEMS.ADDRESS;
745      RETURN_VALUE :    out RTEMS.UNSIGNED32;
746      RESULT       :    out RTEMS.STATUS_CODES
747   ) is
748   begin
749
750      RESULT := RTEMS.SUCCESSFUL;
751
752   end IO_OPEN;
753
754   procedure IO_CLOSE (
755      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
756      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
757      ARGUMENT     : in     RTEMS.ADDRESS;
758      RETURN_VALUE :    out RTEMS.UNSIGNED32;
759      RESULT       :    out RTEMS.STATUS_CODES
760   ) is
761   begin
762
763      RESULT := RTEMS.SUCCESSFUL;
764
765   end IO_CLOSE;
766
767   procedure IO_READ (
768      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
769      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
770      ARGUMENT     : in     RTEMS.ADDRESS;
771      RETURN_VALUE :    out RTEMS.UNSIGNED32;
772      RESULT       :    out RTEMS.STATUS_CODES
773   ) is
774   begin
775
776      RESULT := RTEMS.SUCCESSFUL;
777
778   end IO_READ;
779
780   procedure IO_WRITE (
781      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
782      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
783      ARGUMENT     : in     RTEMS.ADDRESS;
784      RETURN_VALUE :    out RTEMS.UNSIGNED32;
785      RESULT       :    out RTEMS.STATUS_CODES
786   ) is
787   begin
788
789      RESULT := RTEMS.SUCCESSFUL;
790
791   end IO_WRITE;
792
793   procedure IO_CONTROL (
794      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
795      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
796      ARGUMENT     : in     RTEMS.ADDRESS;
797      RETURN_VALUE :    out RTEMS.UNSIGNED32;
798      RESULT       :    out RTEMS.STATUS_CODES
799   ) is
800   begin
801
802      RESULT := RTEMS.SUCCESSFUL;
803
804   end IO_CONTROL;
805
806-- Fatal Error Manager
807
808   procedure FATAL_ERROR_OCCURRED (
809      THE_ERROR : in     RTEMS.UNSIGNED32
810   ) is
811   begin
812
813      NULL;
814
815   end FATAL_ERROR_OCCURRED;
816
817-- Rate Monotonic Manager
818
819   procedure RATE_MONOTONIC_CREATE (
820      NAME   : in     RTEMS.NAME;
821      ID     :    out RTEMS.ID;
822      RESULT :    out RTEMS.STATUS_CODES
823   ) is
824   begin
825
826      RESULT := RTEMS.SUCCESSFUL;
827
828   end RATE_MONOTONIC_CREATE;
829
830   procedure RATE_MONOTONIC_IDENT (
831      NAME   : in     RTEMS.NAME;
832      ID     :    out RTEMS.ID;
833      RESULT :    out RTEMS.STATUS_CODES
834   ) is
835   begin
836
837      RESULT := RTEMS.SUCCESSFUL;
838
839   end RATE_MONOTONIC_IDENT;
840
841   procedure RATE_MONOTONIC_DELETE (
842      ID     : in     RTEMS.ID;
843      RESULT :    out RTEMS.STATUS_CODES
844   ) is
845   begin
846
847      RESULT := RTEMS.SUCCESSFUL;
848
849   end RATE_MONOTONIC_DELETE;
850
851   procedure RATE_MONOTONIC_CANCEL (
852      ID     : in     RTEMS.ID;
853      RESULT :    out RTEMS.STATUS_CODES
854   ) is
855   begin
856
857      RESULT := RTEMS.SUCCESSFUL;
858
859   end RATE_MONOTONIC_CANCEL;
860
861   procedure RATE_MONOTONIC_PERIOD (
862      ID      : in     RTEMS.ID;
863      LENGTH  : in     RTEMS.INTERVAL;
864      RESULT  :    out RTEMS.STATUS_CODES
865   ) is
866   begin
867
868      RESULT := RTEMS.SUCCESSFUL;
869
870   end RATE_MONOTONIC_PERIOD;
871
872-- Multiprocessing Manager
873
874   procedure MULTIPROCESSING_ANNOUNCE
875   is
876   begin
877
878      NULL;
879
880   end MULTIPROCESSING_ANNOUNCE;
881
882end DUMMY_RTEMS;
Note: See TracBrowser for help on using the repository browser.