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

Last change on this file since 05dc5a7f was 0e9fa39, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 4, 2003 at 1:53:43 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: 717 bytes
Line 
1/*
2 *  COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994.
3 *  On-Line Applications Research Corporation (OAR).
4 *
5 *  $Id$
6 */
7
8#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
9#include <bsp.h>
10#include <stdlib.h>
11
12void *POSIX_Init(
13  void *argument
14)
15{
16  extern int gnat_main ( int argc, char **argv, char **envp );
17
18  (void) gnat_main ( 0, 0, 0 );
19
20  exit( 0 );
21}
22
23/*
24 *  Only for sp04
25 */
26
27rtems_id tcb_to_id(
28  Thread_Control *tcb
29)
30{
31  return tcb->Object.id;
32}
33
34/*
35 *  By putting this in brackets rather than quotes, we get the search
36 *  path and can get this file from ".." in the mptests.
37 */
38
39#define CONFIGURE_INIT
40#define CONFIGURE_GNAT_RTEMS
41#define CONFIGURE_MEMORY_OVERHEAD        (256)
42
43#include <config.h>
Note: See TracBrowser for help on using the repository browser.