source: rtems/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @ 1338cdb

4.104.114.84.95
Last change on this file since 1338cdb was c7f646b5, checked in by Joel Sherrill <joel.sherrill@…>, on 06/03/97 at 21:43:20

Fixed all references to Semaphore_Create to have the correct
argument sequence.

  • Property mode set to 100644
File size: 18.8 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_POINT;
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      ATTRIBUTE_SET : in     RTEMS.ATTRIBUTE;
397      ID            :    out RTEMS.ID;
398      RESULT        :    out RTEMS.STATUS_CODES
399   ) is
400   begin
401
402      RESULT := RTEMS.SUCCESSFUL;
403
404   end MESSAGE_QUEUE_CREATE;
405
406   procedure MESSAGE_QUEUE_IDENT (
407      NAME   : in     RTEMS.NAME;
408      NODE   : in     RTEMS.UNSIGNED32;
409      ID     :    out RTEMS.ID;
410      RESULT :    out RTEMS.STATUS_CODES
411   ) is
412   begin
413
414      RESULT := RTEMS.SUCCESSFUL;
415
416   end MESSAGE_QUEUE_IDENT;
417
418   procedure MESSAGE_QUEUE_DELETE (
419      ID     : in     RTEMS.ID;
420      RESULT :    out RTEMS.STATUS_CODES
421   ) is
422   begin
423
424      RESULT := RTEMS.SUCCESSFUL;
425
426   end MESSAGE_QUEUE_DELETE;
427
428   procedure MESSAGE_QUEUE_SEND (
429      ID     : in     RTEMS.ID;
430      BUFFER : in     RTEMS.BUFFER_POINTER;
431      RESULT :    out RTEMS.STATUS_CODES
432   ) is
433   begin
434
435      RESULT := RTEMS.SUCCESSFUL;
436
437   end MESSAGE_QUEUE_SEND;
438
439   procedure MESSAGE_QUEUE_URGENT (
440      ID     : in     RTEMS.ID;
441      BUFFER : in     RTEMS.BUFFER_POINTER;
442      RESULT :    out RTEMS.STATUS_CODES
443   ) is
444   begin
445
446      RESULT := RTEMS.SUCCESSFUL;
447
448   end MESSAGE_QUEUE_URGENT;
449
450   procedure MESSAGE_QUEUE_BROADCAST (
451      ID     : in     RTEMS.ID;
452      BUFFER : in     RTEMS.BUFFER_POINTER;
453      COUNT  :    out RTEMS.UNSIGNED32;
454      RESULT :    out RTEMS.STATUS_CODES
455   ) is
456   begin
457
458      RESULT := RTEMS.SUCCESSFUL;
459
460   end MESSAGE_QUEUE_BROADCAST;
461
462   procedure MESSAGE_QUEUE_RECEIVE (
463      ID         : in     RTEMS.ID;
464      BUFFER     : in     RTEMS.BUFFER_POINTER;
465      OPTION_SET : in     RTEMS.OPTION;
466      TIMEOUT    : in     RTEMS.INTERVAL;
467      RESULT     :    out RTEMS.STATUS_CODES
468   ) is
469   begin
470
471      RESULT := RTEMS.SUCCESSFUL;
472
473   end MESSAGE_QUEUE_RECEIVE;
474
475   procedure MESSAGE_QUEUE_FLUSH (
476      ID     : in     RTEMS.ID;
477      COUNT  :    out RTEMS.UNSIGNED32;
478      RESULT :    out RTEMS.STATUS_CODES
479   ) is
480   begin
481
482      RESULT := RTEMS.SUCCESSFUL;
483
484   end MESSAGE_QUEUE_FLUSH;
485
486-- Event Manager
487
488   procedure EVENT_SEND (
489      ID       : in     RTEMS.ID;
490      EVENT_IN : in     RTEMS.EVENT_SET;
491      RESULT   :    out RTEMS.STATUS_CODES
492   ) is
493   begin
494
495      RESULT := RTEMS.SUCCESSFUL;
496
497   end EVENT_SEND;
498
499   procedure EVENT_RECEIVE (
500      EVENT_IN   : in     RTEMS.EVENT_SET;
501      OPTION_SET : in     RTEMS.OPTION;
502      TICKS      : in     RTEMS.INTERVAL;
503      EVENT_OUT  :    out RTEMS.EVENT_SET;
504      RESULT     :    out RTEMS.STATUS_CODES
505   ) is
506   begin
507
508      RESULT := RTEMS.SUCCESSFUL;
509
510   end EVENT_RECEIVE;
511
512-- Signal Manager
513
514   procedure SIGNAL_CATCH (
515      ASR_HANDLER : in     RTEMS.ASR_HANDLER;
516      MODE_SET    : in     RTEMS.MODE;
517      RESULT      :    out RTEMS.STATUS_CODES
518   ) is
519   begin
520
521      RESULT := RTEMS.SUCCESSFUL;
522
523   end SIGNAL_CATCH;
524
525   procedure SIGNAL_SEND (
526      ID         : in     RTEMS.ID;
527      SIGNAL_SET : in     RTEMS.SIGNAL_SET;
528      RESULT     :    out RTEMS.STATUS_CODES
529   ) is
530   begin
531
532      RESULT := RTEMS.SUCCESSFUL;
533
534   end SIGNAL_SEND;
535
536-- Partition Manager
537
538   procedure PARTITION_CREATE (
539      NAME             : in     RTEMS.NAME;
540      STARTING_ADDRESS : in     RTEMS.ADDRESS;
541      LENGTH           : in     RTEMS.UNSIGNED32;
542      BUFFER_SIZE      : in     RTEMS.UNSIGNED32;
543      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
544      ID               :    out RTEMS.ID;
545      RESULT           :    out RTEMS.STATUS_CODES
546   ) is
547   begin
548
549      RESULT := RTEMS.SUCCESSFUL;
550
551   end PARTITION_CREATE;
552
553   procedure PARTITION_IDENT (
554      NAME   : in     RTEMS.NAME;
555      NODE   : in     RTEMS.UNSIGNED32;
556      ID     :    out RTEMS.ID;
557      RESULT :    out RTEMS.STATUS_CODES
558   ) is
559   begin
560
561      RESULT := RTEMS.SUCCESSFUL;
562
563   end PARTITION_IDENT;
564
565   procedure PARTITION_DELETE (
566      ID     : in     RTEMS.ID;
567      RESULT :    out RTEMS.STATUS_CODES
568   ) is
569   begin
570
571      RESULT := RTEMS.SUCCESSFUL;
572
573   end PARTITION_DELETE;
574
575   procedure PARTITION_GET_BUFFER (
576      ID     : in     RTEMS.ID;
577      BUFFER :    out RTEMS.ADDRESS;
578      RESULT :    out RTEMS.STATUS_CODES
579   ) is
580   begin
581
582      RESULT := RTEMS.SUCCESSFUL;
583
584   end PARTITION_GET_BUFFER;
585
586   procedure PARTITION_RETURN_BUFFER (
587      ID     : in     RTEMS.ID;
588      BUFFER : in     RTEMS.ADDRESS;
589      RESULT :    out RTEMS.STATUS_CODES
590   ) is
591   begin
592
593      RESULT := RTEMS.SUCCESSFUL;
594
595   end PARTITION_RETURN_BUFFER;
596
597-- Region Manager
598
599   procedure REGION_CREATE (
600      NAME             : in     RTEMS.NAME;
601      STARTING_ADDRESS : in     RTEMS.ADDRESS;
602      LENGTH           : in     RTEMS.UNSIGNED32;
603      PAGE_SIZE        : in     RTEMS.UNSIGNED32;
604      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
605      ID               :    out RTEMS.ID;
606      RESULT           :    out RTEMS.STATUS_CODES
607   ) is
608   begin
609
610      RESULT := RTEMS.SUCCESSFUL;
611
612   end REGION_CREATE;
613
614   procedure REGION_IDENT (
615      NAME   : in     RTEMS.NAME;
616      ID     :    out RTEMS.ID;
617      RESULT :    out RTEMS.STATUS_CODES
618   ) is
619   begin
620
621      RESULT := RTEMS.SUCCESSFUL;
622
623   end REGION_IDENT;
624
625   procedure REGION_DELETE (
626      ID     : in     RTEMS.ID;
627      RESULT :    out RTEMS.STATUS_CODES
628   ) is
629   begin
630
631      RESULT := RTEMS.SUCCESSFUL;
632
633   end REGION_DELETE;
634
635   procedure REGION_GET_SEGMENT (
636      ID         : in     RTEMS.ID;
637      SIZE       : in     RTEMS.UNSIGNED32;
638      OPTION_SET : in     RTEMS.OPTION;
639      TIMEOUT    : in     RTEMS.INTERVAL;
640      SEGMENT    :    out RTEMS.ADDRESS;
641      RESULT     :    out RTEMS.STATUS_CODES
642   ) is
643   begin
644
645      RESULT := RTEMS.SUCCESSFUL;
646
647   end REGION_GET_SEGMENT;
648
649   procedure REGION_RETURN_SEGMENT (
650      ID      : in     RTEMS.ID;
651      SEGMENT : in     RTEMS.ADDRESS;
652      RESULT  :    out RTEMS.STATUS_CODES
653   ) is
654   begin
655
656      RESULT := RTEMS.SUCCESSFUL;
657
658   end REGION_RETURN_SEGMENT;
659
660-- Dual Ported Memory Manager
661
662   procedure PORT_CREATE (
663      NAME           : in     RTEMS.NAME;
664      INTERNAL_START : in     RTEMS.ADDRESS;
665      EXTERNAL_START : in     RTEMS.ADDRESS;
666      LENGTH         : in     RTEMS.UNSIGNED32;
667      ID             :    out RTEMS.ID;
668      RESULT         :    out RTEMS.STATUS_CODES
669   ) is
670   begin
671
672      RESULT := RTEMS.SUCCESSFUL;
673
674   end PORT_CREATE;
675
676   procedure PORT_IDENT (
677      NAME   : in     RTEMS.NAME;
678      ID     :    out RTEMS.ID;
679      RESULT :    out RTEMS.STATUS_CODES
680   ) is
681   begin
682
683      RESULT := RTEMS.SUCCESSFUL;
684
685   end PORT_IDENT;
686
687   procedure PORT_DELETE (
688      ID     : in     RTEMS.ID;
689      RESULT :    out RTEMS.STATUS_CODES
690   ) is
691   begin
692
693      RESULT := RTEMS.SUCCESSFUL;
694
695   end PORT_DELETE;
696
697   procedure PORT_EXTERNAL_TO_INTERNAL (
698      ID       : in     RTEMS.ID;
699      EXTERNAL : in     RTEMS.ADDRESS;
700      INTERNAL :    out RTEMS.ADDRESS;
701      RESULT   :    out RTEMS.STATUS_CODES
702   ) is
703   begin
704
705      RESULT := RTEMS.SUCCESSFUL;
706
707   end PORT_EXTERNAL_TO_INTERNAL;
708
709   procedure PORT_INTERNAL_TO_EXTERNAL (
710      ID       : in     RTEMS.ID;
711      INTERNAL : in     RTEMS.ADDRESS;
712      EXTERNAL :    out RTEMS.ADDRESS;
713      RESULT   :    out RTEMS.STATUS_CODES
714   ) is
715   begin
716
717      RESULT := RTEMS.SUCCESSFUL;
718
719   end PORT_INTERNAL_TO_EXTERNAL;
720
721-- Input/Output Manager
722
723   procedure IO_INITIALIZE (
724      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
725      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
726      ARGUMENT     : in     RTEMS.ADDRESS;
727      RETURN_VALUE :    out RTEMS.UNSIGNED32;
728      RESULT       :    out RTEMS.STATUS_CODES
729   ) is
730   begin
731
732      RESULT := RTEMS.SUCCESSFUL;
733
734   end IO_INITIALIZE;
735
736   procedure IO_OPEN (
737      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
738      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
739      ARGUMENT     : in     RTEMS.ADDRESS;
740      RETURN_VALUE :    out RTEMS.UNSIGNED32;
741      RESULT       :    out RTEMS.STATUS_CODES
742   ) is
743   begin
744
745      RESULT := RTEMS.SUCCESSFUL;
746
747   end IO_OPEN;
748
749   procedure IO_CLOSE (
750      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
751      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
752      ARGUMENT     : in     RTEMS.ADDRESS;
753      RETURN_VALUE :    out RTEMS.UNSIGNED32;
754      RESULT       :    out RTEMS.STATUS_CODES
755   ) is
756   begin
757
758      RESULT := RTEMS.SUCCESSFUL;
759
760   end IO_CLOSE;
761
762   procedure IO_READ (
763      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
764      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
765      ARGUMENT     : in     RTEMS.ADDRESS;
766      RETURN_VALUE :    out RTEMS.UNSIGNED32;
767      RESULT       :    out RTEMS.STATUS_CODES
768   ) is
769   begin
770
771      RESULT := RTEMS.SUCCESSFUL;
772
773   end IO_READ;
774
775   procedure IO_WRITE (
776      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
777      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
778      ARGUMENT     : in     RTEMS.ADDRESS;
779      RETURN_VALUE :    out RTEMS.UNSIGNED32;
780      RESULT       :    out RTEMS.STATUS_CODES
781   ) is
782   begin
783
784      RESULT := RTEMS.SUCCESSFUL;
785
786   end IO_WRITE;
787
788   procedure IO_CONTROL (
789      MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
790      MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
791      ARGUMENT     : in     RTEMS.ADDRESS;
792      RETURN_VALUE :    out RTEMS.UNSIGNED32;
793      RESULT       :    out RTEMS.STATUS_CODES
794   ) is
795   begin
796
797      RESULT := RTEMS.SUCCESSFUL;
798
799   end IO_CONTROL;
800
801-- Fatal Error Manager
802
803   procedure FATAL_ERROR_OCCURRED (
804      THE_ERROR : in     RTEMS.UNSIGNED32
805   ) is
806   begin
807
808      NULL;
809
810   end FATAL_ERROR_OCCURRED;
811
812-- Rate Monotonic Manager
813
814   procedure RATE_MONOTONIC_CREATE (
815      NAME   : in     RTEMS.NAME;
816      ID     :    out RTEMS.ID;
817      RESULT :    out RTEMS.STATUS_CODES
818   ) is
819   begin
820
821      RESULT := RTEMS.SUCCESSFUL;
822
823   end RATE_MONOTONIC_CREATE;
824
825   procedure RATE_MONOTONIC_IDENT (
826      NAME   : in     RTEMS.NAME;
827      ID     :    out RTEMS.ID;
828      RESULT :    out RTEMS.STATUS_CODES
829   ) is
830   begin
831
832      RESULT := RTEMS.SUCCESSFUL;
833
834   end RATE_MONOTONIC_IDENT;
835
836   procedure RATE_MONOTONIC_DELETE (
837      ID     : in     RTEMS.ID;
838      RESULT :    out RTEMS.STATUS_CODES
839   ) is
840   begin
841
842      RESULT := RTEMS.SUCCESSFUL;
843
844   end RATE_MONOTONIC_DELETE;
845
846   procedure RATE_MONOTONIC_CANCEL (
847      ID     : in     RTEMS.ID;
848      RESULT :    out RTEMS.STATUS_CODES
849   ) is
850   begin
851
852      RESULT := RTEMS.SUCCESSFUL;
853
854   end RATE_MONOTONIC_CANCEL;
855
856   procedure RATE_MONOTONIC_PERIOD (
857      ID      : in     RTEMS.ID;
858      LENGTH  : in     RTEMS.INTERVAL;
859      RESULT  :    out RTEMS.STATUS_CODES
860   ) is
861   begin
862
863      RESULT := RTEMS.SUCCESSFUL;
864
865   end RATE_MONOTONIC_PERIOD;
866
867-- Multiprocessing Manager
868
869   procedure MULTIPROCESSING_ANNOUNCE
870   is
871   begin
872
873      NULL;
874
875   end MULTIPROCESSING_ANNOUNCE;
876
877end DUMMY_RTEMS;
Note: See TracBrowser for help on using the repository browser.