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

4.104.114.84.95
Last change on this file since 820901ba was 820901ba, checked in by Joel Sherrill <joel.sherrill@…>, on 05/03/05 at 21:41:45

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

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