diff options
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r-- | libgfortran/runtime/backtrace.c | 3 | ||||
-rw-r--r-- | libgfortran/runtime/bounds.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/compile_options.c | 19 | ||||
-rw-r--r-- | libgfortran/runtime/convert_char.c | 5 | ||||
-rw-r--r-- | libgfortran/runtime/environ.c | 4 | ||||
-rw-r--r-- | libgfortran/runtime/error.c | 4 | ||||
-rw-r--r-- | libgfortran/runtime/fpu.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/in_pack_generic.c | 4 | ||||
-rw-r--r-- | libgfortran/runtime/in_unpack_generic.c | 4 | ||||
-rw-r--r-- | libgfortran/runtime/main.c | 21 | ||||
-rw-r--r-- | libgfortran/runtime/memory.c | 3 | ||||
-rw-r--r-- | libgfortran/runtime/minimal.c | 5 | ||||
-rw-r--r-- | libgfortran/runtime/pause.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/select.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/select_inc.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/stop.c | 22 | ||||
-rw-r--r-- | libgfortran/runtime/string.c | 4 |
17 files changed, 24 insertions, 84 deletions
diff --git a/libgfortran/runtime/backtrace.c b/libgfortran/runtime/backtrace.c index 5b8735d53f..77dd4d5f0a 100644 --- a/libgfortran/runtime/backtrace.c +++ b/libgfortran/runtime/backtrace.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2006-2016 Free Software Foundation, Inc. +/* Copyright (C) 2006-2017 Free Software Foundation, Inc. Contributed by François-Xavier Coudert This file is part of the GNU Fortran runtime library (libgfortran). @@ -27,7 +27,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <gthr.h> #include <string.h> -#include <stdlib.h> #include <errno.h> #ifdef HAVE_UNISTD_H diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c index f130ba0320..ffa09628b6 100644 --- a/libgfortran/runtime/bounds.c +++ b/libgfortran/runtime/bounds.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2009-2016 Free Software Foundation, Inc. +/* Copyright (C) 2009-2017 Free Software Foundation, Inc. Contributed by Thomas Koenig This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/runtime/compile_options.c b/libgfortran/runtime/compile_options.c index 71ec56a5a8..b572c88153 100644 --- a/libgfortran/runtime/compile_options.c +++ b/libgfortran/runtime/compile_options.c @@ -1,5 +1,5 @@ /* Handling of compile-time options that influence the library. - Copyright (C) 2005-2016 Free Software Foundation, Inc. + Copyright (C) 2005-2017 Free Software Foundation, Inc. This file is part of the GNU Fortran runtime library (libgfortran). @@ -151,21 +151,14 @@ set_options (int num, int options[]) compile_options.allow_std = options[1]; if (num >= 3) compile_options.pedantic = options[2]; - /* options[3] is the removed -fdump-core option. Its place in the - options array is retained due to ABI compatibility. Remove when - bumping the library ABI. */ + if (num >= 4) + compile_options.backtrace = options[3]; if (num >= 5) - compile_options.backtrace = options[4]; + compile_options.sign_zero = options[4]; if (num >= 6) - compile_options.sign_zero = options[5]; + compile_options.bounds_check = options[5]; if (num >= 7) - compile_options.bounds_check = options[6]; - /* options[7] is the -frange-check option, which no longer affects - the library behavior; range checking is now always done when - parsing integers. Its place in the options array is retained due - to ABI compatibility. Remove when bumping the library ABI. */ - if (num >= 9) - compile_options.fpe_summary = options[8]; + compile_options.fpe_summary = options[6]; #ifndef LIBGFOR_MINIMAL /* If backtrace is required, we set signal handlers on the POSIX diff --git a/libgfortran/runtime/convert_char.c b/libgfortran/runtime/convert_char.c index fe68b59ff7..8e228f2b77 100644 --- a/libgfortran/runtime/convert_char.c +++ b/libgfortran/runtime/convert_char.c @@ -1,5 +1,5 @@ /* Runtime conversion of strings from one character kind to another. - Copyright (C) 2008-2016 Free Software Foundation, Inc. + Copyright (C) 2008-2017 Free Software Foundation, Inc. This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,9 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" -#include <stdlib.h> -#include <string.h> - extern void convert_char1_to_char4 (gfc_char4_t **, gfc_charlen_type, const unsigned char *); diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index 07c6351a8d..bf02188ede 100644 --- a/libgfortran/runtime/environ.c +++ b/libgfortran/runtime/environ.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2016 Free Software Foundation, Inc. +/* Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of the GNU Fortran runtime library (libgfortran). @@ -25,7 +25,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" #include <string.h> -#include <stdlib.h> +#include <strings.h> #include <ctype.h> #ifdef HAVE_UNISTD_H diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index 6478ca732b..d2f879e84a 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2016 Free Software Foundation, Inc. +/* Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Andy Vaught This file is part of the GNU Fortran runtime library (libgfortran). @@ -33,8 +33,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <unistd.h> #endif -#include <stdlib.h> - #ifdef HAVE_SYS_TIME_H #include <sys/time.h> #endif diff --git a/libgfortran/runtime/fpu.c b/libgfortran/runtime/fpu.c index 54197d45b2..b00316f271 100644 --- a/libgfortran/runtime/fpu.c +++ b/libgfortran/runtime/fpu.c @@ -1,5 +1,5 @@ /* Set FPU mask. - Copyright (C) 2005-2016 Free Software Foundation, Inc. + Copyright (C) 2005-2017 Free Software Foundation, Inc. Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr> This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c index 3ab9a0c337..c4b78e9210 100644 --- a/libgfortran/runtime/in_pack_generic.c +++ b/libgfortran/runtime/in_pack_generic.c @@ -1,5 +1,5 @@ /* Generic helper function for repacking arrays. - Copyright (C) 2003-2016 Free Software Foundation, Inc. + Copyright (C) 2003-2017 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> -#include <assert.h> #include <string.h> extern void *internal_pack (gfc_array_char *); diff --git a/libgfortran/runtime/in_unpack_generic.c b/libgfortran/runtime/in_unpack_generic.c index a29edf2df6..46b6dddb19 100644 --- a/libgfortran/runtime/in_unpack_generic.c +++ b/libgfortran/runtime/in_unpack_generic.c @@ -1,5 +1,5 @@ /* Generic helper function for repacking arrays. - Copyright (C) 2003-2016 Free Software Foundation, Inc. + Copyright (C) 2003-2017 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> -#include <assert.h> #include <string.h> extern void internal_unpack (gfc_array_char *, const void *); diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 5065d9cf9b..8d466d1bba 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2016 Free Software Foundation, Inc. +/* Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Andy Vaught and Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -23,16 +23,8 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> -#include <string.h> -#include <limits.h> -#include <errno.h> -#ifdef HAVE_UNISTD_H -#include <unistd.h> -#endif - /* Stupid function to be sure the constructor is always linked in, even in the case of static linking. See PR libfortran/22298 for details. */ void @@ -71,15 +63,6 @@ static int argc_save; static char **argv_save; -void -store_exe_path (const char * argv0 __attribute__ ((unused))) -{ - /* This function is now useless, but is retained due to ABI compatibility. - Remove when bumping the library ABI. */ - ; -} - - /* Set the saved values of the command line arguments. */ void @@ -119,8 +102,6 @@ init (void) set_fpu (); init_compile_options (); - - random_seed_i4 (NULL, NULL, NULL); } diff --git a/libgfortran/runtime/memory.c b/libgfortran/runtime/memory.c index 7028ace715..98c59bb066 100644 --- a/libgfortran/runtime/memory.c +++ b/libgfortran/runtime/memory.c @@ -1,5 +1,5 @@ /* Memory management routines. - Copyright (C) 2002-2016 Free Software Foundation, Inc. + Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,7 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> #include <errno.h> #ifndef SIZE_MAX diff --git a/libgfortran/runtime/minimal.c b/libgfortran/runtime/minimal.c index 8a3a704aa8..2ef4f15925 100644 --- a/libgfortran/runtime/minimal.c +++ b/libgfortran/runtime/minimal.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2016 Free Software Foundation, Inc. +/* Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Andy Vaught and Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -23,10 +23,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> #include <string.h> -#include <limits.h> -#include <errno.h> #ifdef HAVE_UNISTD_H diff --git a/libgfortran/runtime/pause.c b/libgfortran/runtime/pause.c index 9341331e2a..990d76f6c9 100644 --- a/libgfortran/runtime/pause.c +++ b/libgfortran/runtime/pause.c @@ -1,5 +1,5 @@ /* Implementation of the PAUSE statement. - Copyright (C) 2002-2016 Free Software Foundation, Inc. + Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/runtime/select.c b/libgfortran/runtime/select.c index d8531c1bf6..6b421515a4 100644 --- a/libgfortran/runtime/select.c +++ b/libgfortran/runtime/select.c @@ -1,5 +1,5 @@ /* Implement the SELECT statement for character variables. - Copyright (C) 2008-2016 Free Software Foundation, Inc. + Copyright (C) 2008-2017 Free Software Foundation, Inc. This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/runtime/select_inc.c b/libgfortran/runtime/select_inc.c index 9e8ecc5de2..0a0880bf57 100644 --- a/libgfortran/runtime/select_inc.c +++ b/libgfortran/runtime/select_inc.c @@ -1,5 +1,5 @@ /* Implement the SELECT statement for character variables. - Copyright (C) 2008-2016 Free Software Foundation, Inc. + Copyright (C) 2008-2017 Free Software Foundation, Inc. This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c index 26896e8511..81f00d77a6 100644 --- a/libgfortran/runtime/stop.c +++ b/libgfortran/runtime/stop.c @@ -1,5 +1,5 @@ /* Implementation of the STOP statement. - Copyright (C) 2002-2016 Free Software Foundation, Inc. + Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see <http://www.gnu.org/licenses/>. */ #include "libgfortran.h" -#include <stdlib.h> -#include <string.h> #ifdef HAVE_UNISTD_H #include <unistd.h> @@ -90,24 +88,6 @@ void stop_numeric (GFC_INTEGER_4 code) { report_exception (); - if (code == -1) - code = 0; - else - st_printf ("STOP %d\n", (int)code); - - exit (code); -} - - -/* A Fortran 2008 numeric STOP statement. */ - -extern _Noreturn void stop_numeric_f08 (GFC_INTEGER_4); -export_proto(stop_numeric_f08); - -void -stop_numeric_f08 (GFC_INTEGER_4 code) -{ - report_exception (); st_printf ("STOP %d\n", (int)code); exit (code); } diff --git a/libgfortran/runtime/string.c b/libgfortran/runtime/string.c index bb486d9bb6..332b42e682 100644 --- a/libgfortran/runtime/string.c +++ b/libgfortran/runtime/string.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2002-2016 Free Software Foundation, Inc. +/* Copyright (C) 2002-2017 Free Software Foundation, Inc. Contributed by Paul Brook This file is part of the GNU Fortran runtime library (libgfortran). @@ -24,7 +24,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" #include <string.h> -#include <stdlib.h> +#include <strings.h> /* Given a fortran string, return its length exclusive of the trailing |