1 /* Handling of compile-time options that influence the library.
2 Copyright (C) 2005-2016 Free Software Foundation, Inc.
4 This file is part of the GNU Fortran runtime library (libgfortran).
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)
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.
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.
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/>. */
25 #include "libgfortran.h"
29 /* Useful compile-time options will be stored in here. */
30 compile_options_t compile_options
;
32 #ifndef LIBGFOR_MINIMAL
33 static volatile sig_atomic_t fatal_error_in_progress
= 0;
36 /* Helper function for backtrace_handler to write information about the
37 received signal to stderr before actually giving the backtrace. */
39 show_signal (int signum
)
41 const char * name
= NULL
, * desc
= NULL
;
48 desc
= "Terminal quit signal";
52 /* The following 4 signals are defined by C89. */
55 desc
= "Illegal instruction";
60 desc
= "Process abort signal";
65 desc
= "Floating-point exception - erroneous arithmetic operation";
70 desc
= "Segmentation fault - invalid memory reference";
76 desc
= "Access to an undefined portion of a memory object";
83 desc
= "Bad system call";
90 desc
= "Trace/breakpoint trap";
97 desc
= "CPU time limit exceeded";
104 desc
= "File size limit exceeded";
110 st_printf ("\nProgram received signal %s: %s.\n", name
, desc
);
112 st_printf ("\nProgram received signal %d.\n", signum
);
116 /* A signal handler to allow us to output a backtrace. */
118 backtrace_handler (int signum
)
120 /* Since this handler is established for more than one kind of signal,
121 it might still get invoked recursively by delivery of some other kind
122 of signal. Use a static variable to keep track of that. */
123 if (fatal_error_in_progress
)
125 fatal_error_in_progress
= 1;
127 show_signal (signum
);
128 estr_write ("\nBacktrace for this error:\n");
129 show_backtrace (true);
131 /* Now reraise the signal. We reactivate the signal's
132 default handling, which is to terminate the process.
133 We could just call exit or abort,
134 but reraising the signal sets the return status
135 from the process correctly. */
136 signal (signum
, SIG_DFL
);
141 /* Set the usual compile-time options. */
142 extern void set_options (int , int []);
143 export_proto(set_options
);
146 set_options (int num
, int options
[])
149 compile_options
.warn_std
= options
[0];
151 compile_options
.allow_std
= options
[1];
153 compile_options
.pedantic
= options
[2];
154 /* options[3] is the removed -fdump-core option. Its place in the
155 options array is retained due to ABI compatibility. Remove when
156 bumping the library ABI. */
158 compile_options
.backtrace
= options
[4];
160 compile_options
.sign_zero
= options
[5];
162 compile_options
.bounds_check
= options
[6];
163 /* options[7] is the -frange-check option, which no longer affects
164 the library behavior; range checking is now always done when
165 parsing integers. Its place in the options array is retained due
166 to ABI compatibility. Remove when bumping the library ABI. */
168 compile_options
.fpe_summary
= options
[8];
170 #ifndef LIBGFOR_MINIMAL
171 /* If backtrace is required, we set signal handlers on the POSIX
172 2001 signals with core action. */
173 if (compile_options
.backtrace
)
176 signal (SIGQUIT
, backtrace_handler
);
179 /* The following 4 signals are defined by C89. */
180 signal (SIGILL
, backtrace_handler
);
181 signal (SIGABRT
, backtrace_handler
);
182 signal (SIGFPE
, backtrace_handler
);
183 signal (SIGSEGV
, backtrace_handler
);
186 signal (SIGBUS
, backtrace_handler
);
190 signal (SIGSYS
, backtrace_handler
);
194 signal (SIGTRAP
, backtrace_handler
);
198 signal (SIGXCPU
, backtrace_handler
);
202 signal (SIGXFSZ
, backtrace_handler
);
209 /* Default values for the compile-time options. Keep in sync with
210 gcc/fortran/options.c (gfc_init_options). */
212 init_compile_options (void)
214 compile_options
.warn_std
= GFC_STD_F95_DEL
| GFC_STD_LEGACY
;
215 compile_options
.allow_std
= GFC_STD_F95_OBS
| GFC_STD_F95_DEL
216 | GFC_STD_F2003
| GFC_STD_F2008
| GFC_STD_F95
| GFC_STD_F77
217 | GFC_STD_F2008_OBS
| GFC_STD_GNU
| GFC_STD_LEGACY
;
218 compile_options
.pedantic
= 0;
219 compile_options
.backtrace
= 0;
220 compile_options
.sign_zero
= 1;
221 compile_options
.fpe_summary
= 0;
224 /* Function called by the front-end to tell us the
225 default for unformatted data conversion. */
227 extern void set_convert (int);
228 export_proto (set_convert
);
231 set_convert (int conv
)
233 compile_options
.convert
= conv
;
236 extern void set_record_marker (int);
237 export_proto (set_record_marker
);
241 set_record_marker (int val
)
247 compile_options
.record_marker
= sizeof (GFC_INTEGER_4
);
251 compile_options
.record_marker
= sizeof (GFC_INTEGER_8
);
255 runtime_error ("Invalid value for record marker");
260 extern void set_max_subrecord_length (int);
261 export_proto (set_max_subrecord_length
);
263 void set_max_subrecord_length(int val
)
265 if (val
> GFC_MAX_SUBRECORD_LENGTH
|| val
< 1)
267 runtime_error ("Invalid value for maximum subrecord length");
271 compile_options
.max_subrecord_length
= val
;