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 | |
| 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.
| -rw-r--r-- | c/src/ada-tests/ChangeLog | 6 | ||||
| -rw-r--r-- | c/src/ada-tests/support/init.c | 1 | ||||
| -rw-r--r-- | c/src/ada-tests/support/test_support.adb | 8 |
3 files changed, 11 insertions, 4 deletions
diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog index 1963854913..38f9699159 100644 --- a/c/src/ada-tests/ChangeLog +++ b/c/src/ada-tests/ChangeLog @@ -1,3 +1,9 @@ +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. + 2002-09-13 Joel Sherrill <joel@OARcorp.com> * samples/base_mp/node1/Makefile.am, samples/base_mp/node2/Makefile.am: diff --git a/c/src/ada-tests/support/init.c b/c/src/ada-tests/support/init.c index 697c91dc0c..b85635faa0 100644 --- a/c/src/ada-tests/support/init.c +++ b/c/src/ada-tests/support/init.c @@ -12,6 +12,7 @@ #define __RTEMS_VIOLATE_KERNEL_VISIBILITY__ #include <bsp.h> +#include <unistd.h> void *POSIX_Init( void *argument 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 -- |