Update Go library to last weekly.
[gcc.git] / libgo / runtime / go-main.c
1 /* go-main.c -- the main function for a Go program.
2
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. */
6
7 #include "config.h"
8
9 #include <stdlib.h>
10 #include <time.h>
11
12 #ifdef HAVE_FPU_CONTROL_H
13 #include <fpu_control.h>
14 #endif
15
16 #include "go-alloc.h"
17 #include "array.h"
18 #include "go-signal.h"
19 #include "go-string.h"
20
21 #include "runtime.h"
22 #include "arch.h"
23 #include "malloc.h"
24
25 #undef int
26 #undef char
27 #undef unsigned
28
29 /* The main function for a Go program. This records the command line
30 parameters, calls the real main function, and returns a zero status
31 if the real main function returns. */
32
33 extern char **environ;
34
35 extern struct __go_open_array Args asm ("libgo_os.os.Args");
36
37 extern struct __go_open_array Envs asm ("libgo_os.os.Envs");
38
39 /* These functions are created for the main package. */
40 extern void __go_init_main (void);
41 extern void real_main (void) asm ("main.main");
42
43 /* The main function. */
44
45 int
46 main (int argc, char **argv)
47 {
48 int i;
49 struct __go_string *values;
50
51 runtime_mallocinit ();
52 runtime_cpuprofinit ();
53 __go_gc_goroutine_init (&argc);
54
55 Args.__count = argc;
56 Args.__capacity = argc;
57 values = __go_alloc (argc * sizeof (struct __go_string));
58 for (i = 0; i < argc; ++i)
59 {
60 values[i].__data = (unsigned char *) argv[i];
61 values[i].__length = __builtin_strlen (argv[i]);
62 }
63 Args.__values = values;
64
65 for (i = 0; environ[i] != NULL; ++i)
66 ;
67 Envs.__count = i;
68 Envs.__capacity = i;
69 values = __go_alloc (i * sizeof (struct __go_string));
70 for (i = 0; environ[i] != NULL; ++i)
71 {
72 values[i].__data = (unsigned char *) environ[i];
73 values[i].__length = __builtin_strlen (environ[i]);
74 }
75 Envs.__values = values;
76
77 __initsig ();
78
79 #if defined(HAVE_SRANDOM)
80 srandom ((unsigned int) time (NULL));
81 #else
82 srand ((unsigned int) time (NULL));
83 #endif
84 __go_init_main ();
85
86 __go_enable_gc ();
87
88 real_main ();
89
90 return 0;
91 }