summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/sptests/sp12/sptest.adb
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/sptests/sp12/sptest.adb')
-rw-r--r--c/src/ada-tests/sptests/sp12/sptest.adb9
1 files changed, 7 insertions, 2 deletions
diff --git a/c/src/ada-tests/sptests/sp12/sptest.adb b/c/src/ada-tests/sptests/sp12/sptest.adb
index ebe0c8ddc2..20e3aaaa67 100644
--- a/c/src/ada-tests/sptests/sp12/sptest.adb
+++ b/c/src/ada-tests/sptests/sp12/sptest.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,7 +21,6 @@
--
with INTERFACES; use INTERFACES;
-with RTEMS;
with TEST_SUPPORT;
with TEXT_IO;
with UNSIGNED32_IO;
@@ -36,6 +35,7 @@ package body SPTEST is
procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -482,6 +482,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_1 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
SMID : RTEMS.ID;
STATUS : RTEMS.STATUS_CODES;
begin
@@ -649,6 +650,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_2 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
begin
@@ -714,6 +716,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_3 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -753,6 +756,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_4 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin
@@ -775,6 +779,7 @@ TEST_SUPPORT.PAUSE;
procedure TASK_5 (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
+ pragma Unreferenced(ARGUMENT);
STATUS : RTEMS.STATUS_CODES;
begin