OSDN Git Service

Configure cleanup.
[pf3gnuchains/gcc-fork.git] / libgfortran / runtime / compile_options.c
1 /* Handling of compile-time options that influence the library.
2    Copyright (C) 2005, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
3
4 This file is part of the GNU Fortran runtime library (libgfortran).
5
6 Libgfortran is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
10
11 Libgfortran is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 GNU General Public License for more details.
15
16 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
19
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23 <http://www.gnu.org/licenses/>.  */
24
25 #include "libgfortran.h"
26 #include <signal.h>
27
28
29 /* Useful compile-time options will be stored in here.  */
30 compile_options_t compile_options;
31
32
33 volatile sig_atomic_t fatal_error_in_progress = 0;
34
35 /* A signal handler to allow us to output a backtrace.  */
36 void
37 backtrace_handler (int signum)
38 {
39   /* Since this handler is established for more than one kind of signal, 
40      it might still get invoked recursively by delivery of some other kind
41      of signal.  Use a static variable to keep track of that. */
42   if (fatal_error_in_progress)
43     raise (signum);
44   fatal_error_in_progress = 1;
45
46   show_backtrace();
47
48   /* Now reraise the signal.  We reactivate the signal's
49      default handling, which is to terminate the process.
50      We could just call exit or abort,
51      but reraising the signal sets the return status
52      from the process correctly. */
53   signal (signum, SIG_DFL);
54   raise (signum);
55 }
56
57
58 /* Helper function for set_options because we need to access the
59    global variable options which is not seen in set_options.  */
60 static void
61 maybe_find_addr2line (void)
62 {
63   if (options.backtrace == -1)
64     find_addr2line ();
65 }
66
67 /* Set the usual compile-time options.  */
68 extern void set_options (int , int []);
69 export_proto(set_options);
70
71 void
72 set_options (int num, int options[])
73 {
74   if (num >= 1)
75     compile_options.warn_std = options[0];
76   if (num >= 2)
77     compile_options.allow_std = options[1];
78   if (num >= 3)
79     compile_options.pedantic = options[2];
80   /* options[3] is the removed -fdump-core option. It's place in the
81      options array is retained due to ABI compatibility. Remove when
82      bumping the library ABI.  */
83   if (num >= 5)
84     compile_options.backtrace = options[4];
85   if (num >= 6)
86     compile_options.sign_zero = options[5];
87   if (num >= 7)
88     compile_options.bounds_check = options[6];
89   if (num >= 8)
90     compile_options.range_check = options[7];
91
92   /* If backtrace is required, we set signal handlers on the POSIX
93      2001 signals with core action.  */
94   if (compile_options.backtrace)
95     {
96 #if defined(SIGQUIT)
97       signal (SIGQUIT, backtrace_handler);
98 #endif
99
100       /* The following 4 signals are defined by C89.  */
101       signal (SIGILL, backtrace_handler);
102       signal (SIGABRT, backtrace_handler);
103       signal (SIGFPE, backtrace_handler);
104       signal (SIGSEGV, backtrace_handler);
105
106 #if defined(SIGBUS)
107       signal (SIGBUS, backtrace_handler);
108 #endif
109
110 #if defined(SIGSYS)
111       signal (SIGSYS, backtrace_handler);
112 #endif
113
114 #if defined(SIGTRAP)
115       signal (SIGTRAP, backtrace_handler);
116 #endif
117
118 #if defined(SIGXCPU)
119       signal (SIGXCPU, backtrace_handler);
120 #endif
121
122 #if defined(SIGXFSZ)
123       signal (SIGXFSZ, backtrace_handler);
124 #endif
125
126       maybe_find_addr2line ();
127     }
128 }
129
130
131 /* Default values for the compile-time options.  Keep in sync with
132    gcc/fortran/options.c (gfc_init_options).  */
133 void
134 init_compile_options (void)
135 {
136   compile_options.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY;
137   compile_options.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
138     | GFC_STD_F2003 | GFC_STD_F2008 | GFC_STD_F95 | GFC_STD_F77
139     | GFC_STD_F2008_OBS | GFC_STD_GNU | GFC_STD_LEGACY;
140   compile_options.pedantic = 0;
141   compile_options.backtrace = 0;
142   compile_options.sign_zero = 1;
143   compile_options.range_check = 1;
144 }
145
146 /* Function called by the front-end to tell us the
147    default for unformatted data conversion.  */
148
149 extern void set_convert (int);
150 export_proto (set_convert);
151
152 void
153 set_convert (int conv)
154 {
155   compile_options.convert = conv;
156 }
157
158 extern void set_record_marker (int);
159 export_proto (set_record_marker);
160
161
162 void
163 set_record_marker (int val)
164 {
165
166   switch(val)
167     {
168     case 4:
169       compile_options.record_marker = sizeof (GFC_INTEGER_4);
170       break;
171
172     case 8:
173       compile_options.record_marker = sizeof (GFC_INTEGER_8);
174       break;
175
176     default:
177       runtime_error ("Invalid value for record marker");
178       break;
179     }
180 }
181
182 extern void set_max_subrecord_length (int);
183 export_proto (set_max_subrecord_length);
184
185 void set_max_subrecord_length(int val)
186 {
187   if (val > GFC_MAX_SUBRECORD_LENGTH || val < 1)
188     {
189       runtime_error ("Invalid value for maximum subrecord length");
190       return;
191     }
192
193   compile_options.max_subrecord_length = val;
194 }