OSDN Git Service

* config/stormy16/stormy16.c (xstormy16_init_builtins): prevent
[pf3gnuchains/gcc-fork.git] / libgfortran / runtime / main.c
1 /* Copyright (C) 2002-2003, 2005, 2007, 2009, 2011 
2    Free Software Foundation, Inc.
3    Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
4
5 This file is part of the GNU Fortran runtime library (libgfortran).
6
7 Libgfortran is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
11
12 Libgfortran is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 GNU General Public License for more details.
16
17 Under Section 7 of GPL version 3, you are granted additional
18 permissions described in the GCC Runtime Library Exception, version
19 3.1, as published by the Free Software Foundation.
20
21 You should have received a copy of the GNU General Public License and
22 a copy of the GCC Runtime Library Exception along with this program;
23 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
24 <http://www.gnu.org/licenses/>.  */
25
26 #include "libgfortran.h"
27 #include <stdlib.h>
28 #include <string.h>
29 #include <limits.h>
30
31
32 #ifdef HAVE_UNISTD_H
33 #include <unistd.h>
34 #endif
35
36 /* Stupid function to be sure the constructor is always linked in, even
37    in the case of static linking.  See PR libfortran/22298 for details.  */
38 void
39 stupid_function_name_for_static_linking (void)
40 {
41   return;
42 }
43
44 /* This will be 0 for little-endian
45    machines and 1 for big-endian machines.  */
46 int big_endian = 0;
47
48
49 /* Figure out endianness for this machine.  */
50
51 static void
52 determine_endianness (void)
53 {
54   union
55   {
56     GFC_LOGICAL_8 l8;
57     GFC_LOGICAL_4 l4[2];
58   } u;
59
60   u.l8 = 1;
61   if (u.l4[0])
62     big_endian = 0;
63   else if (u.l4[1])
64     big_endian = 1;
65   else
66     runtime_error ("Unable to determine machine endianness");
67 }
68
69
70 static int argc_save;
71 static char **argv_save;
72
73 static const char *exe_path;
74 static int please_free_exe_path_when_done;
75
76 /* Save the path under which the program was called, for use in the
77    backtrace routines.  */
78 void
79 store_exe_path (const char * argv0)
80 {
81 #ifndef PATH_MAX
82 #define PATH_MAX 1024
83 #endif
84
85 #ifndef DIR_SEPARATOR   
86 #define DIR_SEPARATOR '/'
87 #endif
88
89   char buf[PATH_MAX], *cwd, *path;
90
91   /* This can only happen if store_exe_path is called multiple times.  */
92   if (please_free_exe_path_when_done)
93     free ((char *) exe_path);
94
95   /* On the simulator argv is not set.  */
96   if (argv0 == NULL || argv0[0] == '/')
97     {
98       exe_path = argv0;
99       please_free_exe_path_when_done = 0;
100       return;
101     }
102
103   memset (buf, 0, sizeof (buf));
104 #ifdef HAVE_GETCWD
105   cwd = getcwd (buf, sizeof (buf));
106 #else
107   cwd = "";
108 #endif
109
110   /* exe_path will be cwd + "/" + argv[0] + "\0" */
111   size_t pathlen = strlen (cwd) + 1 + strlen (argv0) + 1;
112   path = malloc (pathlen);
113   snprintf (path, pathlen, "%s%c%s", cwd, DIR_SEPARATOR, argv0);
114   exe_path = path;
115   please_free_exe_path_when_done = 1;
116 }
117
118
119 /* Return the full path of the executable.  */
120 char *
121 full_exe_path (void)
122 {
123   return (char *) exe_path;
124 }
125
126
127 /* Set the saved values of the command line arguments.  */
128
129 void
130 set_args (int argc, char **argv)
131 {
132   argc_save = argc;
133   argv_save = argv;
134   store_exe_path (argv[0]);
135 }
136 iexport(set_args);
137
138
139 /* Retrieve the saved values of the command line arguments.  */
140
141 void
142 get_args (int *argc, char ***argv)
143 {
144   *argc = argc_save;
145   *argv = argv_save;
146 }
147
148
149 /* Initialize the runtime library.  */
150
151 static void __attribute__((constructor))
152 init (void)
153 {
154   /* Figure out the machine endianness.  */
155   determine_endianness ();
156
157   /* Must be first */
158   init_variables ();
159
160   init_units ();
161   set_fpu ();
162   init_compile_options ();
163
164 #ifdef DEBUG
165   /* Check for special command lines.  */
166
167   if (argc > 1 && strcmp (argv[1], "--help") == 0)
168     show_variables ();
169
170   /* if (argc > 1 && strcmp(argv[1], "--resume") == 0) resume();  */
171 #endif
172
173   random_seed_i4 (NULL, NULL, NULL);
174 }
175
176
177 /* Cleanup the runtime library.  */
178
179 static void __attribute__((destructor))
180 cleanup (void)
181 {
182   close_units ();
183   
184   if (please_free_exe_path_when_done)
185     free ((char *) exe_path);
186 }