source: rtems/c/src/ada-tests/support/init.c @ 973bf436

4.104.114.84.95
Last change on this file since 973bf436 was a47bd655, checked in by Joel Sherrill <joel.sherrill@…>, on Oct 29, 1998 at 5:10:02 PM

Cleanup.

  • Property mode set to 100644
File size: 894 bytes
Line 
1/*
2 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
3 *  On-Line Applications Research Corporation (OAR).
4 *  All rights assigned to U.S. Government, 1994.
5 *
6 *  This material may be reproduced by or for the U.S. Government pursuant
7 *  to the copyright license under the clause at DFARS 252.227-7013.  This
8 *  notice must appear in all copies of this file and its derivatives.
9 *
10 *  $Id$
11 */
12
13#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
14#include <bsp.h>
15
16void *POSIX_Init(
17  void *argument
18)
19{
20  extern int gnat_main ( int argc, char **argv, char **envp );
21
22  (void) gnat_main ( 0, 0, 0 );
23
24  exit( 0 );
25}
26
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
38/*
39 *  By putting this in brackets rather than quotes, we get the search
40 *  path and can get this file from ".." in the mptests.
41 */
42
43#define CONFIGURE_INIT
44#include <config.h>
Note: See TracBrowser for help on using the repository browser.