summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/tmtests
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/tmtests')
-rw-r--r--c/src/ada-tests/tmtests/tm08/tmtest.adb39
-rw-r--r--c/src/ada-tests/tmtests/tm08/tmtest.ads2
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb30
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads14
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/tmtest.adb35
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;