procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/35019 (Gfortran does not support "-J <dir>" only "-J<dir>")

Browse source 
gcc:
2008-04-21  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/35019
        * gcc.h: Added fortran options that take arguments to
        DEFAULT_SWITCH_TAKES_ARG and DEFAULT_WORD_SWITCH_TAKES_ARG
        macros.

gcc/fortran:
2008-04-21  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/35019
        * gfortranspec.c (lookup_option): Properly handle separated arguments
        in -J option, print missing argument message when necessary.

From-SVN: r134518
This commit is contained in:
Daniel Franke 2008-04-21 13:10:15 -04:00 • committed by Daniel Franke
parent ee34d21ad5
commit 3d4cb550a7
4 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/ChangeLog
View file

@ -1,3 +1,10 @@
2008-04-21 Daniel Franke <franke.daniel@gmail.com>
PR fortran/35019
* gcc.h: Added fortran options that take arguments to
DEFAULT_SWITCH_TAKES_ARG and DEFAULT_WORD_SWITCH_TAKES_ARG
macros.
2008-04-20 Eric Botcazou <ebotcazou@adacore.com>
* tree-sra.c (sra_walk_expr) <VIEW_CONVERT_EXPR>: Disable

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2008-04-21 Daniel Franke <franke.daniel@gmail.com>
PR fortran/35019
* gfortranspec.c (lookup_option): Properly handle separated arguments
in -J option, print missing argument message when necessary.
2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35882

2
gcc/fortran/gfortranspec.c
View file

@ -175,6 +175,8 @@ lookup_option (Option *xopt, int *xskip, const char **xarg, const char *text)
opt = OPTION_v, skip = 0;
else if (text[1] == 'x')
opt = OPTION_x, arg = text + 2;
else if (text[1] == 'J')
;
else
{
if ((skip = WORD_SWITCH_TAKES_ARG (text + 1)) != 0) /* See gcc.c. */

9
gcc/gcc.h
View file

@ -35,9 +35,9 @@ struct spec_function
#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' || (CHAR) == 'V' \
|| (CHAR) == 'B' || (CHAR) == 'b')
|| (CHAR) == 'I' || (CHAR) == 'J' || (CHAR) == 'm' \
|| (CHAR) == 'x' || (CHAR) == 'L' || (CHAR) == 'A' \
|| (CHAR) == 'V' || (CHAR) == 'B' || (CHAR) == 'b')
/* This defines which multi-letter switches take arguments. */
@ -50,7 +50,8 @@ struct spec_function
|| !strcmp (STR, "iquote") || !strcmp (STR, "isystem") \
|| !strcmp (STR, "isysroot") \
|| !strcmp (STR, "-param") || !strcmp (STR, "specs") \
|| !strcmp (STR, "MF") || !strcmp (STR, "MT") || !strcmp (STR, "MQ"))
|| !strcmp (STR, "MF") || !strcmp (STR, "MT") || !strcmp (STR, "MQ") \
|| !strcmp (STR, "fintrinsic-modules-path"))
/* These are exported by gcc.c. */