diff options
Diffstat (limited to 'c/src/ada-tests/tmtests')
-rw-r--r-- | c/src/ada-tests/tmtests/tm08/tmtest.adb | 39 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tm08/tmtest.ads | 2 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb | 30 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads | 14 | ||||
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/tmtest.adb | 35 |
5 files changed, 0 insertions, 120 deletions
diff --git a/c/src/ada-tests/tmtests/tm08/tmtest.adb b/c/src/ada-tests/tmtests/tm08/tmtest.adb index 8efa50ce2f..e4c9d90991 100644 --- a/c/src/ada-tests/tmtests/tm08/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm08/tmtest.adb @@ -99,7 +99,6 @@ package body TMTEST is OVERHEAD : RTEMS.UNSIGNED32; OLD_PRIORITY : RTEMS.TASKS.PRIORITY; OLD_MODE : RTEMS.MODE; - OLD_NOTE : RTEMS.NOTEPAD_INDEX; TIME : RTEMS.TIME_OF_DAY; STATUS : RTEMS.STATUS_CODES; begin @@ -233,44 +232,6 @@ package body TMTEST is STATUS ); - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - RTEMS.TASKS.SET_NOTE( - TMTEST.TASK_ID, - 8, - 10, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_SET_NOTE ", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - RTEMS_CALLING_OVERHEAD.TASK_SET_NOTE - ); - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - RTEMS.TASKS.GET_NOTE( - TMTEST.TASK_ID, - 8, - OLD_NOTE, - STATUS - ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_GET_NOTE ", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - RTEMS_CALLING_OVERHEAD.TASK_GET_NOTE - ); - TIME := (1988, 1, 1, 0, 0, 0, 0 ); TIMER_DRIVER.INITIALIZE; diff --git a/c/src/ada-tests/tmtests/tm08/tmtest.ads b/c/src/ada-tests/tmtests/tm08/tmtest.ads index a2f3e8eabd..062e810181 100644 --- a/c/src/ada-tests/tmtests/tm08/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm08/tmtest.ads @@ -69,8 +69,6 @@ package TMTEST is -- + TASK_MODE which does not require a reschedule -- + TASK_MODE which does require a reschedule -- + TASK_MODE which causes a preemption *** TEST_TASK1 executes --- + TASK_SET_NOTE --- + TASK_GET_NOTE -- + CLOCK_SET -- + CLOCK_GET -- diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb index 559cbd5630..5b4260a2bc 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb @@ -150,36 +150,6 @@ package body DUMMY_RTEMS is end TASK_MODE; - procedure TASK_GET_NOTE ( - ID : in RTEMS.ID; - NOTEPAD : in RTEMS.NOTEPAD_INDEX; - NOTE : out RTEMS.UNSIGNED32; - RESULT : out RTEMS.STATUS_CODES - ) is - pragma Unreferenced(ID); - pragma Unreferenced(NOTEPAD); - begin - - NOTE := 0; - RESULT := RTEMS.SUCCESSFUL; - - end TASK_GET_NOTE; - - procedure TASK_SET_NOTE ( - ID : in RTEMS.ID; - NOTEPAD : in RTEMS.NOTEPAD_INDEX; - NOTE : in RTEMS.UNSIGNED32; - RESULT : out RTEMS.STATUS_CODES - ) is - pragma Unreferenced(ID); - pragma Unreferenced(NOTEPAD); - pragma Unreferenced(NOTE); - begin - - RESULT := RTEMS.SUCCESSFUL; - - end TASK_SET_NOTE; - procedure TASK_WAKE_WHEN ( TIME_BUFFER : in RTEMS.TIME_OF_DAY; RESULT : out RTEMS.STATUS_CODES diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads index acd59ac708..d560c4a5a1 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads @@ -87,20 +87,6 @@ package DUMMY_RTEMS is RESULT : out RTEMS.STATUS_CODES ); - procedure TASK_GET_NOTE ( - ID : in RTEMS.ID; - NOTEPAD : in RTEMS.NOTEPAD_INDEX; - NOTE : out RTEMS.UNSIGNED32; - RESULT : out RTEMS.STATUS_CODES - ); - - procedure TASK_SET_NOTE ( - ID : in RTEMS.ID; - NOTEPAD : in RTEMS.NOTEPAD_INDEX; - NOTE : in RTEMS.UNSIGNED32; - RESULT : out RTEMS.STATUS_CODES - ); - procedure TASK_WAKE_WHEN ( TIME_BUFFER : in RTEMS.TIME_OF_DAY; RESULT : out RTEMS.STATUS_CODES diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb index ed21f7e434..a6050ea6c5 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb @@ -130,7 +130,6 @@ package body TMTEST is IN_MODE : RTEMS.MODE; MASK : RTEMS.MODE; OUT_MODE : RTEMS.MODE; - NOTE : RTEMS.UNSIGNED32; TIME : RTEMS.TIME_OF_DAY; TIMEOUT : RTEMS.INTERVAL; SIGNALS : RTEMS.SIGNAL_SET; @@ -331,40 +330,6 @@ package body TMTEST is 0 ); --- TASK_GET_NOTE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_GET_NOTE( ID, 1, NOTE, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_GET_NOTE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - --- TASK_SET_NOTE - - TIMER_DRIVER.INITIALIZE; - for INDEX in 1 .. TIME_TEST_SUPPORT.OPERATION_COUNT - loop - DUMMY_RTEMS.TASK_SET_NOTE( ID, 1, NOTE, STATUS ); - end loop; - TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER; - - TIME_TEST_SUPPORT.PUT_TIME( - "TASK_SET_NOTE", - TMTEST.END_TIME, - TIME_TEST_SUPPORT.OPERATION_COUNT, - OVERHEAD, - 0 - ); - -- TASK_WAKE_WHEN TIME.YEAR := 2000; |