Changeset d0f426a1 in rtems for c/src/ada-tests/support

Timestamp:

Jun 3, 1997, 12:34:04 AM (25 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

a6b44a8a

Parents:

7e3dcbc

Message:

* empty log message *

Location:

c/src/ada-tests/support

Files:

• init.c (modified) (2 diffs)
• test_support.adb (modified) (1 diff)

c/src/ada-tests/support/init.c

@@ -11 +11 @@
  */
 
+#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
 #include <bsp.h>
 
@@ -24 +25 @@
 }
 
+/*
+ *  Only for sp04
+ */
+
+rtems_id tcb_to_id(
+  Thread_Control *tcb
+)
+{
+  return tcb->Object.id;
+}
+
 #define CONFIGURE_INIT
 #include "config.h"

c/src/ada-tests/support/test_support.adb

@@ -132 +132 @@
       -- 
       Text_IO.Put_Line( "<pause> " );
-      Text_IO.Get_Line( Ignored_String, Ignored_Last );
+      -- Text_IO.Get_Line( Ignored_String, Ignored_Last );
 
    exception