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

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