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

4.104.114.95
Last change on this file since 23848bbd was 23848bbd, checked in by Joel Sherrill <joel.sherrill@…>, on Oct 1, 2007 at 10:58:09 PM

2007-10-01 Joel Sherrill <joel.sherrill@…>

  • mptests/mp01/mptest.adb, mptests/mp01/mptest.ads, mptests/mp01/node1/Makefile.am, mptests/mp02/mptest.adb, mptests/mp02/mptest.ads, mptests/mp03/mptest.adb, mptests/mp03/mptest.ads, mptests/mp04/mptest.adb, mptests/mp04/mptest.ads, mptests/mp05/mptest.adb, mptests/mp05/mptest.ads, mptests/mp06/mptest.adb, mptests/mp06/mptest.ads, mptests/mp07/mptest.adb, mptests/mp07/mptest.ads, mptests/mp08/mptest.adb, mptests/mp08/mptest.ads, mptests/mp09/mptest.adb, mptests/mp09/mptest.ads, mptests/mp10/mptest.adb, mptests/mp10/mptest.ads, mptests/mp11/mptest.adb, mptests/mp11/mptest.ads, mptests/mp12/mptest.adb, mptests/mp12/mptest.ads, mptests/mp13/mptest.adb, mptests/mp13/mptest.ads, mptests/mp14/mptest.adb, mptests/mp14/mptest.ads, support/init.c, support/test_support.adb, support/test_support.ads: Most of single processor Ada tests now build. Some run.
  • Property mode set to 100644
File size: 974 bytes
Line 
1/*
2 *  COPYRIGHT (c) 1989-2007
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/*
36 *  By putting this in brackets rather than quotes, we get the search
37 *  path and can get this file from ".." in the mptests.
38 */
39
40#define CONFIGURE_INIT
41#define CONFIGURE_GNAT_RTEMS
42#define CONFIGURE_MEMORY_OVERHEAD  (256)
43
44#include <config.h>
45
46uint32_t milliseconds_per_tick(void)
47{
48  return CONFIGURE_MICROSECONDS_PER_TICK / 1000;
49}
50
51uint32_t ticks_per_second(void)
52{
53  /* XXX HACK -- use public API */
54  return TOD_TICKS_PER_SECOND;
55}
56
57uint32_t get_node(void)
58{
59  /* XXX HACK -- use public API */
60  return _Objects_Local_node;
61}
Note: See TracBrowser for help on using the repository browser.