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

5
Last change on this file since 783fbce was 783fbce, checked in by Sebastian Huber <sebastian.huber@…>, on 05/23/17 at 09:33:29

ada: Update due to Clock Manager API changes

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