diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:34:04 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:34:04 +0000 |
commit | d0f426a1bf1233f0d166b358071ea28311e9aa30 (patch) | |
tree | 06593682a0114e67855a0ea41dc12d72e01550ef /c/src/ada-tests/support | |
parent | added rtems_interrupt_level_attribute routien to return a properly (diff) | |
download | rtems-d0f426a1bf1233f0d166b358071ea28311e9aa30.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'c/src/ada-tests/support')
-rw-r--r-- | c/src/ada-tests/support/init.c | 12 | ||||
-rw-r--r-- | c/src/ada-tests/support/test_support.adb | 2 |
2 files changed, 13 insertions, 1 deletions
diff --git a/c/src/ada-tests/support/init.c b/c/src/ada-tests/support/init.c index c716311d80..de686055de 100644 --- a/c/src/ada-tests/support/init.c +++ b/c/src/ada-tests/support/init.c @@ -10,6 +10,7 @@ * $Id$ */ +#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__ #include <bsp.h> void *POSIX_Init( @@ -23,5 +24,16 @@ void *POSIX_Init( exit( 0 ); } +/* + * Only for sp04 + */ + +rtems_id tcb_to_id( + Thread_Control *tcb +) +{ + return tcb->Object.id; +} + #define CONFIGURE_INIT #include "config.h" diff --git a/c/src/ada-tests/support/test_support.adb b/c/src/ada-tests/support/test_support.adb index b3e3a2d86c..d6be419010 100644 --- a/c/src/ada-tests/support/test_support.adb +++ b/c/src/ada-tests/support/test_support.adb @@ -131,7 +131,7 @@ package body Test_Support is -- Really should be a "put" followed by a "flush." -- Text_IO.Put_Line( "<pause> " ); - Text_IO.Get_Line( Ignored_String, Ignored_Last ); + -- Text_IO.Get_Line( Ignored_String, Ignored_Last ); exception |