diff options
| author | Andreas Jaeger <aj@suse.de> | 2003-03-15 07:12:33 +0100 |
|---|---|---|
| committer | Andreas Jaeger <aj@gcc.gnu.org> | 2003-03-15 07:12:33 +0100 |
| commit | f37f1fdb7a93ec703efc1ff68ce92ab67e59651a (patch) | |
| tree | 68a072553e357ed4012982ae70a2e9ba0f71d391 /gcc | |
| parent | ac1613a2c2b6be3d5f0863f8ffe3560de2f6ad00 (diff) | |
| download | gcc-f37f1fdb7a93ec703efc1ff68ce92ab67e59651a.zip gcc-f37f1fdb7a93ec703efc1ff68ce92ab67e59651a.tar.gz gcc-f37f1fdb7a93ec703efc1ff68ce92ab67e59651a.tar.bz2 | |
g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove.
* g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove.
(DEFAULT_WORD_SWITCH_TAKES_ARG): Remove.
From-SVN: r64392
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/g77spec.c | 25 |
2 files changed, 7 insertions, 23 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 40804ef..48c25db 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2003-03-13 Andreas Jaeger <aj@suse.de> + + * g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove. + (DEFAULT_WORD_SWITCH_TAKES_ARG): Remove. + 2003-03-12 Nathanael Nerode <neroden@gcc.gnu.org> * g77.texi, invoke.texi, g77spec.c, lang-specs.h: GCC, not diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c index 2153a37..426bb96 100644 --- a/gcc/f/g77spec.c +++ b/gcc/f/g77spec.c @@ -1,5 +1,6 @@ /* Specific flags and argument handling of the Fortran front-end. - Copyright (C) 1997, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003 + Free Software Foundation, Inc. This file is part of GCC. @@ -100,36 +101,14 @@ static void append_arg PARAMS ((const char *)); static int g77_newargc; static const char **g77_newargv; -/* --- This comes from gcc.c (2.8.1) verbatim: */ - -/* This defines which switch letters take arguments. */ - -#define DEFAULT_SWITCH_TAKES_ARG(CHAR) \ - ((CHAR) == 'D' || (CHAR) == 'U' || (CHAR) == 'o' \ - || (CHAR) == 'e' || (CHAR) == 'T' || (CHAR) == 'u' \ - || (CHAR) == 'I' || (CHAR) == 'm' || (CHAR) == 'x' \ - || (CHAR) == 'L' || (CHAR) == 'A') - #ifndef SWITCH_TAKES_ARG #define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR) #endif -/* This defines which multi-letter switches take arguments. */ - -#define DEFAULT_WORD_SWITCH_TAKES_ARG(STR) \ - (!strcmp (STR, "Tdata") || !strcmp (STR, "Ttext") \ - || !strcmp (STR, "Tbss") || !strcmp (STR, "include") \ - || !strcmp (STR, "imacros") || !strcmp (STR, "aux-info") \ - || !strcmp (STR, "idirafter") || !strcmp (STR, "iprefix") \ - || !strcmp (STR, "iwithprefix") || !strcmp (STR, "iwithprefixbefore") \ - || !strcmp (STR, "isystem") || !strcmp (STR, "specs")) - #ifndef WORD_SWITCH_TAKES_ARG #define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR) #endif -/* --- End of verbatim. */ - /* Assumes text[0] == '-'. Returns number of argv items that belong to (and follow) this one, an option id for options important to the caller, and a pointer to the first char of the arg, if embedded (else |