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


Ignore:
Timestamp:
Jun 3, 1997, 12:34:04 AM (24 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:
2 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/support/init.c

    r7e3dcbc rd0f426a1  
    1111 */
    1212
     13#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
    1314#include <bsp.h>
    1415
     
    2425}
    2526
     27/*
     28 *  Only for sp04
     29 */
     30
     31rtems_id tcb_to_id(
     32  Thread_Control *tcb
     33)
     34{
     35  return tcb->Object.id;
     36}
     37
    2638#define CONFIGURE_INIT
    2739#include "config.h"
  • c/src/ada-tests/support/test_support.adb

    r7e3dcbc rd0f426a1  
    132132      --
    133133      Text_IO.Put_Line( "<pause> " );
    134       Text_IO.Get_Line( Ignored_String, Ignored_Last );
     134      -- Text_IO.Get_Line( Ignored_String, Ignored_Last );
    135135
    136136   exception
Note: See TracChangeset for help on using the changeset viewer.