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

4.104.114.84.95
Last change on this file since d0f426a1 was d0f426a1, checked in by Joel Sherrill <joel.sherrill@…>, on 06/03/97 at 00:34:04

* empty log message *

  • Property mode set to 100644
File size: 759 bytes
RevLine 
[f3f06f79]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
[d0f426a1]13#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__
[f3f06f79]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
[d0f426a1]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
[f3f06f79]38#define CONFIGURE_INIT
[196a6b9]39#include "config.h"
Note: See TracBrowser for help on using the repository browser.