diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2005-10-01 13:50:10 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-10-01 13:50:10 +0200 |
| commit | 1449b8cba879ff1bedf7863f63ef079b2026c0a1 (patch) | |
| tree | be9e8c61a086ff18a3169c8a58d1c4886f88a747 /libgfortran/io/read.c | |
| parent | fdf84417b930dec65dbabe735ca984080079af6e (diff) | |
| download | gcc-1449b8cba879ff1bedf7863f63ef079b2026c0a1.tar.gz | |
libgfortran.h (GFC_ITOA_BUF_SIZE, [...]): Define.
* libgfortran.h (GFC_ITOA_BUF_SIZE, GFC_XTOA_BUF_SIZE,
GFC_OTOA_BUF_SIZE, GFC_BTOA_BUF_SIZE): Define.
(gfc_itoa, xtoa): Add 2 extra arguments.
* runtime/environ.c: Include stdio.h.
(check_buffered): Use sprintf.
* runtime/error.c: Include assert.h.
(gfc_itoa, xtoa): Add 2 extra arguments, avoid using static
buffers.
(st_printf, st_sprintf): Adjust callers.
* io/write.c (otoa, btoa): Add 2 extra arguments, avoid using
static buffers.
(write_int, write_decimal): Add 2 extra arguments to conv
function pointer, adjust caller.
(write_integer): Adjust gfc_itoa caller.
* io/unit.c (get_array_unit_len): Return 0 rather than NULL.
* io/read.c (read_f): Remove spurious pointer dereference.
From-SVN: r104855
Diffstat (limited to 'libgfortran/io/read.c')
| -rw-r--r-- | libgfortran/io/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index ec6077ca45e..a3a221ae146 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -621,7 +621,7 @@ read_f (fnode * f, char *dest, int length) case '9': case ' ': ndigits++; - *p++; + p++; w--; break; |