[Ada] Issue error on illegal ownership in SPARK
[official-gcc.git] / libgo / runtime / go-main.c
blob51ce15fdbc14d109c77e725c80f3244b95579596
1 /* go-main.c -- the main function for a Go program.
3 Copyright 2009 The Go Authors. All rights reserved.
4 Use of this source code is governed by a BSD-style
5 license that can be found in the LICENSE file. */
7 #include "config.h"
9 #include <stdlib.h>
10 #include <time.h>
11 #include <unistd.h>
13 #ifdef HAVE_FPU_CONTROL_H
14 #include <fpu_control.h>
15 #endif
17 #include "runtime.h"
18 #include "array.h"
19 #include "arch.h"
21 #undef int
22 #undef char
23 #undef unsigned
25 /* The main function for a Go program. This records the command line
26 parameters, calls the real main function, and returns a zero status
27 if the real main function returns. */
29 extern char **environ;
31 /* A copy of _end that a shared library can reasonably refer to. */
32 uintptr __go_end;
34 extern byte _end[];
36 /* The main function. */
38 int
39 main (int argc, char **argv)
41 runtime_isarchive = false;
43 if (runtime_isstarted)
44 return 0;
45 runtime_isstarted = true;
47 if (runtime_iscgo)
48 setIsCgo ();
50 __go_end = (uintptr)_end;
51 runtime_ginit ();
52 runtime_cpuinit ();
53 runtime_check ();
54 runtime_args (argc, (byte **) argv);
55 setncpu (getproccount ());
56 setpagesize (getpagesize ());
57 runtime_schedinit ();
58 __go_go ((uintptr)(runtime_main), NULL);
59 runtime_mstart (runtime_m ());
60 abort ();