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

4.104.114.84.95
Last change on this file since cbb09503 was 8ed37e3c, checked in by Joel Sherrill <joel.sherrill@…>, on 06/03/97 at 22:47:47

corrected to compile with the new binding.
  • Property mode set to 100644
File size: 18.6 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   ) is
35   begin
36
37      NULL;
38
39   end INITIALIZE_EXECUTIVE;
40
41   procedure SHUTDOWN_EXECUTIVE (
42      RESULT : in     RTEMS.UNSIGNED32
43   ) is
44   begin
45
46      NULL;
47
48   end SHUTDOWN_EXECUTIVE;
49
50-- Task Manager
51
52   procedure TASK_CREATE (
53      NAME             : in     RTEMS.NAME;
54      INITIAL_PRIORITY : in     RTEMS.TASK_PRIORITY;
55      STACK_SIZE       : in     RTEMS.UNSIGNED32;
56      INITIAL_MODES    : in     RTEMS.MODE;
57      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
58      ID               :    out RTEMS.ID;
59      RESULT           :    out RTEMS.STATUS_CODES
60   ) is
61   begin
62
63      RESULT := RTEMS.SUCCESSFUL;
64
65   end TASK_CREATE;
66
67   procedure TASK_IDENT (
68      NAME   : in     RTEMS.NAME;
69      NODE   : in     RTEMS.UNSIGNED32;
70      ID     :    out RTEMS.ID;
71      RESULT :    out RTEMS.STATUS_CODES
72   ) is
73   begin
74
75      RESULT := RTEMS.SUCCESSFUL;
76
77   end TASK_IDENT;
78
79   procedure TASK_START (
80      ID          : in     RTEMS.ID;
81      ENTRY_POINT : in     RTEMS.TASK_ENTRY;
82      ARGUMENT    : in     RTEMS.UNSIGNED32;
83      RESULT      :    out RTEMS.STATUS_CODES
84   ) is
85   begin
86
87      RESULT := RTEMS.SUCCESSFUL;
88
89   end TASK_START;
90
91   procedure TASK_RESTART (
92      ID       : in     RTEMS.ID;
93      ARGUMENT : in     RTEMS.UNSIGNED32;
94      RESULT   :    out RTEMS.STATUS_CODES
95   ) is
96   begin
97
98      RESULT := RTEMS.SUCCESSFUL;
99
100   end TASK_RESTART;
101
102   procedure TASK_DELETE (
103      ID     : in     RTEMS.ID;
104      RESULT :    out RTEMS.STATUS_CODES
105   ) is
106   begin
107
108      RESULT := RTEMS.SUCCESSFUL;
109
110   end TASK_DELETE;
111
112   procedure TASK_SUSPEND (
113      ID     : in     RTEMS.ID;
114      RESULT :    out RTEMS.STATUS_CODES
115   ) is
116   begin
117
118      RESULT := RTEMS.SUCCESSFUL;
119
120   end TASK_SUSPEND;
121
122   procedure TASK_RESUME (
123      ID     : in     RTEMS.ID;
124      RESULT :    out RTEMS.STATUS_CODES
125   ) is
126   begin
127
128      RESULT := RTEMS.SUCCESSFUL;
129
130   end TASK_RESUME;
131
132   procedure TASK_SET_PRIORITY (
133      ID           : in     RTEMS.ID;
134      NEW_PRIORITY : in     RTEMS.TASK_PRIORITY;
135      OLD_PRIORITY :    out RTEMS.TASK_PRIORITY;
136      RESULT       :    out RTEMS.STATUS_CODES
137   ) is
138   begin
139
140      RESULT := RTEMS.SUCCESSFUL;
141
142   end TASK_SET_PRIORITY;
143
144   procedure TASK_MODE (
145      MODE_SET          : in     RTEMS.MODE;
146      MASK              : in     RTEMS.MODE;
147      PREVIOUS_MODE_SET :    out RTEMS.MODE;
148      RESULT            :    out RTEMS.STATUS_CODES
149   ) is
150   begin
151
152      RESULT := RTEMS.SUCCESSFUL;
153
154   end TASK_MODE;
155
156   procedure TASK_GET_NOTE (
157      ID      : in     RTEMS.ID;
158      NOTEPAD : in     RTEMS.NOTEPAD_INDEX;
159      NOTE    :    out RTEMS.UNSIGNED32;
160      RESULT  :    out RTEMS.STATUS_CODES
161   ) is
162   begin
163
164      RESULT := RTEMS.SUCCESSFUL;
165
166   end TASK_GET_NOTE;
167
168   procedure TASK_SET_NOTE (
169      ID      : in     RTEMS.ID;
170      NOTEPAD : in     RTEMS.NOTEPAD_INDEX;
171      NOTE    : in     RTEMS.UNSIGNED32;
172      RESULT  :    out RTEMS.STATUS_CODES
173   ) is
174   begin
175
176      RESULT := RTEMS.SUCCESSFUL;
177
178   end TASK_SET_NOTE;
179
180   procedure TASK_WAKE_WHEN (
181      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
182      RESULT      :    out RTEMS.STATUS_CODES
183   ) is
184   begin
185
186      RESULT := RTEMS.SUCCESSFUL;
187
188   end TASK_WAKE_WHEN;
189
190   procedure TASK_WAKE_AFTER (
191      TICKS  : in     RTEMS.INTERVAL;
192      RESULT :    out RTEMS.STATUS_CODES
193   ) is
194   begin
195
196      RESULT := RTEMS.SUCCESSFUL;
197
198   end TASK_WAKE_AFTER;
199
200-- Interrupt Manager
201
202   procedure INTERRUPT_CATCH (
203      NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
204      VECTOR          : in     RTEMS.VECTOR_NUMBER;
205      OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
206      RESULT          :    out RTEMS.STATUS_CODES
207   ) is
208   begin
209
210      RESULT := RTEMS.SUCCESSFUL;
211
212   end INTERRUPT_CATCH;
213
214-- Clock Manager
215
216   procedure CLOCK_GET (
217      OPTION      : in     RTEMS.CLOCK_GET_OPTIONS;
218      TIME_BUFFER : in     RTEMS.ADDRESS;
219      RESULT      :    out RTEMS.STATUS_CODES
220   ) is
221   begin
222
223      RESULT := RTEMS.SUCCESSFUL;
224
225   end CLOCK_GET;
226
227   procedure CLOCK_SET (
228      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
229      RESULT      :    out RTEMS.STATUS_CODES
230   ) is
231   begin
232
233      RESULT := RTEMS.SUCCESSFUL;
234
235   end CLOCK_SET;
236
237   procedure CLOCK_TICK (
238      RESULT :    out RTEMS.STATUS_CODES
239   ) is
240   begin
241
242      RESULT := RTEMS.SUCCESSFUL;
243
244   end CLOCK_TICK;
245
246-- Timer Manager
247
248   procedure TIMER_CREATE (
249      NAME   : in     RTEMS.NAME;
250      ID     :    out RTEMS.ID;
251      RESULT :    out RTEMS.STATUS_CODES
252   ) is
253   begin
254
255      RESULT := RTEMS.SUCCESSFUL;
256
257   end TIMER_CREATE;
258
259   procedure TIMER_DELETE (
260      ID     : in     RTEMS.ID;
261      RESULT :    out RTEMS.STATUS_CODES
262   ) is
263   begin
264
265      RESULT := RTEMS.SUCCESSFUL;
266
267   end TIMER_DELETE;
268
269   procedure TIMER_IDENT (
270      NAME   : in     RTEMS.NAME;
271      ID     :    out RTEMS.ID;
272      RESULT :    out RTEMS.STATUS_CODES
273   ) is
274   begin
275
276      RESULT := RTEMS.SUCCESSFUL;
277
278   end TIMER_IDENT;
279
280   procedure TIMER_FIRE_AFTER (
281      ID        : in     RTEMS.ID;
282      TICKS     : in     RTEMS.INTERVAL;
283      ROUTINE   : in     RTEMS.TIMER_SERVICE_ROUTINE;
284      USER_DATA : in     RTEMS.ADDRESS;
285      RESULT    :    out RTEMS.STATUS_CODES
286   ) is
287   begin
288
289      RESULT := RTEMS.SUCCESSFUL;
290
291   end TIMER_FIRE_AFTER;
292
293   procedure TIMER_FIRE_WHEN (
294      ID        : in     RTEMS.ID;
295      WALL_TIME : in     RTEMS.TIME_OF_DAY;
296      ROUTINE   : in     RTEMS.TIMER_SERVICE_ROUTINE;
297      USER_DATA : in     RTEMS.ADDRESS;
298      RESULT    :    out RTEMS.STATUS_CODES
299   ) is
300   begin
301
302      RESULT := RTEMS.SUCCESSFUL;
303
304   end TIMER_FIRE_WHEN;
305
306   procedure TIMER_RESET (
307      ID     : in     RTEMS.ID;
308      RESULT :    out RTEMS.STATUS_CODES
309   ) is
310   begin
311
312      RESULT := RTEMS.SUCCESSFUL;
313
314   end TIMER_RESET;
315
316   procedure TIMER_CANCEL (
317      ID     : in     RTEMS.ID;
318      RESULT :    out RTEMS.STATUS_CODES
319   ) is
320   begin
321
322      RESULT := RTEMS.SUCCESSFUL;
323
324   end TIMER_CANCEL;
325
326-- Semaphore Manager
327
328   procedure SEMAPHORE_CREATE (
329      NAME             : in     RTEMS.NAME;
330      COUNT            : in     RTEMS.UNSIGNED32;
331      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
332      PRIORITY_CEILING : in     RTEMS.TASK_PRIORITY;
333      ID               :    out RTEMS.ID;
334      RESULT           :    out RTEMS.STATUS_CODES
335   ) is
336   begin
337
338      RESULT := RTEMS.SUCCESSFUL;
339
340   end SEMAPHORE_CREATE;
341
342   procedure SEMAPHORE_DELETE (
343      ID     : in     RTEMS.ID;
344      RESULT :    out RTEMS.STATUS_CODES
345   ) is
346   begin
347
348      RESULT := RTEMS.SUCCESSFUL;
349
350   end SEMAPHORE_DELETE;
351
352   procedure SEMAPHORE_IDENT (
353      NAME   : in     RTEMS.NAME;
354      NODE   : in     RTEMS.UNSIGNED32;
355      ID     :    out RTEMS.ID;
356      RESULT :    out RTEMS.STATUS_CODES
357   ) is
358   begin
359
360      RESULT := RTEMS.SUCCESSFUL;
361
362   end SEMAPHORE_IDENT;
363
364   procedure SEMAPHORE_OBTAIN (
365      ID         : in     RTEMS.ID;
366      OPTION_SET : in     RTEMS.OPTION;
367      TIMEOUT    : in     RTEMS.INTERVAL;
368      RESULT     :    out RTEMS.STATUS_CODES
369   ) is
370   begin
371
372      RESULT := RTEMS.SUCCESSFUL;
373
374   end SEMAPHORE_OBTAIN;
375
376   procedure SEMAPHORE_RELEASE (
377      ID     : in     RTEMS.ID;
378      RESULT :    out RTEMS.STATUS_CODES
379   ) is
380   begin
381
382      RESULT := RTEMS.SUCCESSFUL;
383
384   end SEMAPHORE_RELEASE;
385
386-- Message Queue Manager
387
388   procedure MESSAGE_QUEUE_CREATE (
389      Name             : in     RTEMS.Name;
390      Count            : in     RTEMS.Unsigned32;
391      Max_Message_Size : in     RTEMS.Unsigned32;
392      Attribute_Set    : in     RTEMS.Attribute;
393      ID               :    out RTEMS.ID;
394      Result           :    out RTEMS.Status_Codes
395   ) is
396   begin
397
398      RESULT := RTEMS.SUCCESSFUL;
399
400   end MESSAGE_QUEUE_CREATE;
401
402   procedure MESSAGE_QUEUE_IDENT (
403      NAME   : in     RTEMS.NAME;
404      NODE   : in     RTEMS.UNSIGNED32;
405      ID     :    out RTEMS.ID;
406      RESULT :    out RTEMS.STATUS_CODES
407   ) is
408   begin
409
410      RESULT := RTEMS.SUCCESSFUL;
411
412   end MESSAGE_QUEUE_IDENT;
413
414   procedure MESSAGE_QUEUE_DELETE (
415      ID     : in     RTEMS.ID;
416      RESULT :    out RTEMS.STATUS_CODES
417   ) is
418   begin
419
420      RESULT := RTEMS.SUCCESSFUL;
421
422   end MESSAGE_QUEUE_DELETE;
423
424   procedure MESSAGE_QUEUE_SEND (
425      ID     : in     RTEMS.ID;
426      BUFFER : in     RTEMS.ADDRESS;
427      Size   : in     RTEMS.Unsigned32;
428      RESULT :    out RTEMS.STATUS_CODES
429   ) is
430   begin
431
432      RESULT := RTEMS.SUCCESSFUL;
433
434   end MESSAGE_QUEUE_SEND;
435
436   procedure MESSAGE_QUEUE_URGENT (
437      ID     : in     RTEMS.ID;
438      BUFFER : in     RTEMS.ADDRESS;
439      Size   : in     RTEMS.Unsigned32;
440      RESULT :    out RTEMS.STATUS_CODES
441   ) is
442   begin
443
444      RESULT := RTEMS.SUCCESSFUL;
445
446   end MESSAGE_QUEUE_URGENT;
447
448   procedure MESSAGE_QUEUE_BROADCAST (
449      ID     : in     RTEMS.ID;
450      BUFFER : in     RTEMS.ADDRESS;
451      Size   : in     RTEMS.Unsigned32;
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.ADDRESS;
464      OPTION_SET : in     RTEMS.OPTION;
465      TIMEOUT    : in     RTEMS.INTERVAL;
466      Size       :    out RTEMS.Unsigned32;
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.