-- -- 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-1997. -- On-Line Applications Research Corporation (OAR). -- Copyright assigned to U.S. Government, 1994. -- -- The license and distribution terms for this file may in -- the file LICENSE in this distribution or at -- http://www.OARcorp.com/rtems/license.html. -- -- $Id$ -- with RTEMS; package body DUMMY_RTEMS is -- Initialization Manager procedure INITIALIZE_EXECUTIVE ( CONFIGURATION_TABLE : in RTEMS.CONFIGURATION_TABLE_POINTER; CPU_TABLE : in RTEMS.CPU_TABLE_POINTER ) is begin NULL; end INITIALIZE_EXECUTIVE; procedure SHUTDOWN_EXECUTIVE ( RESULT : in RTEMS.UNSIGNED32 ) is begin NULL; end SHUTDOWN_EXECUTIVE; -- Task Manager procedure TASK_CREATE ( NAME : in RTEMS.NAME; INITIAL_PRIORITY : in RTEMS.TASK_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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end TASK_IDENT; procedure TASK_START ( ID : in RTEMS.ID; ENTRY_POINT : in RTEMS.TASK_ENTRY; ARGUMENT : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_START; procedure TASK_RESTART ( ID : in RTEMS.ID; ARGUMENT : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_RESTART; procedure TASK_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_DELETE; procedure TASK_SUSPEND ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_SUSPEND; procedure TASK_RESUME ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_RESUME; procedure TASK_SET_PRIORITY ( ID : in RTEMS.ID; NEW_PRIORITY : in RTEMS.TASK_PRIORITY; OLD_PRIORITY : out RTEMS.TASK_PRIORITY; RESULT : out RTEMS.STATUS_CODES ) is begin 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 begin RESULT := RTEMS.SUCCESSFUL; end TASK_MODE; procedure TASK_GET_NOTE ( ID : in RTEMS.ID; NOTEPAD : in RTEMS.NOTEPAD_INDEX; NOTE : out RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_GET_NOTE; procedure TASK_SET_NOTE ( ID : in RTEMS.ID; NOTEPAD : in RTEMS.NOTEPAD_INDEX; NOTE : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_SET_NOTE; procedure TASK_WAKE_WHEN ( TIME_BUFFER : in RTEMS.TIME_OF_DAY; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TASK_WAKE_WHEN; procedure TASK_WAKE_AFTER ( TICKS : in RTEMS.INTERVAL; RESULT : out RTEMS.STATUS_CODES ) is 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 RESULT := RTEMS.SUCCESSFUL; end INTERRUPT_CATCH; -- Clock Manager procedure CLOCK_GET ( OPTION : in RTEMS.CLOCK_GET_OPTIONS; TIME_BUFFER : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end CLOCK_GET; procedure CLOCK_SET ( TIME_BUFFER : in RTEMS.TIME_OF_DAY; RESULT : out RTEMS.STATUS_CODES ) is 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 begin RESULT := RTEMS.SUCCESSFUL; end TIMER_CREATE; procedure TIMER_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TIMER_DELETE; procedure TIMER_IDENT ( NAME : in RTEMS.NAME; ID : out RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin 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 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 begin RESULT := RTEMS.SUCCESSFUL; end TIMER_FIRE_WHEN; procedure TIMER_RESET ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end TIMER_RESET; procedure TIMER_CANCEL ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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.TASK_PRIORITY; ID : out RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end SEMAPHORE_CREATE; procedure SEMAPHORE_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end SEMAPHORE_OBTAIN; procedure SEMAPHORE_RELEASE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end MESSAGE_QUEUE_IDENT; procedure MESSAGE_QUEUE_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 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 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 begin 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 begin 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 begin 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 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 begin 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 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 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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end PARTITION_IDENT; procedure PARTITION_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin 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 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 begin RESULT := RTEMS.SUCCESSFUL; end REGION_CREATE; procedure REGION_IDENT ( NAME : in RTEMS.NAME; ID : out RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end REGION_IDENT; procedure REGION_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin 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 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 begin RESULT := RTEMS.SUCCESSFUL; end PORT_CREATE; procedure PORT_IDENT ( NAME : in RTEMS.NAME; ID : out RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end PORT_IDENT; procedure PORT_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end PORT_INTERNAL_TO_EXTERNAL; -- Input/Output Manager procedure IO_INITIALIZE ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_INITIALIZE; procedure IO_OPEN ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_OPEN; procedure IO_CLOSE ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_CLOSE; procedure IO_READ ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_READ; procedure IO_WRITE ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_WRITE; procedure IO_CONTROL ( MAJOR : in RTEMS.DEVICE_MAJOR_NUMBER; MINOR : in RTEMS.DEVICE_MINOR_NUMBER; ARGUMENT : in RTEMS.ADDRESS; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end IO_CONTROL; -- Fatal Error Manager procedure FATAL_ERROR_OCCURRED ( THE_ERROR : in RTEMS.UNSIGNED32 ) is 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 begin 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 begin RESULT := RTEMS.SUCCESSFUL; end RATE_MONOTONIC_IDENT; procedure RATE_MONOTONIC_DELETE ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is begin RESULT := RTEMS.SUCCESSFUL; end RATE_MONOTONIC_DELETE; procedure RATE_MONOTONIC_CANCEL ( ID : in RTEMS.ID; RESULT : out RTEMS.STATUS_CODES ) is 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 begin RESULT := RTEMS.SUCCESSFUL; end RATE_MONOTONIC_PERIOD; -- Multiprocessing Manager procedure MULTIPROCESSING_ANNOUNCE is begin NULL; end MULTIPROCESSING_ANNOUNCE; end DUMMY_RTEMS;