From eefdc85973825b5bfa4ec12e1444f4c57d36a2f5 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Sat, 14 Sep 2002 21:05:44 +0000 Subject: 2002-09-14 Joel Sherrill * support/init.c: Included for exit(2). * support/test_support.adb: Eliminated warnings by commenting out unused variables. --- c/src/ada-tests/support/test_support.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'c/src/ada-tests/support/test_support.adb') 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 -- -- cgit v1.2.3