summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>2005-05-05 18:35:16 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>2005-05-05 18:35:16 +0000
commit20b21beb0217390266370f9e693052860dacd856 (patch)
tree134448a242c919bdddc1c9db065d414da0a84a09 /c/src/ada-tests
parent2005-05-05 Ralf Corsepius <ralf.corsepius@rtems.org> (diff)
downloadrtems-20b21beb0217390266370f9e693052860dacd856.tar.bz2
2005-05-05 Joel Sherrill <joel@OARcorp.com>
* sptests/sp04/sptest.adb, tmtests/tm02/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Removed warnings.
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r--c/src/ada-tests/ChangeLog5
-rw-r--r--c/src/ada-tests/sptests/sp04/sptest.adb15
-rw-r--r--c/src/ada-tests/tmtests/tm02/tmtest.adb1
-rw-r--r--c/src/ada-tests/tmtests/tmoverhd/tmtest.adb1
4 files changed, 15 insertions, 7 deletions
diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog
index 8194e35c00..6f7a48e989 100644
--- a/c/src/ada-tests/ChangeLog
+++ b/c/src/ada-tests/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-05 Joel Sherrill <joel@OARcorp.com>
+
+ * sptests/sp04/sptest.adb, tmtests/tm02/tmtest.adb,
+ tmtests/tmoverhd/tmtest.adb: Removed warnings.
+
2005-05-03 Joel Sherrill <joel@OARcorp.com>
* samples/hello/sptest.adb, sptests/sp03/sptest.adb,
diff --git a/c/src/ada-tests/sptests/sp04/sptest.adb b/c/src/ada-tests/sptests/sp04/sptest.adb
index b57f78db3d..e20f33444d 100644
--- a/c/src/ada-tests/sptests/sp04/sptest.adb
+++ b/c/src/ada-tests/sptests/sp04/sptest.adb
@@ -229,8 +229,9 @@ package body SPTEST is
);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
-<<LOOP_LABEL>>
- goto LOOP_LABEL;
+ LOOP
+ NULL;
+ END LOOP;
end if;
@@ -248,8 +249,9 @@ package body SPTEST is
) is
begin
-<<LOOP_LABEL>>
- goto LOOP_LABEL;
+ LOOP
+ NULL;
+ END LOOP;
end TASK_2;
@@ -263,8 +265,9 @@ package body SPTEST is
) is
begin
-<<LOOP_LABEL>>
- goto LOOP_LABEL;
+ LOOP
+ NULL;
+ END LOOP;
end TASK_3;
diff --git a/c/src/ada-tests/tmtests/tm02/tmtest.adb b/c/src/ada-tests/tmtests/tm02/tmtest.adb
index 5a0053ff27..ac1d82e817 100644
--- a/c/src/ada-tests/tmtests/tm02/tmtest.adb
+++ b/c/src/ada-tests/tmtests/tm02/tmtest.adb
@@ -188,7 +188,6 @@ package body TMTEST is
procedure LOW_TASK (
ARGUMENT : in RTEMS.TASK_ARGUMENT
) is
- STATUS : RTEMS.STATUS_CODES;
begin
TMTEST.END_TIME := TIMER_DRIVER.READ_TIMER;
diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
index a37f0b867e..71afdf3b04 100644
--- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
+++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.adb
@@ -155,6 +155,7 @@ package body TMTEST is
OVERHEAD := 0;
IN_PRIORITY := 0;
IN_MODE := 0;
+ MASK := 0;
SIGNALS := 0;
EVENTS := 0;
MAJOR := 0;