diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2002-09-14 21:05:44 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2002-09-14 21:05:44 +0000 |
commit | eefdc85973825b5bfa4ec12e1444f4c57d36a2f5 (patch) | |
tree | e4f62180e41382664f3e3b213a41076eb09d0ebc /c/src/ada-tests/support/test_support.adb | |
parent | 2002-09-14 Joel Sherrill <joel@OARcorp.com> (diff) | |
download | rtems-eefdc85973825b5bfa4ec12e1444f4c57d36a2f5.tar.bz2 |
2002-09-14 Joel Sherrill <joel@OARcorp.com>
* support/init.c: Included <unistd.h> for exit(2).
* support/test_support.adb: Eliminated warnings by commenting out
unused variables.
Diffstat (limited to '')
-rw-r--r-- | c/src/ada-tests/support/test_support.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/c/src/ada-tests/support/test_support.adb b/c/src/ada-tests/support/test_support.adb index 379f0dfdae..3e676a2507 100644 --- a/c/src/ada-tests/support/test_support.adb +++ b/c/src/ada-tests/support/test_support.adb @@ -122,8 +122,8 @@ package body Test_Support is -- procedure Pause is - Ignored_String : String( 1 .. 80 ); - Ignored_Last : Natural; + -- Ignored_String : String( 1 .. 80 ); + -- Ignored_Last : Natural; begin @@ -149,8 +149,8 @@ package body Test_Support is procedure Pause_And_Screen_Number ( SCREEN : in RTEMS.Unsigned32 ) is - Ignored_String : String( 1 .. 80 ); - Ignored_Last : Natural; + -- Ignored_String : String( 1 .. 80 ); + -- Ignored_Last : Natural; begin -- |