diff options
| -rw-r--r-- | gcc/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/gfortranspec.c | 2 | ||||
| -rw-r--r-- | gcc/gcc.h | 9 |
4 files changed, 20 insertions, 4 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index a760e7f..a9df38d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -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 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 78d9359..3808eb5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c index 9a44287..5f3a8d7 100644 --- a/gcc/fortran/gfortranspec.c +++ b/gcc/fortran/gfortranspec.c @@ -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. */ @@ -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. */ |