1 files changed, 891 insertions, 0 deletions
diff --git a/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb b/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb
new file mode 100644
index 0000000000..62986dc465
--- /dev/null
+++ b/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb
@@ -0,0 +1,891 @@
+--
+--  DUMMY_RTEMS / SPECIFICATION
+--
+--  DESCRIPTION:
+--
+--  This package contains implementation of stub routines
+--  which are used to time the invocation overhead incurred
+--  with an Ada application program invokes each RTEMS directive.
+--
+--  DEPENDENCIES: 
+--
+--  
+--
+--  COPYRIGHT (c) 1989-2009.
+--  On-Line Applications Research Corporation (OAR).
+--
+--  The license and distribution terms for this file may in
+--  the file LICENSE in this distribution or at
+--  http://www.rtems.org/license/LICENSE.
+--
+
+package body DUMMY_RTEMS is
+
+-- Task Manager
+
+   procedure TASK_CREATE (
+      NAME             : in     RTEMS.NAME;
+      INITIAL_PRIORITY : in     RTEMS.TASKS.PRIORITY;
+      STACK_SIZE       : in     RTEMS.UNSIGNED32;
+      INITIAL_MODES    : in     RTEMS.MODE;
+      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
+      ID               :    out RTEMS.ID;
+      RESULT           :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(INITIAL_PRIORITY);
+      pragma Unreferenced(STACK_SIZE);
+      pragma Unreferenced(INITIAL_MODES);
+      pragma Unreferenced(ATTRIBUTE_SET);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_CREATE;
+
+   procedure TASK_IDENT (
+      NAME   : in     RTEMS.NAME;
+      NODE   : in     RTEMS.UNSIGNED32;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(NODE);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_IDENT;
+
+   procedure TASK_START (
+      ID          : in     RTEMS.ID;
+      ENTRY_POINT : in     RTEMS.TASKS.ENTRY_POINT;
+      ARGUMENT    : in     RTEMS.UNSIGNED32;
+      RESULT      :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(ENTRY_POINT);
+      pragma Unreferenced(ARGUMENT);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_START;
+
+   procedure TASK_RESTART (
+      ID       : in     RTEMS.ID;
+      ARGUMENT : in     RTEMS.UNSIGNED32;
+      RESULT   :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(ARGUMENT);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_RESTART;
+
+   procedure TASK_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_DELETE;
+
+   procedure TASK_SUSPEND (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_SUSPEND;
+
+   procedure TASK_RESUME (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_RESUME;
+
+   procedure TASK_SET_PRIORITY (
+      ID           : in     RTEMS.ID;
+      NEW_PRIORITY : in     RTEMS.TASKS.PRIORITY;
+      OLD_PRIORITY :    out RTEMS.TASKS.PRIORITY;
+      RESULT       :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(NEW_PRIORITY);
+   begin
+
+      OLD_PRIORITY := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_SET_PRIORITY;
+
+   procedure TASK_MODE (
+      MODE_SET          : in     RTEMS.MODE;
+      MASK              : in     RTEMS.MODE;
+      PREVIOUS_MODE_SET :    out RTEMS.MODE;
+      RESULT            :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(MODE_SET);
+      pragma Unreferenced(MASK);
+   begin
+
+      PREVIOUS_MODE_SET := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_MODE;
+
+   procedure TASK_WAKE_WHEN (
+      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
+      RESULT      :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(TIME_BUFFER);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_WAKE_WHEN;
+
+   procedure TASK_WAKE_AFTER (
+      TICKS  : in     RTEMS.INTERVAL;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(TICKS);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TASK_WAKE_AFTER;
+
+-- Interrupt Manager
+
+--   procedure INTERRUPT_CATCH (
+--      NEW_ISR_HANDLER : in     RTEMS.ADDRESS;
+--      VECTOR          : in     RTEMS.VECTOR_NUMBER;
+--      OLD_ISR_HANDLER :    out RTEMS.ADDRESS;
+--      RESULT          :    out RTEMS.STATUS_CODES
+--   ) is
+--   begin
+--
+--      OLD_ISR_HANDLER := RTEMS.Null_Address;
+--      RESULT := RTEMS.SUCCESSFUL;
+--
+--   end INTERRUPT_CATCH;
+
+-- Clock Manager
+
+   procedure CLOCK_GET_TOD (
+      TIME_BUFFER :    out RTEMS.TIME_OF_DAY;
+      RESULT      :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(TIME_BUFFER);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end CLOCK_GET_TOD;
+
+   procedure CLOCK_SET (
+      TIME_BUFFER : in     RTEMS.TIME_OF_DAY;
+      RESULT      :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(TIME_BUFFER);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end CLOCK_SET;
+
+   procedure CLOCK_TICK (
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end CLOCK_TICK;
+
+-- Timer Manager
+
+   procedure TIMER_CREATE (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_CREATE;
+
+   procedure TIMER_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_DELETE;
+
+   procedure TIMER_IDENT (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_IDENT;
+
+   procedure TIMER_FIRE_AFTER (
+      ID        : in     RTEMS.ID;
+      TICKS     : in     RTEMS.INTERVAL;
+      ROUTINE   : in     RTEMS.TIMER.SERVICE_ROUTINE;
+      USER_DATA : in     RTEMS.ADDRESS;
+      RESULT    :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(TICKS);
+      pragma Unreferenced(ROUTINE);
+      pragma Unreferenced(USER_DATA);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_FIRE_AFTER;
+
+   procedure TIMER_FIRE_WHEN (
+      ID        : in     RTEMS.ID;
+      WALL_TIME : in     RTEMS.TIME_OF_DAY;
+      ROUTINE   : in     RTEMS.TIMER.SERVICE_ROUTINE;
+      USER_DATA : in     RTEMS.ADDRESS;
+      RESULT    :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(WALL_TIME);
+      pragma Unreferenced(ROUTINE);
+      pragma Unreferenced(USER_DATA);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_FIRE_WHEN;
+
+   procedure TIMER_RESET (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_RESET;
+
+   procedure TIMER_CANCEL (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end TIMER_CANCEL;
+
+-- Semaphore Manager
+
+   procedure SEMAPHORE_CREATE (
+      NAME             : in     RTEMS.NAME;
+      COUNT            : in     RTEMS.UNSIGNED32;
+      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
+      PRIORITY_CEILING : in     RTEMS.TASKS.PRIORITY;
+      ID               :    out RTEMS.ID;
+      RESULT           :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(COUNT);
+      pragma Unreferenced(ATTRIBUTE_SET);
+      pragma Unreferenced(PRIORITY_CEILING);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SEMAPHORE_CREATE;
+
+   procedure SEMAPHORE_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SEMAPHORE_DELETE;
+
+   procedure SEMAPHORE_IDENT (
+      NAME   : in     RTEMS.NAME;
+      NODE   : in     RTEMS.UNSIGNED32;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(NODE);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SEMAPHORE_IDENT;
+
+   procedure SEMAPHORE_OBTAIN (
+      ID         : in     RTEMS.ID;
+      OPTION_SET : in     RTEMS.OPTION;
+      TIMEOUT    : in     RTEMS.INTERVAL;
+      RESULT     :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(OPTION_SET);
+      pragma Unreferenced(TIMEOUT);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SEMAPHORE_OBTAIN;
+
+   procedure SEMAPHORE_RELEASE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SEMAPHORE_RELEASE;
+
+-- Message Queue Manager
+
+   procedure MESSAGE_QUEUE_CREATE (
+      Name             : in     RTEMS.Name;
+      Count            : in     RTEMS.Unsigned32;
+      Max_Message_Size : in     RTEMS.Unsigned32;
+      Attribute_Set    : in     RTEMS.Attribute;
+      ID               :    out RTEMS.ID;
+      Result           :    out RTEMS.Status_Codes
+   ) is
+      pragma Unreferenced(Name);
+      pragma Unreferenced(Count);
+      pragma Unreferenced(Max_Message_Size);
+      pragma Unreferenced(Attribute_Set);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_CREATE;
+
+   procedure MESSAGE_QUEUE_IDENT (
+      NAME   : in     RTEMS.NAME;
+      NODE   : in     RTEMS.UNSIGNED32;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(NODE);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_IDENT;
+
+   procedure MESSAGE_QUEUE_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_DELETE;
+
+   procedure MESSAGE_QUEUE_SEND (
+      ID     : in     RTEMS.ID;
+      BUFFER : in     RTEMS.ADDRESS;
+      Size   : in     RTEMS.Unsigned32;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(BUFFER);
+      pragma Unreferenced(Size);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_SEND;
+
+   procedure MESSAGE_QUEUE_URGENT (
+      ID     : in     RTEMS.ID;
+      BUFFER : in     RTEMS.ADDRESS;
+      Size   : in     RTEMS.Unsigned32;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(BUFFER);
+      pragma Unreferenced(Size);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_URGENT;
+
+   procedure MESSAGE_QUEUE_BROADCAST (
+      ID     : in     RTEMS.ID;
+      BUFFER : in     RTEMS.ADDRESS;
+      Size   : in     RTEMS.Unsigned32;
+      COUNT  :    out RTEMS.UNSIGNED32;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(BUFFER);
+      pragma Unreferenced(Size);
+   begin
+
+      COUNT := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_BROADCAST;
+
+   procedure MESSAGE_QUEUE_RECEIVE (
+      ID         : in     RTEMS.ID;
+      BUFFER     : in     RTEMS.ADDRESS;
+      OPTION_SET : in     RTEMS.OPTION;
+      TIMEOUT    : in     RTEMS.INTERVAL;
+      Size       :    out RTEMS.Unsigned32;
+      RESULT     :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(BUFFER);
+      pragma Unreferenced(OPTION_SET);
+      pragma Unreferenced(TIMEOUT);
+   begin
+
+      Size := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_RECEIVE;
+
+   procedure MESSAGE_QUEUE_FLUSH (
+      ID     : in     RTEMS.ID;
+      COUNT  :    out RTEMS.UNSIGNED32;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      COUNT := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end MESSAGE_QUEUE_FLUSH;
+
+-- Event Manager
+
+   procedure EVENT_SEND (
+      ID       : in     RTEMS.ID;
+      EVENT_IN : in     RTEMS.EVENT_SET;
+      RESULT   :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(EVENT_IN);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end EVENT_SEND;
+
+   procedure EVENT_RECEIVE (
+      EVENT_IN   : in     RTEMS.EVENT_SET;
+      OPTION_SET : in     RTEMS.OPTION;
+      TICKS      : in     RTEMS.INTERVAL;
+      EVENT_OUT  :    out RTEMS.EVENT_SET;
+      RESULT     :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(EVENT_IN);
+      pragma Unreferenced(OPTION_SET);
+      pragma Unreferenced(TICKS);
+   begin
+
+      EVENT_OUT := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end EVENT_RECEIVE;
+
+-- Signal Manager
+
+   procedure SIGNAL_CATCH (
+      ASR_HANDLER : in     RTEMS.ASR_HANDLER;
+      MODE_SET    : in     RTEMS.MODE;
+      RESULT      :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ASR_HANDLER);
+      pragma Unreferenced(MODE_SET);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SIGNAL_CATCH;
+
+   procedure SIGNAL_SEND (
+      ID         : in     RTEMS.ID;
+      SIGNAL_SET : in     RTEMS.SIGNAL_SET;
+      RESULT     :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(SIGNAL_SET);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end SIGNAL_SEND;
+
+-- Partition Manager
+
+   procedure PARTITION_CREATE (
+      NAME             : in     RTEMS.NAME;
+      STARTING_ADDRESS : in     RTEMS.ADDRESS;
+      LENGTH           : in     RTEMS.UNSIGNED32;
+      BUFFER_SIZE      : in     RTEMS.UNSIGNED32;
+      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
+      ID               :    out RTEMS.ID;
+      RESULT           :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(STARTING_ADDRESS);
+      pragma Unreferenced(LENGTH);
+      pragma Unreferenced(BUFFER_SIZE);
+      pragma Unreferenced(ATTRIBUTE_SET);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PARTITION_CREATE;
+
+   procedure PARTITION_IDENT (
+      NAME   : in     RTEMS.NAME;
+      NODE   : in     RTEMS.UNSIGNED32;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(NODE);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PARTITION_IDENT;
+
+   procedure PARTITION_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PARTITION_DELETE;
+
+   procedure PARTITION_GET_BUFFER (
+      ID     : in     RTEMS.ID;
+      BUFFER :    out RTEMS.ADDRESS;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      BUFFER := RTEMS.Null_Address;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PARTITION_GET_BUFFER;
+
+   procedure PARTITION_RETURN_BUFFER (
+      ID     : in     RTEMS.ID;
+      BUFFER : in     RTEMS.ADDRESS;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(BUFFER);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PARTITION_RETURN_BUFFER;
+
+-- Region Manager
+
+   procedure REGION_CREATE (
+      NAME             : in     RTEMS.NAME;
+      STARTING_ADDRESS : in     RTEMS.ADDRESS;
+      LENGTH           : in     RTEMS.UNSIGNED32;
+      PAGE_SIZE        : in     RTEMS.UNSIGNED32;
+      ATTRIBUTE_SET    : in     RTEMS.ATTRIBUTE;
+      ID               :    out RTEMS.ID;
+      RESULT           :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(STARTING_ADDRESS);
+      pragma Unreferenced(LENGTH);
+      pragma Unreferenced(PAGE_SIZE);
+      pragma Unreferenced(ATTRIBUTE_SET);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end REGION_CREATE;
+
+   procedure REGION_IDENT (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end REGION_IDENT;
+
+   procedure REGION_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end REGION_DELETE;
+
+   procedure REGION_GET_SEGMENT (
+      ID         : in     RTEMS.ID;
+      SIZE       : in     RTEMS.UNSIGNED32;
+      OPTION_SET : in     RTEMS.OPTION;
+      TIMEOUT    : in     RTEMS.INTERVAL;
+      SEGMENT    :    out RTEMS.ADDRESS;
+      RESULT     :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(SIZE);
+      pragma Unreferenced(OPTION_SET);
+      pragma Unreferenced(TIMEOUT);
+   begin
+
+      SEGMENT := RTEMS.Null_Address;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end REGION_GET_SEGMENT;
+
+   procedure REGION_RETURN_SEGMENT (
+      ID      : in     RTEMS.ID;
+      SEGMENT : in     RTEMS.ADDRESS;
+      RESULT  :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(SEGMENT);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end REGION_RETURN_SEGMENT;
+
+-- Dual Ported Memory Manager
+
+   procedure PORT_CREATE (
+      NAME           : in     RTEMS.NAME;
+      INTERNAL_START : in     RTEMS.ADDRESS;
+      EXTERNAL_START : in     RTEMS.ADDRESS;
+      LENGTH         : in     RTEMS.UNSIGNED32;
+      ID             :    out RTEMS.ID;
+      RESULT         :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+      pragma Unreferenced(INTERNAL_START);
+      pragma Unreferenced(EXTERNAL_START);
+      pragma Unreferenced(LENGTH);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PORT_CREATE;
+
+   procedure PORT_IDENT (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PORT_IDENT;
+
+   procedure PORT_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PORT_DELETE;
+
+   procedure PORT_EXTERNAL_TO_INTERNAL (
+      ID       : in     RTEMS.ID;
+      EXTERNAL : in     RTEMS.ADDRESS;
+      INTERNAL :    out RTEMS.ADDRESS;
+      RESULT   :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(EXTERNAL);
+   begin
+
+      INTERNAL := RTEMS.Null_Address;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PORT_EXTERNAL_TO_INTERNAL;
+
+   procedure PORT_INTERNAL_TO_EXTERNAL (
+      ID       : in     RTEMS.ID;
+      INTERNAL : in     RTEMS.ADDRESS;
+      EXTERNAL :    out RTEMS.ADDRESS;
+      RESULT   :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(INTERNAL);
+   begin
+
+      EXTERNAL := RTEMS.Null_Address;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end PORT_INTERNAL_TO_EXTERNAL;
+
+-- Fatal Error Manager
+
+   procedure FATAL_ERROR_OCCURRED (
+      THE_ERROR : in     RTEMS.UNSIGNED32
+   ) is
+      pragma Unreferenced(THE_ERROR);
+   begin
+
+      NULL;
+
+   end FATAL_ERROR_OCCURRED;
+
+-- Rate Monotonic Manager
+
+   procedure RATE_MONOTONIC_CREATE (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end RATE_MONOTONIC_CREATE;
+
+   procedure RATE_MONOTONIC_IDENT (
+      NAME   : in     RTEMS.NAME;
+      ID     :    out RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(NAME);
+   begin
+
+      ID := 0;
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end RATE_MONOTONIC_IDENT;
+
+   procedure RATE_MONOTONIC_DELETE (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end RATE_MONOTONIC_DELETE;
+
+   procedure RATE_MONOTONIC_CANCEL (
+      ID     : in     RTEMS.ID;
+      RESULT :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end RATE_MONOTONIC_CANCEL;
+
+   procedure RATE_MONOTONIC_PERIOD (
+      ID      : in     RTEMS.ID;
+      LENGTH  : in     RTEMS.INTERVAL;
+      RESULT  :    out RTEMS.STATUS_CODES
+   ) is
+      pragma Unreferenced(ID);
+      pragma Unreferenced(LENGTH);
+   begin
+
+      RESULT := RTEMS.SUCCESSFUL;
+
+   end RATE_MONOTONIC_PERIOD;
+
+-- Multiprocessing Manager
+
+   procedure MULTIPROCESSING_ANNOUNCE
+   is
+   begin
+
+      NULL;
+
+   end MULTIPROCESSING_ANNOUNCE;
+
+end DUMMY_RTEMS;