RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Remove tmoverhd which existed to produce the obsolete coverhd.h

Browse Source 
Closes #4040.
This commit is contained in:
Joel Sherrill
2020-09-10 12:29:11 -05:00
parent dd734d467d
commit 5959b1e34c
19 changed files with 2 additions and 4646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bsps/m68k/mvme147/README
View File

@@ -66,10 +66,7 @@ Other notes:
does not seem applicable on the VMEchip of the mvme147, so
I don't know where to start. Suggestions are welcome.
* All the timing tests and sp tests have been run except tmoverhd.
The test hangs during the pause (where the task should be suspended
until a return). Maybe the rtems_initialize_executive is no more
reentrant with this bsp.
* All the timing tests and sp tests have been run.
Future work:

5
bsps/m68k/mvme147s/README
View File

@@ -81,8 +81,5 @@ To be done:
Other notes:
* All the timing tests and sp tests have been run except tmoverhd.
The test hangs during the pause (where the task should be suspended
until a return). Maybe the rtems_initialize_executive is no more
reentrant with this bsp.
* All the timing tests and sp tests have been run

1
testsuites/ada/configure.ac
View File

@@ -110,7 +110,6 @@ tmtests/tm25/Makefile
tmtests/tm28/Makefile
tmtests/tm29/Makefile
tmtests/tmck/Makefile
tmtests/tmoverhd/Makefile
])
AC_CONFIG_FILES([

1
testsuites/ada/tmtests/Makefile.am
View File

@@ -27,6 +27,5 @@ _SUBDIRS += tm25
_SUBDIRS += tm28
_SUBDIRS += tm29
_SUBDIRS += tmck
_SUBDIRS += tmoverhd
include $(top_srcdir)/../automake/subdirs.am

13
testsuites/ada/tmtests/tmoverhd/Makefile.am
View File

@@ -1,13 +0,0 @@
include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg
include $(top_srcdir)/../automake/compile.am
include $(top_srcdir)/ada.am
noinst_PROGRAMS = ada_tmoverhd
ada_tmoverhd_SOURCES = tmoverhd.adb config.h tmtest.adb tmtest.ads \
dummy_rtems.adb dummy_rtems.ads
ada_tmoverhd_SOURCES += init.c
ada_tmoverhd$(EXEEXT): tmoverhd.adb init.$(OBJEXT)
$(GNATCOMPILE) -margs -a $< -o $@

5
testsuites/ada/tmtests/tmoverhd/README
View File

@@ -1,5 +0,0 @@
This test is of marginal usefulness in testing the bindings. It
shows how much overhead is required to call the Ada binding
routine but does not give any indication of how much overhead the
binding itself adds. This information can be inferred by subtracting
the C times from Ada times on the same target processor.

891
testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb
View File

@@ -1,891 +0,0 @@
--
-- 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;

445
testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads
View File

@@ -1,445 +0,0 @@
--
-- DUMMY_RTEMS / SPECIFICATION
--
-- DESCRIPTION:
--
-- This package contains specifications for stub routines
-- which are used to time the invocation overhead incurred
-- with an Ada application program invokes each RTEMS directive.
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1989-2007.
-- 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.
--
with RTEMS;
with RTEMS.CLOCK;
with RTEMS.TASKS;
with RTEMS.TIMER;
package 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
);
procedure TASK_IDENT (
NAME : in RTEMS.NAME;
NODE : in RTEMS.UNSIGNED32;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_START (
ID : in RTEMS.ID;
ENTRY_POINT : in RTEMS.TASKS.ENTRY_POINT;
ARGUMENT : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_RESTART (
ID : in RTEMS.ID;
ARGUMENT : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_SUSPEND (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_RESUME (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
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
);
procedure TASK_MODE (
MODE_SET : in RTEMS.MODE;
MASK : in RTEMS.MODE;
PREVIOUS_MODE_SET : out RTEMS.MODE;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_WAKE_WHEN (
TIME_BUFFER : in RTEMS.TIME_OF_DAY;
RESULT : out RTEMS.STATUS_CODES
);
procedure TASK_WAKE_AFTER (
TICKS : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
-- );
-- Clock Manager
procedure CLOCK_GET_TOD (
TIME_BUFFER : out RTEMS.TIME_OF_DAY;
RESULT : out RTEMS.STATUS_CODES
);
procedure CLOCK_SET (
TIME_BUFFER : in RTEMS.TIME_OF_DAY;
RESULT : out RTEMS.STATUS_CODES
);
procedure CLOCK_TICK (
RESULT : out RTEMS.STATUS_CODES
);
-- Timer Manager
procedure TIMER_CREATE (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TIMER_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TIMER_IDENT (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
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
);
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
);
procedure TIMER_RESET (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure TIMER_CANCEL (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
);
procedure SEMAPHORE_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure SEMAPHORE_IDENT (
NAME : in RTEMS.NAME;
NODE : in RTEMS.UNSIGNED32;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure SEMAPHORE_OBTAIN (
ID : in RTEMS.ID;
OPTION_SET : in RTEMS.OPTION;
TIMEOUT : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
);
procedure SEMAPHORE_RELEASE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
);
procedure MESSAGE_QUEUE_IDENT (
NAME : in RTEMS.NAME;
NODE : in RTEMS.UNSIGNED32;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_SEND (
ID : in RTEMS.ID;
BUFFER : in RTEMS.ADDRESS;
SIZE : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
procedure MESSAGE_QUEUE_URGENT (
ID : in RTEMS.ID;
BUFFER : in RTEMS.ADDRESS;
SIZE : in RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
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
);
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
);
procedure MESSAGE_QUEUE_FLUSH (
ID : in RTEMS.ID;
COUNT : out RTEMS.UNSIGNED32;
RESULT : out RTEMS.STATUS_CODES
);
-- Event Manager
procedure EVENT_SEND (
ID : in RTEMS.ID;
EVENT_IN : in RTEMS.EVENT_SET;
RESULT : out RTEMS.STATUS_CODES
);
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
);
-- Signal Manager
procedure SIGNAL_CATCH (
ASR_HANDLER : in RTEMS.ASR_HANDLER;
MODE_SET : in RTEMS.MODE;
RESULT : out RTEMS.STATUS_CODES
);
procedure SIGNAL_SEND (
ID : in RTEMS.ID;
SIGNAL_SET : in RTEMS.SIGNAL_SET;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
);
procedure PARTITION_IDENT (
NAME : in RTEMS.NAME;
NODE : in RTEMS.UNSIGNED32;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure PARTITION_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure PARTITION_GET_BUFFER (
ID : in RTEMS.ID;
BUFFER : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);
procedure PARTITION_RETURN_BUFFER (
ID : in RTEMS.ID;
BUFFER : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
);
procedure REGION_IDENT (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure REGION_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
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
);
procedure REGION_RETURN_SEGMENT (
ID : in RTEMS.ID;
SEGMENT : in RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);
-- 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
);
procedure PORT_IDENT (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure PORT_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure PORT_EXTERNAL_TO_INTERNAL (
ID : in RTEMS.ID;
EXTERNAL : in RTEMS.ADDRESS;
INTERNAL : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);
procedure PORT_INTERNAL_TO_EXTERNAL (
ID : in RTEMS.ID;
INTERNAL : in RTEMS.ADDRESS;
EXTERNAL : out RTEMS.ADDRESS;
RESULT : out RTEMS.STATUS_CODES
);
-- Fatal Error Manager
procedure FATAL_ERROR_OCCURRED (
THE_ERROR : in RTEMS.UNSIGNED32
);
-- Rate Monotonic Manager
procedure RATE_MONOTONIC_CREATE (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure RATE_MONOTONIC_IDENT (
NAME : in RTEMS.NAME;
ID : out RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure RATE_MONOTONIC_DELETE (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure RATE_MONOTONIC_CANCEL (
ID : in RTEMS.ID;
RESULT : out RTEMS.STATUS_CODES
);
procedure RATE_MONOTONIC_PERIOD (
ID : in RTEMS.ID;
LENGTH : in RTEMS.INTERVAL;
RESULT : out RTEMS.STATUS_CODES
);
-- Multiprocessing Manager
procedure MULTIPROCESSING_ANNOUNCE;
end DUMMY_RTEMS;

34
testsuites/ada/tmtests/tmoverhd/init.c
View File

@@ -1,34 +0,0 @@
/* config.h
*
* This include file defines the Configuration Table for this test.
*
* COPYRIGHT (c) 1989-1997.
* 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.
*/
/* configuration information */
#define CONFIGURE_TMTEST
#define CONFIGURE_APPLICATION_NEEDS_SIMPLE_CONSOLE_DRIVER
#define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
#define CONFIGURE_MAXIMUM_TASKS 2
#define ADA_TEST_NAME "ADA TMOVERHD"
#define CONFIGURE_MAXIMUM_SEMAPHORES 1
#define CONFIGURE_TICKS_PER_TIMESLICE 0
#define CONFIGURE_POSIX_INIT_THREAD_TABLE
#define CONFIGURE_MAXIMUM_POSIX_THREADS 10
#define CONFIGURE_MAXIMUM_POSIX_KEYS 10
#include "../../support/initimpl.h"
/* end of include file */

55
testsuites/ada/tmtests/tmoverhd/tmoverhd.adb
View File

@@ -1,55 +0,0 @@
--
-- MAIN / BODY
--
-- DESCRIPTION:
--
-- This is the entry point for Test TMOVERHD of the Timing Test Suite.
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1989-1997.
-- 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.
--
with RTEMS;
with RTEMS.TASKS;
with TMTEST;
with TEST_SUPPORT;
procedure TMOVERHD is
INIT_ID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
RTEMS.TASKS.CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1,
RTEMS.MINIMUM_STACK_SIZE,
RTEMS.NO_PREEMPT,
RTEMS.DEFAULT_ATTRIBUTES,
INIT_ID,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASKS.START(
INIT_ID,
TMTEST.INIT'ACCESS,
0,
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
loop
delay 120.0;
end loop;
end TMOVERHD;

1363
testsuites/ada/tmtests/tmoverhd/tmtest.adb
View File

File diff suppressed because it is too large Load Diff

156
testsuites/ada/tmtests/tmoverhd/tmtest.ads
View File

@@ -1,156 +0,0 @@
--
-- TMTEST / SPECIFICATION
--
-- DESCRIPTION:
--
-- This package is the specification for Calling Overhead Test of the RTEMS
-- Timing Test Suite.
--
-- 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.
--
with RTEMS;
with RTEMS.TASKS;
with SYSTEM;
with System.Storage_Elements;
package TMTEST is
--
-- Buffer Record similar to that used by RTEMS 3.2.1. Using this
-- avoids changes to the test.
--
type BUFFER is
record
FIELD1 : RTEMS.UNSIGNED32; -- TEMPORARY UNTIL VARIABLE LENGTH
FIELD2 : RTEMS.UNSIGNED32;
FIELD3 : RTEMS.UNSIGNED32;
FIELD4 : RTEMS.UNSIGNED32;
end record;
--
-- These arrays contain the IDs and NAMEs of all RTEMS tasks created
-- by this test.
--
TASK_ID : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.ID;
TASK_NAME : array ( RTEMS.UNSIGNED32 range 1 .. 3 ) of RTEMS.NAME;
--
-- The following variable is set to the execution time returned
-- by the timer.
--
END_TIME : RTEMS.UNSIGNED32;
--
-- The following area defines a memory area to be used as the
-- internal address space of the port.
--
INTERNAL_PORT_AREA_ADDRESS : constant System.Address :=
System.Storage_Elements.To_Address(16#00001000#);
INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for INTERNAL_PORT_AREA'Address use INTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
-- external address space of the port.
--
EXTERNAL_PORT_AREA_ADDRESS : constant System.Address :=
System.Storage_Elements.To_Address(16#00002000#);
EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
of RTEMS.UNSIGNED8;
for EXTERNAL_PORT_AREA'Address use EXTERNAL_PORT_AREA_ADDRESS;
--
-- The following area defines a memory area to be used as the
-- memory space for a partition and later for a region.
--
MEMORY_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 ) of RTEMS.UNSIGNED8;
for MEMORY_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
--
-- INIT
--
-- DESCRIPTION:
--
-- This RTEMS task initializes the application.
--
procedure INIT (
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, INIT);
--
-- TIMER_HANDLER
--
-- DESCRIPTION:
--
-- This subprogram is a timer service routine.
--
procedure TIMER_HANDLER (
IGNORED_ID : in RTEMS.ID;
IGNORED_ADDRESS : in RTEMS.ADDRESS
);
pragma Convention (C, TIMER_HANDLER);
--
-- ISR_HANDLER
--
-- DESCRIPTION:
--
-- This subprogram is an interrupt service routine.
--
-- procedure ISR_HANDLER (
-- VECTOR : in RTEMS.VECTOR_NUMBER
-- );
--
-- ASR_HANDLER
--
-- DESCRIPTION:
--
-- This subprogram is an asynchronous signal routine.
--
procedure ASR_HANDLER (
SIGNALS : in RTEMS.SIGNAL_SET
);
pragma Convention (C, ASR_HANDLER);
--
-- TASK_1
--
-- DESCRIPTION:
--
-- This RTEMS task is responsible for measuring and
-- reporting the calling overhead for all RTEMS
-- directives.
--
procedure TASK_1 (
ARGUMENT : in RTEMS.TASKS.ARGUMENT
);
pragma Convention (C, TASK_1);
end TMTEST;

10
testsuites/tmtests/Makefile.am
View File

@@ -374,16 +374,6 @@ tmonetoone_CPPFLAGS = $(AM_CPPFLAGS) $(TEST_FLAGS_tmonetoone) \
$(support_includes)
endif
if TEST_tmoverhd
tm_tests += tmoverhd
tm_docs += tmoverhd/tmoverhd.doc
tmoverhd_SOURCES = tmoverhd/testtask.c tmoverhd/empty.c \
tmoverhd/system.h tmoverhd/dumrtems.h include/timesys.h \
../support/src/tmtests_empty_function.c
tmoverhd_CPPFLAGS = $(AM_CPPFLAGS) $(TEST_FLAGS_tmoverhd) \
$(support_includes) -I$(top_srcdir)/include
endif
if TEST_tmtimer01
tm_tests += tmtimer01
tm_screens += tmtimer01/tmtimer01.scn

1
testsuites/tmtests/configure.ac
View File

@@ -64,7 +64,6 @@ RTEMS_TEST_CHECK([tmck])
RTEMS_TEST_CHECK([tmcontext01])
RTEMS_TEST_CHECK([tmfine01])
RTEMS_TEST_CHECK([tmonetoone])
RTEMS_TEST_CHECK([tmoverhd])
RTEMS_TEST_CHECK([tmtimer01])
AC_CONFIG_FILES([Makefile])

250
testsuites/tmtests/tmoverhd/dumrtems.h
View File

@@ -1,250 +0,0 @@
/* dumrtems.h
*
* This include file contains phony macros to map
* executive calls to Empty_directive().
*
* COPYRIGHT (c) 1989-1999.
* On-Line Applications Research Corporation (OAR).
*
* The license and distribution terms for this file may be
* found in the file LICENSE in this distribution or at
* http://www.rtems.org/license/LICENSE.
*/
#ifndef __DUMRTEMS_h
#define __DUMRTEMS_h
/* RTEMS call redefinition macros */
#undef rtems_signal_catch
#undef rtems_signal_send
#undef rtems_io_close
#undef rtems_io_control
#undef rtems_io_initialize
#undef rtems_io_open
#undef rtems_io_read
#undef rtems_io_write
#undef rtems_port_internal_to_external
#undef rtems_port_external_to_internal
#undef rtems_port_create
#undef rtems_port_delete
#undef rtems_port_ident
#undef rtems_event_receive
#undef rtems_event_send
#undef rtems_initialize_data_structures
#undef rtems_shutdown_executive
#undef rtems_interrupt_catch
#undef rtems_partition_create
#undef rtems_partition_delete
#undef rtems_partition_get_buffer
#undef rtems_partition_ident
#undef rtems_partition_return_buffer
#undef rtems_message_queue_broadcast
#undef rtems_message_queue_create
#undef rtems_message_queue_delete
#undef rtems_message_queue_flush
#undef rtems_message_queue_ident
#undef rtems_message_queue_receive
#undef rtems_message_queue_send
#undef rtems_message_queue_urgent
#undef rtems_region_create
#undef rtems_region_delete
#undef rtems_region_get_segment
#undef rtems_region_ident
#undef rtems_region_return_segment
#undef rtems_semaphore_create
#undef rtems_semaphore_delete
#undef rtems_semaphore_ident
#undef rtems_semaphore_obtain
#undef rtems_semaphore_release
#undef rtems_task_create
#undef rtems_task_delete
#undef rtems_task_ident
#undef rtems_task_mode
#undef rtems_task_restart
#undef rtems_task_resume
#undef rtems_task_set_priority
#undef rtems_task_start
#undef rtems_task_suspend
#undef rtems_clock_get
#undef rtems_clock_set
#undef rtems_clock_tick
#undef rtems_task_wake_after
#undef rtems_task_wake_when
#undef rtems_fatal_error_occurred
#undef rtems_rate_monotonic_create
#undef rtems_rate_monotonic_ident
#undef rtems_rate_monotonic_delete
#undef rtems_rate_monotonic_cancel
#undef rtems_rate_monotonic_period
#undef rtems_multiprocessing_announce
#undef rtems_timer_create
#undef rtems_timer_ident
#undef rtems_timer_delete
#undef rtems_timer_cancel
#undef rtems_timer_fire_after
#undef rtems_timer_fire_when
#undef rtems_timer_reset
#define rtems_signal_catch( asraddr, mode ) \
Empty_directive()
#define rtems_signal_send( tid, signal ) \
Empty_directive()
#define rtems_io_close( major, minor, argp, rval ) \
Empty_directive()
#define rtems_io_control( major, minor, argp, rval ) \
Empty_directive()
#define rtems_io_initialize( major, minor, argp, rval ) \
Empty_directive()
#define rtems_io_open( major, minor, argp, rval ) \
Empty_directive()
#define rtems_io_read( major, minor, argp, rval ) \
Empty_directive()
#define rtems_io_write( major, minor, argp, rval ) \
Empty_directive()
#define rtems_port_internal_to_external( dpid, internal, external ) \
Empty_directive()
#define rtems_port_external_to_internal( dpid, external, internal ) \
Empty_directive()
#define rtems_port_create( name, intaddr, extaddr, length, dpid ) \
Empty_directive()
#define rtems_port_delete( dpid ) \
Empty_directive()
#define rtems_port_ident( name, dpid ) \
Empty_directive()
#define rtems_event_receive( eventin, options, timeout, eventout ) \
Empty_directive()
#define rtems_event_send( tid, event ) \
Empty_directive()
#define rtems_initialize_executive( conftbl, cputbl ) \
Empty_directive()
#define rtems_shutdown_executive( the_error ) \
Empty_directive()
#define rtems_interrupt_catch( israddr, vector, oldisr ) \
Empty_directive()
#define rtems_partition_create( name, paddr, length, bsize, attr, ptid ) \
Empty_directive()
#define rtems_partition_delete( ptid ) \
Empty_directive()
#define rtems_partition_get_buffer( ptid, bufaddr ) \
Empty_directive()
#define rtems_partition_ident( name, node, ptid ) \
Empty_directive()
#define rtems_partition_return_buffer( ptid, bufaddr ) \
Empty_directive()
#define rtems_message_queue_broadcast( qid, buffer, count ) \
Empty_directive()
#define rtems_message_queue_create( name, count, attr, qid ) \
Empty_directive()
#define rtems_message_queue_delete( qid ) \
Empty_directive()
#define rtems_message_queue_flush( qid, count ) \
Empty_directive()
#define rtems_message_queue_ident( name, node, qid ) \
Empty_directive()
#define rtems_message_queue_receive( qid, buffer, options, timeout ) \
Empty_directive()
#define rtems_message_queue_send( qid, buffer ) \
Empty_directive()
#define rtems_message_queue_urgent( qid, buffer ) \
Empty_directive()
#define rtems_region_create( name, paddr, length, pagesize, attr, rnid ) \
Empty_directive()
#define rtems_region_delete( rnid ) \
Empty_directive()
#define rtems_region_get_segment( rnid, size, options, timeout, segaddr ) \
Empty_directive()
#define rtems_region_ident( name, rnid ) \
Empty_directive()
#define rtems_region_return_segment( rnid, segaddr ) \
Empty_directive()
#define rtems_semaphore_create( name, count, attr, priceil, smid ) \
Empty_directive()
#define rtems_semaphore_delete( smid ) \
Empty_directive()
#define rtems_semaphore_ident( name, node, smid ) \
Empty_directive()
#define rtems_semaphore_obtain( smid, options, timeout ) \
Empty_directive()
#define rtems_semaphore_release( smid ) \
Empty_directive()
#define rtems_task_create( name, priority, stack_size, mode, attr, tid ) \
Empty_directive()
#define rtems_task_delete( tid ) \
Empty_directive()
#define rtems_task_ident( name, node, tid ) \
Empty_directive()
#define rtems_task_mode( mode, mask, pmode ) \
Empty_directive()
#define rtems_task_restart( tid, arg ) \
Empty_directive()
#define rtems_task_resume( tid ) \
Empty_directive()
#define rtems_task_set_priority( tid, priority, ppriority ) \
Empty_directive()
#define rtems_task_start( tid, saddr, arg ) \
Empty_directive()
#define rtems_task_suspend( tid ) \
Empty_directive()
#define rtems_clock_get_tod( tod ) \
Empty_directive()
#define rtems_clock_set( time ) \
Empty_directive()
#define rtems_clock_tick() \
Empty_directive()
#define rtems_task_wake_after( ticks ) \
Empty_directive()
#define rtems_task_wake_when( time ) \
Empty_directive()
#define rtems_fatal_error_occurred( errcode ) \
Empty_directive()
#define rtems_rate_monotonic_create( name, id ) \
Empty_directive()
#define rtems_rate_monotonic_ident( name, id ) \
Empty_directive()
#define rtems_rate_monotonic_delete( id ) \
Empty_directive()
#define rtems_rate_monotonic_cancel( id ) \
Empty_directive()
#define rtems_rate_monotonic_period( id, period ) \
Empty_directive()
#define rtems_multiprocessing_announce() \
Empty_directive()
#define rtems_timer_create( name, tmid ) \
Empty_directive()
#define rtems_timer_delete( tmid ) \
Empty_directive()
#define rtems_timer_cancel( tmid ) \
Empty_directive()
#define rtems_timer_ident( name, tmid ) \
Empty_directive()
#define rtems_timer_fire_after( tmid, ticks, routine, user_data ) \
Empty_directive()
#define rtems_timer_fire_when( tmid, time, routine, user_data ) \
Empty_directive()
#define rtems_timer_reset( tmid ) \
Empty_directive()
#if defined(__GNUC__)
#define RTEMS_GCC_NOWARN_UNUSED RTEMS_UNUSED
#else
#define RTEMS_GCC_NOWARN_UNUSED
#endif
#endif
/* end of include file */

45
testsuites/tmtests/tmoverhd/empty.c
View File

@@ -1,45 +0,0 @@
/*
* COPYRIGHT (c) 1989-2013.
* On-Line Applications Research Corporation (OAR).
*
* The license and distribution terms for this file may be
* found in the file LICENSE in this distribution or at
* http://www.rtems.org/license/LICENSE.
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "system.h"
rtems_timer_service_routine Timer_handler(
rtems_id argument
)
{
}
rtems_asr Isr_handler(
rtems_signal_set signals
)
{
}
rtems_asr Asr_handler(
rtems_signal_set signals
)
{
}
rtems_task task_func(void)
{
}
void null_func(void)
{
}
rtems_status_code Empty_directive(void)
{
return( RTEMS_SUCCESSFUL );
}

54
testsuites/tmtests/tmoverhd/system.h
View File

@@ -1,54 +0,0 @@
/* system.h
*
* This include file is used by all tests in the Time Suite.
*
* COPYRIGHT (c) 1989-1999.
* On-Line Applications Research Corporation (OAR).
*
* The license and distribution terms for this file may be
* found in the file LICENSE in this distribution or at
* http://www.rtems.org/license/LICENSE.
*/
#include <tmacros.h>
/* functions */
rtems_task Init(
rtems_task_argument argument
);
rtems_timer_service_routine Timer_handler(
rtems_id argument
);
rtems_asr Isr_handler(
rtems_signal_set signals
);
rtems_asr Asr_handler(
rtems_signal_set signals
);
extern rtems_task task_func(void);
extern void null_func(void);
extern rtems_status_code Empty_directive(void);
#include <timesys.h>
/* configuration information */
#define CONFIGURE_APPLICATION_NEEDS_SIMPLE_CONSOLE_DRIVER
#define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
#define CONFIGURE_MAXIMUM_TASKS 2
#define CONFIGURE_TICKS_PER_TIMESLICE 0
#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
#include <rtems/confdefs.h>
/* end of include file */

1232
testsuites/tmtests/tmoverhd/testtask.c
View File

File diff suppressed because it is too large Load Diff

82
testsuites/tmtests/tmoverhd/tmoverhd.doc
View File

@@ -1,82 +0,0 @@
# COPYRIGHT (c) 1989-1999.
# On-Line Applications Research Corporation (OAR).
#
# The license and distribution terms for this file may be
# found in the file LICENSE in this distribution or at
# http://www.rtems.org/license/LICENSE.
#
directives:
+ rtems shutdown executive
+ rtems task create
+ rtems task ident
+ rtems task start
+ rtems task restart
+ rtems task delete
+ rtems task suspend
+ rtems task resume
+ rtems task set priority
+ rtems task mode
+ rtems task wake when
+ rtems task wake after
+ rtems interrupt catch
+ rtems clock get
+ rtems clock set
+ rtems clock tick
+ rtems timer create
+ rtems timer delete
+ rtems timer ident
+ rtems timer fire after
+ rtems timer fire when
+ rtems timer reset
+ rtems timer cancel
+ rtems semaphore create
+ rtems semaphore delete
+ rtems semaphore ident
+ rtems semaphore obtain
+ rtems semaphore release
+ rtems message queue create
+ rtems message queue ident
+ rtems message queue delete
+ rtems message queue send
+ rtems message queue urgent
+ rtems message queue broadcast
+ rtems message queue receive
+ rtems message queue flush
+ rtems event send
+ rtems event receive
+ rtems signal catch
+ rtems signal send
+ rtems partition create
+ rtems partition ident
+ rtems partition delete
+ rtems partition get buffer
+ rtems partition return buffer
+ rtems region create
+ rtems region ident
+ rtems region delete
+ rtems region get segment
+ rtems region return segment
+ rtems port create
+ rtems port ident
+ rtems port delete
+ rtems port external to internal
+ rtems port internal to external
+ rtems io initialize
+ rtems io open
+ rtems io close
+ rtems io read
+ rtems io write
+ rtems io control
+ rtems fatal error occurred
+ rtems rate monotonic create
+ rtems rate monotonic ident
+ rtems rate monotonic delete
+ rtems rate monotonic cancel
+ rtems rate monotonic period
+ rtems multiprocessing announce
concepts:
+ Test the overhead of various classic RTEMS directives.