diff options
author | obrien <obrien@FreeBSD.org> | 1999-10-16 06:09:09 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 1999-10-16 06:09:09 +0000 |
commit | cae8fa8120c70195f34a2456f18c4c848a2d3e0c (patch) | |
tree | f7d3a3ab9c32694206552e767626366f016f2062 /contrib/gcc/f/g77spec.c | |
parent | 84656b55b6e25e30322dc903a05de53706361d3d (diff) | |
download | FreeBSD-src-cae8fa8120c70195f34a2456f18c4c848a2d3e0c.zip FreeBSD-src-cae8fa8120c70195f34a2456f18c4c848a2d3e0c.tar.gz |
Virgin import of the GCC 2.95.1 compilers
Diffstat (limited to 'contrib/gcc/f/g77spec.c')
-rw-r--r-- | contrib/gcc/f/g77spec.c | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/contrib/gcc/f/g77spec.c b/contrib/gcc/f/g77spec.c index 79d3637..50e7738 100644 --- a/contrib/gcc/f/g77spec.c +++ b/contrib/gcc/f/g77spec.c @@ -1,5 +1,5 @@ /* Specific flags and argument handling of the Fortran front-end. - Copyright (C) 1997 Free Software Foundation, Inc. + Copyright (C) 1997, 1999 Free Software Foundation, Inc. This file is part of GNU CC. @@ -46,7 +46,6 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "system.h" -#include "gansidecl.h" #include <f/version.h> #ifndef MATH_LIBRARY @@ -93,8 +92,6 @@ static void (*g77_fn)(); static int g77_newargc; static char **g77_newargv; -extern char *xmalloc PROTO((size_t)); - extern char *version_string; /* --- This comes from gcc.c (2.8.1) verbatim: */ @@ -289,6 +286,9 @@ lang_specific_driver (fn, in_argc, in_argv, in_added_libraries) 2 => last two args were -l<library> -lm. */ int saw_library = 0; + /* By default, we throw on the math library if we have one. */ + int need_math = (MATH_LIBRARY[0] != '\0'); + /* The number of input and output files in the incoming arg list. */ int n_infiles = 0; int n_outfiles = 0; @@ -427,7 +427,8 @@ code-generation methodology, and so on.\n\ For more information on g77 and gcc, type the commands `info -f g77'\n\ and `info -f gcc' to read the Info documentation.\n\ \n\ -Report bugs to <egcs-bugs@cygnus.org>.\n"); +For bug reporting instructions, please see:\n\ +<URL:http://www.gnu.org/software/gcc/faq.html#bugreport>.\n"); exit (0); break; #endif @@ -469,7 +470,7 @@ Report bugs to <egcs-bugs@cygnus.org>.\n"); { /* Not a filename or library. */ - if (saw_library == 1) /* -l<library>. */ + if (saw_library == 1 && need_math) /* -l<library>. */ append_arg (MATH_LIBRARY); saw_library = 0; @@ -524,7 +525,7 @@ Report bugs to <egcs-bugs@cygnus.org>.\n"); saw_library = 1; /* -l<library>. */ else { /* Other library, or filename. */ - if (saw_library == 1) + if (saw_library == 1 && need_math) append_arg (MATH_LIBRARY); saw_library = 0; } @@ -544,7 +545,8 @@ Report bugs to <egcs-bugs@cygnus.org>.\n"); case 0: append_arg (library); case 1: - append_arg (MATH_LIBRARY); + if (need_math) + append_arg (MATH_LIBRARY); default: break; } |