source: rtems/c/src/ada-tests/support/init.c @ 698b292

4.104.114.84.9
Last change on this file since 698b292 was 698b292, checked in by Joel Sherrill <joel.sherrill@…>, on Oct 24, 2002 at 10:34:22 PM

2002-10-24 Joel Sherrill <joel@…>

  • samples/hello/config.h: Change CONFIGURE_SPTEST to CONFIGURE_APPLICATION to reflect current usage.
  • support/init.c: Include stdlib.h not unistd.h to remove warning.
  • Property mode set to 100644
File size: 914 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#include <stdlib.h>
16
17void *POSIX_Init(
18  void *argument
19)
20{
21  extern int gnat_main ( int argc, char **argv, char **envp );
22
23  (void) gnat_main ( 0, 0, 0 );
24
25  exit( 0 );
26}
27
28/*
29 *  Only for sp04
30 */
31
32rtems_id tcb_to_id(
33  Thread_Control *tcb
34)
35{
36  return tcb->Object.id;
37}
38
39/*
40 *  By putting this in brackets rather than quotes, we get the search
41 *  path and can get this file from ".." in the mptests.
42 */
43
44#define CONFIGURE_INIT
45#include <config.h>
Note: See TracBrowser for help on using the repository browser.