summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/tmtests/tm10/tmtest.adb
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/tmtests/tm10/tmtest.adb')
-rw-r--r--c/src/ada-tests/tmtests/tm10/tmtest.adb15
1 files changed, 9 insertions, 6 deletions
diff --git a/c/src/ada-tests/tmtests/tm10/tmtest.adb b/c/src/ada-tests/tmtests/tm10/tmtest.adb
index 2be2cdca56..8719dad469 100644
--- a/c/src/ada-tests/tmtests/tm10/tmtest.adb
+++ b/c/src/ada-tests/tmtests/tm10/tmtest.adb
@@ -10,7 +10,7 @@
--
--
--
--- COPYRIGHT (c) 1989-1997.
+-- COPYRIGHT (c) 1989-2009.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
@@ -21,12 +21,11 @@
--
with INTERFACES; use INTERFACES;
-with RTEMS;
with RTEMS_CALLING_OVERHEAD;
with TEST_SUPPORT;
with TEXT_IO;
with TIME_TEST_SUPPORT;
-with UNSIGNED32_IO;
+with TIMER_DRIVER;
package body TMTEST is
@@ -38,6 +37,7 @@ package body TMTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -64,7 +64,7 @@ package body TMTEST is
TASK_ID : RTEMS.ID;
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
- MESSAGE_SIZE : RTEMS.UNSIGNED32;
+ MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -148,9 +148,10 @@ package body TMTEST is
procedure HIGH_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
- MESSAGE_SIZE : RTEMS.UNSIGNED32;
+ MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -177,9 +178,10 @@ package body TMTEST is
procedure MIDDLE_TASKS (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
BUFFER : TMTEST.BUFFER;
BUFFER_POINTER : RTEMS.ADDRESS;
- MESSAGE_SIZE : RTEMS.UNSIGNED32;
+ MESSAGE_SIZE : RTEMS.UNSIGNED32 := 0;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -204,6 +206,7 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;