This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [fortran,committed] Remove use of ungetc
- From: Andreas Schwab <schwab at suse dot de>
- To: FX <fxcoudert at gmail dot com>
- Cc: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Thu, 29 May 2008 18:24:45 +0200
- Subject: Re: [fortran,committed] Remove use of ungetc
- References: <19c433eb0805290824m74719665hfa277ebfcd597bc1@mail.gmail.com>
FX <fxcoudert@gmail.com> writes:
> @@ -1989,13 +1996,12 @@ gfc_read_orig_filename (const char *file
> return NULL;
>
> c = getc (gfc_src_file);
> - ungetc (c, gfc_src_file);
>
> if (c != '#')
> return NULL;
I wonder what happens with this character when gfc_read_orig_filename
returns NULL. I think load_file would lose the first character of the
first or second line in the file if one of them doesn't start with '#'.
Andreas.
--
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."