diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-08-21 17:28:27 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-08-21 17:28:27 +0200 |
| commit | e0bcf78cc83113145a1d93d05f4aea92d0626a72 (patch) | |
| tree | 6d78660a99f1d6307abbfb89d8b2c30df09ad74e /gcc/fortran/trans-const.c | |
| parent | 1125164cd32576b05e6c078077d78736fa0d63e3 (diff) | |
| download | gcc-e0bcf78cc83113145a1d93d05f4aea92d0626a72.zip gcc-e0bcf78cc83113145a1d93d05f4aea92d0626a72.tar.gz gcc-e0bcf78cc83113145a1d93d05f4aea92d0626a72.tar.bz2 | |
gfortran.h (gfc_option_t): Remove source field.
fortran/
* gfortran.h (gfc_option_t): Remove source field. Add
flag_d_lines field.
(gfc_new_file): Remove arguments in prototype.
(gfc_source_file): Make 'const char *'.
* f95-lang.c (gfc_init): Use gfc_source_file instead of
gfc_option.source. Call gfc_new_file without arguments.
* invoke.texi: Document new options '-fd-lines-as-code' and
'-fd-lines-as-comment'.
* lang.opt: Add new options. Alphabetize.
* options.c (gfc_init_options): Initialize gfc_source_file instead
of gfc_option.source. Initialize gfc_option.flag_d_lines.
(form_from_filename): Move here from scanner.c. Make
'filename' argument 'const'.
(gfc_post_options): Set gfc_source_file. Determine source form.
Warn if 'd-lines*' are used in free form.
* scanner.c (gfc_source_file): Constify.
(skip_fixed_comments): Deal with d-lines.
(get_file): Constify argument 'name'.
(load_file): Constify argument 'filename'.
(form_from_filename): Moved to options.c.
(gfc_new_file): Remove arguments. Don't initialize
gfc_source_file, don't determine source form.
* trans-const.c (gfc_init_constants): Use gfc_source_file instead
of gfc_option.source.
testsuite/
* d_lines_1.f, d_lines_2.f, d_lines_3.f, d_lines_4.f,
d_lines_5.f: New.
From-SVN: r103322
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index ae7c271..bab1869 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -163,7 +163,7 @@ gfc_init_constants (void) gfc_build_cstring_const ("Incorrect function return value"); gfc_strconst_current_filename = - gfc_build_cstring_const (gfc_option.source); + gfc_build_cstring_const (gfc_source_file); } /* Converts a GMP integer into a backend tree node. */ |