From 5959b1e34c6ebd47cc75f4589091a39cdf7a6a57 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 10 Sep 2020 12:29:11 -0500 Subject: Remove tmoverhd which existed to produce the obsolete coverhd.h Closes #4040. --- bsps/m68k/mvme147/README | 5 +- bsps/m68k/mvme147s/README | 5 +- testsuites/ada/configure.ac | 1 - testsuites/ada/tmtests/Makefile.am | 1 - testsuites/ada/tmtests/tmoverhd/Makefile.am | 13 - testsuites/ada/tmtests/tmoverhd/README | 5 - testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb | 891 --------------- testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads | 445 -------- testsuites/ada/tmtests/tmoverhd/init.c | 34 - testsuites/ada/tmtests/tmoverhd/tmoverhd.adb | 55 - testsuites/ada/tmtests/tmoverhd/tmtest.adb | 1363 ----------------------- testsuites/ada/tmtests/tmoverhd/tmtest.ads | 156 --- testsuites/tmtests/Makefile.am | 10 - testsuites/tmtests/configure.ac | 1 - testsuites/tmtests/tmoverhd/dumrtems.h | 250 ----- testsuites/tmtests/tmoverhd/empty.c | 45 - testsuites/tmtests/tmoverhd/system.h | 54 - testsuites/tmtests/tmoverhd/testtask.c | 1232 -------------------- testsuites/tmtests/tmoverhd/tmoverhd.doc | 82 -- 19 files changed, 2 insertions(+), 4646 deletions(-) delete mode 100644 testsuites/ada/tmtests/tmoverhd/Makefile.am delete mode 100644 testsuites/ada/tmtests/tmoverhd/README delete mode 100644 testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb delete mode 100644 testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads delete mode 100644 testsuites/ada/tmtests/tmoverhd/init.c delete mode 100644 testsuites/ada/tmtests/tmoverhd/tmoverhd.adb delete mode 100644 testsuites/ada/tmtests/tmoverhd/tmtest.adb delete mode 100644 testsuites/ada/tmtests/tmoverhd/tmtest.ads delete mode 100644 testsuites/tmtests/tmoverhd/dumrtems.h delete mode 100644 testsuites/tmtests/tmoverhd/empty.c delete mode 100644 testsuites/tmtests/tmoverhd/system.h delete mode 100644 testsuites/tmtests/tmoverhd/testtask.c delete mode 100644 testsuites/tmtests/tmoverhd/tmoverhd.doc diff --git a/bsps/m68k/mvme147/README b/bsps/m68k/mvme147/README index 91f78e2be3..3bc7afd89d 100644 --- a/bsps/m68k/mvme147/README +++ b/bsps/m68k/mvme147/README @@ -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: diff --git a/bsps/m68k/mvme147s/README b/bsps/m68k/mvme147s/README index c191872f42..77022980f0 100644 --- a/bsps/m68k/mvme147s/README +++ b/bsps/m68k/mvme147s/README @@ -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 diff --git a/testsuites/ada/configure.ac b/testsuites/ada/configure.ac index 4ec8532ada..2c9937131e 100644 --- a/testsuites/ada/configure.ac +++ b/testsuites/ada/configure.ac @@ -110,7 +110,6 @@ tmtests/tm25/Makefile tmtests/tm28/Makefile tmtests/tm29/Makefile tmtests/tmck/Makefile -tmtests/tmoverhd/Makefile ]) AC_CONFIG_FILES([ diff --git a/testsuites/ada/tmtests/Makefile.am b/testsuites/ada/tmtests/Makefile.am index ed9de68373..b4d96c150b 100644 --- a/testsuites/ada/tmtests/Makefile.am +++ b/testsuites/ada/tmtests/Makefile.am @@ -27,6 +27,5 @@ _SUBDIRS += tm25 _SUBDIRS += tm28 _SUBDIRS += tm29 _SUBDIRS += tmck -_SUBDIRS += tmoverhd include $(top_srcdir)/../automake/subdirs.am diff --git a/testsuites/ada/tmtests/tmoverhd/Makefile.am b/testsuites/ada/tmtests/tmoverhd/Makefile.am deleted file mode 100644 index 75e9719426..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/Makefile.am +++ /dev/null @@ -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 $@ - diff --git a/testsuites/ada/tmtests/tmoverhd/README b/testsuites/ada/tmtests/tmoverhd/README deleted file mode 100644 index 4e66647830..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/README +++ /dev/null @@ -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. diff --git a/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb b/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb deleted file mode 100644 index 62986dc465..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/dummy_rtems.adb +++ /dev/null @@ -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; diff --git a/testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads b/testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads deleted file mode 100644 index ea4f129893..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/dummy_rtems.ads +++ /dev/null @@ -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; diff --git a/testsuites/ada/tmtests/tmoverhd/init.c b/testsuites/ada/tmtests/tmoverhd/init.c deleted file mode 100644 index 37b6c28faa..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/init.c +++ /dev/null @@ -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 */ diff --git a/testsuites/ada/tmtests/tmoverhd/tmoverhd.adb b/testsuites/ada/tmtests/tmoverhd/tmoverhd.adb deleted file mode 100644 index bfe6de4f88..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/tmoverhd.adb +++ /dev/null @@ -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; - diff --git a/testsuites/ada/tmtests/tmoverhd/tmtest.adb b/testsuites/ada/tmtests/tmoverhd/tmtest.adb deleted file mode 100644 index d271ed220c..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/tmtest.adb +++ /dev/null @@ -1,1363 +0,0 @@ --- --- TMTEST / BODY --- --- DESCRIPTION: --- --- This package is the implementation of 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 DUMMY_RTEMS; -with TEST_SUPPORT; -with TEXT_IO; -with TIME_TEST_SUPPORT; -with TIMER_DRIVER; - -package body TMTEST is - ---PAGE --- --- INIT --- - - procedure INIT ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - STATUS : RTEMS.STATUS_CODES; - begin - - TEXT_IO.NEW_LINE( 2 ); - TEST_SUPPORT.ADA_TEST_BEGIN; - - TIMER_DRIVER.SET_FIND_AVERAGE_OVERHEAD( TRUE ); - - TMTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' ); - - RTEMS.TASKS.CREATE( - TMTEST.TASK_NAME( 1 ), - 254, - 2048, - RTEMS.DEFAULT_MODES, - RTEMS.DEFAULT_ATTRIBUTES, - TMTEST.TASK_ID( 1 ), - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" ); - - RTEMS.TASKS.START( - TMTEST.TASK_ID( 1 ), - TMTEST.TASK_1'ACCESS, - 0, - STATUS - ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" ); - - RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" ); - - end INIT; - ---PAGE --- --- TIMER_HANDLER --- - - procedure TIMER_HANDLER ( - IGNORED_ID : in RTEMS.ID; - IGNORED_ADDRESS : in RTEMS.ADDRESS - ) is - begin - - NULL; - - end TIMER_HANDLER; - ---PAGE --- --- ISR_HANDLER --- - --- procedure ISR_HANDLER ( --- VECTOR : in RTEMS.VECTOR_NUMBER --- ) is --- begin --- --- NULL; --- --- end ISR_HANDLER; - ---PAGE --- --- ASR_HANDLER --- - - procedure ASR_HANDLER ( - SIGNALS : in RTEMS.SIGNAL_SET - ) is - begin - - NULL; - - end ASR_HANDLER; - ---PAGE --- --- TASK_1 --- - - procedure TASK_1 ( - ARGUMENT : in RTEMS.TASKS.ARGUMENT - ) is - pragma Unreferenced(ARGUMENT); - NAME : RTEMS.NAME; - OVERHEAD : RTEMS.UNSIGNED32; - ID : RTEMS.ID; - IN_PRIORITY : RTEMS.TASKS.PRIORITY; - OUT_PRIORITY : RTEMS.TASKS.PRIORITY; - IN_MODE : RTEMS.MODE; - MASK : RTEMS.MODE; - OUT_MODE : RTEMS.MODE; - TIME : RTEMS.TIME_OF_DAY; - TIMEOUT : RTEMS.INTERVAL; - SIGNALS : RTEMS.SIGNAL_SET; - ADDRESS_1 : RTEMS.ADDRESS; - EVENTS : RTEMS.SIGNAL_SET; - BUFFER : TMTEST.BUFFER; - BUFFER_POINTER : RTEMS.ADDRESS; - MESSAGE_SIZE : RTEMS.UNSIGNED32; - COUNT : RTEMS.UNSIGNED32; - ERROR : RTEMS.UNSIGNED32; - STATUS : RTEMS.STATUS_CODES; - begin - - NAME := RTEMS.BUILD_NAME( 'N', 'A', 'M', 'E' ); - - BUFFER_POINTER := BUFFER'ADDRESS; - OVERHEAD := 0; - IN_PRIORITY := 0; - IN_MODE := 0; - MASK := 0; - SIGNALS := 0; - EVENTS := 0; - ERROR := 0; - --- TASK_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_CREATE( - NAME, - IN_PRIORITY, - 2048, - RTEMS.DEFAULT_MODES, - RTEMS.DEFAULT_ATTRIBUTES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_IDENT( - NAME, - RTEMS.SEARCH_ALL_NODES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_START - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_START( ID, TMTEST.TASK_1'ACCESS, 0, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_START", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_RESTART - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_RESTART( ID, 0, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_RESTART", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_SUSPEND - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_SUSPEND( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_SUSPEND", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_RESUME - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_RESUME( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_RESUME", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_SET_PRIORITY - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_SET_PRIORITY( - ID, - IN_PRIORITY, - OUT_PRIORITY, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_SET_PRIORITY", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_MODE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_MODE( - IN_MODE, - MASK, - OUT_MODE, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_MODE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_WAKE_WHEN - - TIME.YEAR := 2000; - TIME.MONTH := 12; - TIME.DAY := 25; - TIME.HOUR := 6; - TIME.MINUTE := 1; - TIME.SECOND := 2; - TIME.TICKS := 0; - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_WAKE_WHEN( TIME, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_WAKE_WHEN", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_WAKE_AFTER - - TIMEOUT := 1; - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_WAKE_AFTER( TIMEOUT, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_WAKE_AFTER", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- INTERRUPT_CATCH - --- TIMER_DRIVER.INITIALIZE; --- for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT --- loop --- DUMMY_RTEMS.INTERRUPT_CATCH( --- TMTEST.ISR_HANDLER'ADDRESS, --- RTEMS.VECTOR_NUMBER'FIRST, --- ADDRESS_1, --- STATUS --- ); --- end loop; --- TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; --- --- TIME_TEST_SUPPORT.PUT_TIME( --- "INTERRUPT_CATCH", --- TMTEST.END_TIME, --- TIME_TEST_SUPPORT.OPERATION_COUNT, --- OVERHEAD, --- 0 --- ); - --- CLOCK_GET_TOD - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.CLOCK_GET_TOD( TIME, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "CLOCK_GET", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- CLOCK_SET - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.CLOCK_SET( TIME, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "CLOCK_SET", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- CLOCK_TICK - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.CLOCK_TICK( STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "CLOCK_TICK", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -TEST_SUPPORT.PAUSE; - --- TIMER_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_CREATE( NAME, ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_IDENT( - NAME, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_FIRE_AFTER - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_FIRE_AFTER( - ID, - TIMEOUT, - TMTEST.TIMER_HANDLER'ACCESS, - RTEMS.NULL_ADDRESS, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_FIRE_AFTER", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_FIRE_WHEN - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_FIRE_WHEN( - ID, - TIME, - TMTEST.TIMER_HANDLER'ACCESS, - RTEMS.NULL_ADDRESS, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_FIRE_WHEN", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_RESET - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_RESET( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_RESET", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TIMER_CANCEL - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TIMER_CANCEL( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TIMER_CANCEL", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SEMAPHORE_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SEMAPHORE_CREATE( - NAME, - 128, - RTEMS.DEFAULT_ATTRIBUTES, - RTEMS.TASKS.NO_PRIORITY, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SEMAPHORE_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SEMAPHORE_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SEMAPHORE_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SEMAPHORE_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SEMAPHORE_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SEMAPHORE_IDENT( - NAME, - RTEMS.SEARCH_ALL_NODES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SEMAPHORE_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SEMAPHORE_OBTAIN - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SEMAPHORE_OBTAIN( - ID, - RTEMS.DEFAULT_OPTIONS, - TIMEOUT, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SEMAPHORE_OBTAIN", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SEMAPHORE_RELEASE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SEMAPHORE_RELEASE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SEMAPHORE_RELEASE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_CREATE( - NAME, - 128, - 16, - RTEMS.DEFAULT_ATTRIBUTES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_IDENT( - NAME, - RTEMS.SEARCH_ALL_NODES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_SEND - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_SEND( ID, BUFFER_POINTER, 16, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_SEND", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_URGENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_URGENT( ID, BUFFER_POINTER, 16, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_URGENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_BROADCAST - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_BROADCAST( - ID, - BUFFER_POINTER, - 16, - COUNT, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_BROADCAST", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_RECEIVE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_RECEIVE( - ID, - BUFFER_POINTER, - RTEMS.DEFAULT_OPTIONS, - TIMEOUT, - MESSAGE_SIZE, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_RECEIVE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MESSAGE_QUEUE_FLUSH - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MESSAGE_QUEUE_FLUSH( ID, COUNT, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MESSAGE_QUEUE_FLUSH", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -TEST_SUPPORT.PAUSE; - --- EVENT_SEND - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.EVENT_SEND( ID, EVENTS, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "EVENT_SEND", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- EVENT_RECEIVE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.EVENT_RECEIVE( - RTEMS.EVENT_16, - EVENTS, - RTEMS.DEFAULT_OPTIONS, - TIMEOUT, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "EVENT_RECEIVE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SIGNAL_CATCH - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SIGNAL_CATCH( - TMTEST.ASR_HANDLER'ACCESS, - RTEMS.DEFAULT_MODES, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_CATCH", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- SIGNAL_SEND - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.SIGNAL_SEND( ID, SIGNALS, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "SIGNAL_SEND", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PARTITION_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PARTITION_CREATE( - NAME, - TMTEST.MEMORY_AREA'ADDRESS, - 2048, - 128, - RTEMS.DEFAULT_ATTRIBUTES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PARTITION_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PARTITION_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PARTITION_IDENT( - NAME, - RTEMS.SEARCH_ALL_NODES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PARTITION_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PARTITION_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PARTITION_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PARTITION_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PARTITION_GET_BUFFER - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PARTITION_GET_BUFFER( ID, ADDRESS_1, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PARTITION_GET_BUFFER", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PARTITION_RETURN_BUFFER - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PARTITION_RETURN_BUFFER( ID, ADDRESS_1, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PARTITION_RETURN_BUFFER", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- REGION_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.REGION_CREATE( - NAME, - TMTEST.MEMORY_AREA'ADDRESS, - 2048, - 128, - RTEMS.DEFAULT_ATTRIBUTES, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "REGION_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- REGION_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.REGION_IDENT( - NAME, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "REGION_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- REGION_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.REGION_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "REGION_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- REGION_GET_SEGMENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.REGION_GET_SEGMENT( - ID, - 243, - RTEMS.DEFAULT_OPTIONS, - TIMEOUT, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "REGION_GET_SEGMENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- REGION_RETURN_SEGMENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.REGION_RETURN_SEGMENT( ID, ADDRESS_1, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "REGION_RETURN_SEGMENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PORT_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PORT_CREATE( - NAME, - TMTEST.INTERNAL_PORT_AREA'ADDRESS, - TMTEST.EXTERNAL_PORT_AREA'ADDRESS, - TMTEST.INTERNAL_PORT_AREA'LENGTH, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PORT_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PORT_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PORT_IDENT( NAME, ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PORT_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PORT_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PORT_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PORT_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PORT_EXTERNAL_TO_INTERNAL - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PORT_EXTERNAL_TO_INTERNAL( - ID, - TMTEST.EXTERNAL_PORT_AREA( 7 )'ADDRESS, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PORT_EXTERNAL_TO_INTERNAL", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- PORT_INTERNAL_TO_EXTERNAL - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.PORT_INTERNAL_TO_EXTERNAL( - ID, - TMTEST.INTERNAL_PORT_AREA( 7 )'ADDRESS, - ADDRESS_1, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "PORT_INTERNAL_TO_EXTERNAL", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -TEST_SUPPORT.PAUSE; - --- FATAL_ERROR_OCCURRED - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.FATAL_ERROR_OCCURRED( ERROR ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "FATAL_ERROR_OCCURRED", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- RATE_MONOTONIC_CREATE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.RATE_MONOTONIC_CREATE( NAME, ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "RATE_MONOTONIC_CREATE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- RATE_MONOTONIC_IDENT - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.RATE_MONOTONIC_IDENT( - NAME, - ID, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "RATE_MONOTONIC_IDENT", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- RATE_MONOTONIC_DELETE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.RATE_MONOTONIC_DELETE( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "RATE_MONOTONIC_DELETE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- RATE_MONOTONIC_CANCEL - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.RATE_MONOTONIC_CANCEL( ID, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "RATE_MONOTONIC_CANCEL", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- RATE_MONOTONIC_PERIOD - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.RATE_MONOTONIC_PERIOD( ID, TIMEOUT, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "RATE_MONOTONIC_PERIOD", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- MULTIPROCESSING_ANNOUNCE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.MULTIPROCESSING_ANNOUNCE; - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "MULTIPROCESSING_ANNOUNCE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - - TEST_SUPPORT.ADA_TEST_END; - RTEMS.SHUTDOWN_EXECUTIVE( 0 ); - - end TASK_1; - -end TMTEST; diff --git a/testsuites/ada/tmtests/tmoverhd/tmtest.ads b/testsuites/ada/tmtests/tmoverhd/tmtest.ads deleted file mode 100644 index 48944077de..0000000000 --- a/testsuites/ada/tmtests/tmoverhd/tmtest.ads +++ /dev/null @@ -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; diff --git a/testsuites/tmtests/Makefile.am b/testsuites/tmtests/Makefile.am index 70b67fa6dd..096f3ad346 100644 --- a/testsuites/tmtests/Makefile.am +++ b/testsuites/tmtests/Makefile.am @@ -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 diff --git a/testsuites/tmtests/configure.ac b/testsuites/tmtests/configure.ac index c696965c2f..ea821b9a00 100644 --- a/testsuites/tmtests/configure.ac +++ b/testsuites/tmtests/configure.ac @@ -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]) diff --git a/testsuites/tmtests/tmoverhd/dumrtems.h b/testsuites/tmtests/tmoverhd/dumrtems.h deleted file mode 100644 index 4beae9e39f..0000000000 --- a/testsuites/tmtests/tmoverhd/dumrtems.h +++ /dev/null @@ -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 */ diff --git a/testsuites/tmtests/tmoverhd/empty.c b/testsuites/tmtests/tmoverhd/empty.c deleted file mode 100644 index 97477c1298..0000000000 --- a/testsuites/tmtests/tmoverhd/empty.c +++ /dev/null @@ -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 ); -} diff --git a/testsuites/tmtests/tmoverhd/system.h b/testsuites/tmtests/tmoverhd/system.h deleted file mode 100644 index afe0fe3d10..0000000000 --- a/testsuites/tmtests/tmoverhd/system.h +++ /dev/null @@ -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 - -/* 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 - -/* 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 - -/* end of include file */ diff --git a/testsuites/tmtests/tmoverhd/testtask.c b/testsuites/tmtests/tmoverhd/testtask.c deleted file mode 100644 index 2461759f9f..0000000000 --- a/testsuites/tmtests/tmoverhd/testtask.c +++ /dev/null @@ -1,1232 +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. - */ - -#if !defined(OPERATION_COUNT) -#define OPERATION_COUNT 100 -#endif - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include - -#define CONFIGURE_INIT -#include "system.h" - -const char rtems_test_name[] = "OVERHEAD"; - -uint8_t Memory_area[ 2048 ]; -uint8_t Internal_port_area[ 256 ]; -uint8_t External_port_area[ 256 ]; - -rtems_task Task_1( - rtems_task_argument argument -); - -rtems_task Init( - rtems_task_argument argument -) -{ rtems_id id; - rtems_status_code status; - - benchmark_timer_disable_subtracting_average_overhead( TRUE ); - - Print_Warning(); - - TEST_BEGIN(); - - status = rtems_task_create( - rtems_build_name( 'T', 'A', '1', ' ' ), - RTEMS_MAXIMUM_PRIORITY - 1, - RTEMS_MINIMUM_STACK_SIZE, - RTEMS_DEFAULT_MODES, - RTEMS_DEFAULT_ATTRIBUTES, - &id - ); - directive_failed( status, "rtems_task_create of TA1" ); - - status = rtems_task_start( id, Task_1, 0 ); - directive_failed( status, "rtems_task_start of TA1" ); - - rtems_task_exit(); -} - -/* comment out the following include to verify type are correct */ -#include "dumrtems.h" - -rtems_task Task_1( - rtems_task_argument argument -) -{ - rtems_name name RTEMS_GCC_NOWARN_UNUSED; - uint32_t index RTEMS_GCC_NOWARN_UNUSED; - rtems_id id RTEMS_GCC_NOWARN_UNUSED; - rtems_task_priority in_priority RTEMS_GCC_NOWARN_UNUSED; - rtems_task_priority out_priority RTEMS_GCC_NOWARN_UNUSED; - rtems_mode in_mode RTEMS_GCC_NOWARN_UNUSED; - rtems_mode mask RTEMS_GCC_NOWARN_UNUSED; - rtems_mode out_mode RTEMS_GCC_NOWARN_UNUSED; - rtems_time_of_day time RTEMS_GCC_NOWARN_UNUSED; - rtems_interval timeout RTEMS_GCC_NOWARN_UNUSED; - rtems_signal_set signals RTEMS_GCC_NOWARN_UNUSED; - void *address_1 RTEMS_GCC_NOWARN_UNUSED; - rtems_event_set events RTEMS_GCC_NOWARN_UNUSED; - long buffer[ 4 ] RTEMS_GCC_NOWARN_UNUSED; - uint32_t count RTEMS_GCC_NOWARN_UNUSED; - rtems_device_major_number major RTEMS_GCC_NOWARN_UNUSED; - rtems_device_minor_number minor RTEMS_GCC_NOWARN_UNUSED; - uint32_t io_result RTEMS_GCC_NOWARN_UNUSED; - uint32_t error RTEMS_GCC_NOWARN_UNUSED; - rtems_time_of_day tod RTEMS_GCC_NOWARN_UNUSED; - - name = rtems_build_name( 'N', 'A', 'M', 'E' ); - in_priority = 250; - in_mode = RTEMS_NO_PREEMPT; - mask = RTEMS_PREEMPT_MASK; - timeout = 100; - signals = RTEMS_SIGNAL_1 | RTEMS_SIGNAL_3; - major = 10; - minor = 0; - error = 100; - -/* rtems_shutdown_executive */ - - benchmark_timer_initialize(); - for ( index=1 ; index <= OPERATION_COUNT ; index++ ) - (void) rtems_shutdown_executive( error ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_shutdown_executive", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_create( - name, - in_priority, - RTEMS_MINIMUM_STACK_SIZE, - RTEMS_DEFAULT_MODES, - RTEMS_DEFAULT_ATTRIBUTES, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_ident( name, RTEMS_SEARCH_ALL_NODES, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_start */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_start( id, Task_1, 0 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_start", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_restart */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_restart( id, 0 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_restart", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_suspend */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_suspend( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_suspend", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_resume */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_resume( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_resume", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_set_priority */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_set_priority( id, in_priority, &out_priority ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_set_priority", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_mode */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_mode( in_mode, mask, &out_mode ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_mode", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_wake_when */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_wake_when( time ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_wake_when", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_task_wake_after */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_task_wake_after( timeout ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_task_wake_after", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_interrupt_catch */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_interrupt_catch( Isr_handler, 5, address_1 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_interrupt_catch", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_clock_get_tod */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_clock_get_tod( &tod ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_clock_get_tod", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_clock_set */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_clock_set( time ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_clock_set", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_clock_tick */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_clock_tick(); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_clock_tick", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_create( name, &id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_ident( name, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_fire_after */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_fire_after( - id, - timeout, - Timer_handler, - NULL - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_fire_after", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_fire_when */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_fire_when( - id, - time, - Timer_handler, - NULL - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_fire_when", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_reset */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_reset( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_reset", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_timer_cancel */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_timer_cancel( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_timer_cancel", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_semaphore_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_semaphore_create( - name, - 128, - RTEMS_DEFAULT_ATTRIBUTES, - RTEMS_NO_PRIORITY, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_semaphore_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_semaphore_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_semaphore_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_semaphore_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_semaphore_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_semaphore_ident( name, RTEMS_SEARCH_ALL_NODES, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_semaphore_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_semaphore_obtain */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_semaphore_obtain( id, RTEMS_DEFAULT_OPTIONS, timeout ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_semaphore_obtain", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_semaphore_release */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_semaphore_release( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_semaphore_release", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_create( - name, - 128, - RTEMS_DEFAULT_ATTRIBUTES, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_ident( - name, - RTEMS_SEARCH_ALL_NODES, - id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_send */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_send( id, (long (*)[4])buffer ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_send", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_urgent */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_urgent( id, (long (*)[4])buffer ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_urgent", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_broadcast */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_broadcast( - id, - (long (*)[4])buffer, - &count - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_broadcast", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_receive */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_receive( - id, - (long (*)[4])buffer, - RTEMS_DEFAULT_OPTIONS, - timeout - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_receive", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_message_queue_flush */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_message_queue_flush( id, &count ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_message_queue_flush", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_event_send */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_event_send( id, events ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_event_send", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_event_receive */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_event_receive( - RTEMS_EVENT_16, - RTEMS_DEFAULT_OPTIONS, - timeout, - &events - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_event_receive", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_signal_catch */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_signal_catch( Asr_handler, RTEMS_DEFAULT_MODES ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_signal_catch", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_signal_send */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_signal_send( id, signals ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_signal_send", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_partition_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_partition_create( - name, - Memory_area, - 2048, - 128, - RTEMS_DEFAULT_ATTRIBUTES, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_partition_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_partition_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_partition_ident( name, RTEMS_SEARCH_ALL_NODES, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_partition_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_partition_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_partition_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_partition_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_partition_get_buffer */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_partition_get_buffer( id, address_1 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_partition_get_buffer", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_partition_return_buffer */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_partition_return_buffer( id, address_1 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_partition_return_buffer", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_region_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_region_create( - name, - Memory_area, - 2048, - 128, - RTEMS_DEFAULT_ATTRIBUTES, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_region_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_region_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_region_ident( name, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_region_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_region_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_region_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_region_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_region_get_segment */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_region_get_segment( - id, - 243, - RTEMS_DEFAULT_OPTIONS, - timeout, - &address_1 - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_region_get_segment", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_region_return_segment */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_region_return_segment( id, address_1 ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_region_return_segment", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_port_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_port_create( - name, - Internal_port_area, - External_port_area, - 0xff, - &id - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_port_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_port_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_port_ident( name, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_port_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_port_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_port_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_port_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_port_external_to_internal */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_port_external_to_internal( - id, - &External_port_area[ 7 ], - address_1 - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_port_external_to_internal", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_port_internal_to_external */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_port_internal_to_external( - id, - &Internal_port_area[ 7 ], - address_1 - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_port_internal_to_external", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_initialize */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_initialize( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_initialize", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_open */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_open( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_open", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_close */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_close( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_close", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_read */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_read( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_read", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_write */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_write( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_write", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_io_control */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_io_control( - major, - minor, - address_1, - &io_result - ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_io_control", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_fatal_error_occurred */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_fatal_error_occurred( error ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_fatal_error_occurred", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_rate_monotonic_create */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_rate_monotonic_create( name, &id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_rate_monotonic_create", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_rate_monotonic_ident */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_rate_monotonic_ident( name, id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_rate_monotonic_ident", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_rate_monotonic_delete */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_rate_monotonic_delete( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_rate_monotonic_delete", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_rate_monotonic_cancel */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_rate_monotonic_cancel( id ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_rate_monotonic_cancel", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_rate_monotonic_period */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_rate_monotonic_period( id, timeout ); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_rate_monotonic_period", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - -/* rtems_multiprocessing_announce */ - - benchmark_timer_initialize(); - for ( index = 1 ; index <= OPERATION_COUNT ; index ++ ) - (void) rtems_multiprocessing_announce(); - end_time = benchmark_timer_read(); - - put_time( - "overhead: rtems_multiprocessing_announce", - end_time, - OPERATION_COUNT, - overhead, - 0 - ); - - TEST_END(); - - rtems_test_exit( 0 ); -} diff --git a/testsuites/tmtests/tmoverhd/tmoverhd.doc b/testsuites/tmtests/tmoverhd/tmoverhd.doc deleted file mode 100644 index 8c1d97ed28..0000000000 --- a/testsuites/tmtests/tmoverhd/tmoverhd.doc +++ /dev/null @@ -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. -- cgit v1.2.3