diff options
author | Mark Mitchell <mark@codesourcery.com> | 2001-04-19 19:52:17 +0000 |
---|---|---|
committer | Mark Mitchell <mmitchel@gcc.gnu.org> | 2001-04-19 19:52:17 +0000 |
commit | 57883c536c6b7c02f5a1af6dc734b8000ad170e2 (patch) | |
tree | 98b8cfe356888710abb3c4f2fda98fb972bae195 /gcc/f | |
parent | 13c502cdd58e3f48a479d82bc84a1a559009ff14 (diff) | |
download | gcc-57883c536c6b7c02f5a1af6dc734b8000ad170e2.zip gcc-57883c536c6b7c02f5a1af6dc734b8000ad170e2.tar.gz gcc-57883c536c6b7c02f5a1af6dc734b8000ad170e2.tar.bz2 |
toplev.h (struct lang_hooks): Allow decode_option to indicate that language-independent processing should not...
* toplev.h (struct lang_hooks): Allow decode_option to indicate
that language-independent processing should not be done.
* toplev.c (main): Adjust accordingly.
* top.c (ffe_decode_option): Do not permit language-independent
processing for -ffixed-line-length.
From-SVN: r41427
Diffstat (limited to 'gcc/f')
-rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/f/top.c | 12 |
2 files changed, 14 insertions, 3 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index cae6cb2..3bd1732 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +Thu Apr 19 12:49:24 2001 Mark Mitchell <mark@codesourcery.com> + + * top.c (ffe_decode_option): Do not permit language-independent + processing for -ffixed-line-length. + Thu Apr 12 17:57:55 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * bad.c (inhibit_warnings): Delete redundant declaration. diff --git a/gcc/f/top.c b/gcc/f/top.c index 6eba5c9..9675989 100644 --- a/gcc/f/top.c +++ b/gcc/f/top.c @@ -1,5 +1,5 @@ /* top.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 1997, 1999 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -464,9 +464,15 @@ ffe_decode_option (argc, argv) char *len = &opt[2] + strlen ("fixed-line-length-"); if (strcmp (len, "none") == 0) - ffe_set_fixed_line_length (0); + { + ffe_set_fixed_line_length (0); + return -1; + } else if (ffe_is_digit_string_ (len)) - ffe_set_fixed_line_length (atol (len)); + { + ffe_set_fixed_line_length (atol (len)); + return -1; + } else return 0; } |