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

4.104.114.84.95
Last change on this file since b81db49 was b81db49, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 4, 2003 at 1:27:12 PM

2003-09-04 Joel Sherrill <joel@…>

  • sptests/sp19/sptest.adp, support/init.c: Removed incorrect statement about copyright assignment.
  • Property mode set to 100644
File size: 941 bytes
Line 
1/*
2 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
3 *  On-Line Applications Research Corporation (OAR).
4 *
5 *  This material may be reproduced by or for the U.S. Government pursuant
6 *  to the copyright license under the clause at DFARS 252.227-7013.  This
7 *  notice must appear in all copies of this file and its derivatives.
8 *
9 *  $Id$
10 */
11
12#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
13#include <bsp.h>
14#include <stdlib.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#define CONFIGURE_GNAT_RTEMS
45#define CONFIGURE_MEMORY_OVERHEAD        (256)
46
47#include <config.h>
Note: See TracBrowser for help on using the repository browser.