diff options
| author | mmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-04-19 19:52:17 +0000 |
|---|---|---|
| committer | mmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-04-19 19:52:17 +0000 |
| commit | 65fd03c09718899ae351d9eca6b717b3a0f959c7 (patch) | |
| tree | 98b8cfe356888710abb3c4f2fda98fb972bae195 /gcc/f/top.c | |
| parent | 41441b595a9bffbf63a6da9fb6a9c050817a38de (diff) | |
| download | gcc-65fd03c09718899ae351d9eca6b717b3a0f959c7.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@41427 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f/top.c')
| -rw-r--r-- | gcc/f/top.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/f/top.c b/gcc/f/top.c index 6eba5c98bb4..9675989e210 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; } |