OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove.

Browse Source 
* g77spec.c (DEFAULT_SWITCH_TAKES_ARG): Remove.
	(DEFAULT_WORD_SWITCH_TAKES_ARG): Remove.

From-SVN: r64392
This commit is contained in:
Andreas Jaeger 2003-03-15 07:12:33 +01:00 committed by Andreas Jaeger
parent ac1613a2c2
commit f37f1fdb7a
2 changed files with 7 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -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> 2003-03-12 Nathanael Nerode <neroden@gcc.gnu.org>
* g77.texi, invoke.texi, g77spec.c, lang-specs.h: GCC, not * g77.texi, invoke.texi, g77spec.c, lang-specs.h: GCC, not

25
gcc/f/g77spec.c
View File

@ -1,5 +1,6 @@
/* Specific flags and argument handling of the Fortran front-end. /* 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. This file is part of GCC.
@ -100,36 +101,14 @@ static void append_arg PARAMS ((const char *));
static int g77_newargc; static int g77_newargc;
static const char **g77_newargv; 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 #ifndef SWITCH_TAKES_ARG
#define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR) #define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
#endif #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 #ifndef WORD_SWITCH_TAKES_ARG
#define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR) #define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
#endif #endif
/* --- End of verbatim. */
/* Assumes text[0] == '-'. Returns number of argv items that belong to /* Assumes text[0] == '-'. Returns number of argv items that belong to
(and follow) this one, an option id for options important to the (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 caller, and a pointer to the first char of the arg, if embedded (else