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

re PR fortran/36375 (ICE on -fpreprocessed)

Browse source 
2008-06-02  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/36375
        PR fortran/36377
        * cpp.c (gfc_cpp_init): Do not initialize builtins if
        processing already preprocessed input.
        (gfc_cpp_preprocess): Finalize output with newline.

From-SVN: r136283
This commit is contained in:
Daniel Franke 2008-06-02 12:41:08 -04:00 • committed by Daniel Franke
parent 3250d72489
commit 1e60697fe1
2 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View file

@ -1,3 +1,11 @@
2008-06-02 Daniel Franke <franke.daniel@gmail.com>
PR fortran/36375
PR fortran/36377
* cpp.c (gfc_cpp_init): Do not initialize builtins if
processing already preprocessed input.
(gfc_cpp_preprocess): Finalize output with newline.
2008-05-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* intrinsic.texi: Revert wrong commit.

5
gcc/fortran/cpp.c
View file

@ -524,6 +524,9 @@ gfc_cpp_init (void)
{
int i;
if (gfc_option.flag_preprocessed)
return;
cpp_change_file (cpp_in, LC_RENAME, _("<built-in>"));
if (!gfc_cpp_option.no_predefined)
cpp_define_builtins (cpp_in);
@ -574,6 +577,8 @@ gfc_cpp_preprocess (const char *source_file)
cpp_forall_identifiers (cpp_in, dump_macro, NULL);
}
putc ('\n', print.outf);
if (!gfc_cpp_preprocess_only ()
|| (gfc_cpp_preprocess_only () && gfc_cpp_option.output_filename))
fclose (print.outf);