diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-25 12:06:26 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-25 12:06:26 +0000 |
| commit | e26d45af37ceb2a84cb830b1c78e7823c4cadae2 (patch) | |
| tree | 5744ee8d6ed103b290fb266fe4e57d1456f3d081 | |
| parent | e6a71de3ca57ecfd5437ad3c45b3d795601c2b47 (diff) | |
| download | ppe42-gcc-e26d45af37ceb2a84cb830b1c78e7823c4cadae2.tar.gz ppe42-gcc-e26d45af37ceb2a84cb830b1c78e7823c4cadae2.zip | |
2007-04-25 Janne Blomqvist <jb@gcc.gnu.org>
* module.c (module_char): Replace fgetc() with
getc().
(write_char): Replace fputc() with putc().
* scanner.c (load_line): Replace fgetc() with getc().
(gfc_read_orig_filename): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124154 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 4 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 10 |
3 files changed, 15 insertions, 7 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 32affbee213..74c98bff511 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,11 @@ +2007-04-25 Janne Blomqvist <jb@gcc.gnu.org> + + * module.c (module_char): Replace fgetc() with + getc(). + (write_char): Replace fputc() with putc(). + * scanner.c (load_line): Replace fgetc() with getc(). + (gfc_read_orig_filename): Likewise. + 2007-04-25 Tobias Burnus <burnus@net-b.de> PR fortran/31668 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 03ad1a504f4..8a650385597 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -956,7 +956,7 @@ module_char (void) { int c; - c = fgetc (module_fp); + c = getc (module_fp); if (c == EOF) bad_module ("Unexpected EOF"); @@ -1276,7 +1276,7 @@ find_enum (const mstring *m) static void write_char (char out) { - if (fputc (out, module_fp) == EOF) + if (putc (out, module_fp) == EOF) gfc_fatal_error ("Error writing modules file: %s", strerror (errno)); /* Add this to our MD5. */ diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 685039cb170..c3d3e6216f6 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1033,7 +1033,7 @@ load_line (FILE *input, char **pbuf, int *pbuflen) buffer = *pbuf; preprocessor_flag = 0; - c = fgetc (input); + c = getc (input); if (c == '#') /* In order to not truncate preprocessor lines, we have to remember that this is one. */ @@ -1042,7 +1042,7 @@ load_line (FILE *input, char **pbuf, int *pbuflen) for (;;) { - c = fgetc (input); + c = getc (input); if (c == EOF) break; @@ -1121,7 +1121,7 @@ load_line (FILE *input, char **pbuf, int *pbuflen) /* Truncate the rest of the line. */ for (;;) { - c = fgetc (input); + c = getc (input); if (c == '\n' || c == EOF) break; @@ -1602,7 +1602,7 @@ gfc_read_orig_filename (const char *filename, const char **canon_source_file) if (gfc_src_file == NULL) return NULL; - c = fgetc (gfc_src_file); + c = getc (gfc_src_file); ungetc (c, gfc_src_file); if (c != '#') @@ -1618,7 +1618,7 @@ gfc_read_orig_filename (const char *filename, const char **canon_source_file) if (filename == NULL) return NULL; - c = fgetc (gfc_src_file); + c = getc (gfc_src_file); ungetc (c, gfc_src_file); if (c != '#') |
