diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-28 01:40:23 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-28 01:40:23 +0000 |
| commit | fdacc46b1158c1f54bb8ea0b2b85dcd319f54f3b (patch) | |
| tree | 12ba3fe42dffb08262da6b5bad1f6843ef4fee53 /libgfortran | |
| parent | 0eb2ffb585000bf4f23742c6564f23bc22099363 (diff) | |
| download | gcc-fdacc46b1158c1f54bb8ea0b2b85dcd319f54f3b.tar.gz | |
2006-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/30014
*io/io.h (st_parameter_dt): Change *size and *iolength type to
GFC_IO_INT.
*io/transfer.c (finalize_transfer): Cast dtp->u.p.size_used to
GFC_IO_INT. (iolength_transfer): Cast size * nelems to GFC_IO_INT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120234 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
| -rw-r--r-- | libgfortran/io/io.h | 2 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 4 |
3 files changed, 11 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ff7adbe2da6..568049c6d22 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,11 @@ +2006-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/30014 + *io/io.h (st_parameter_dt): Change *size and *iolength type to + GFC_IO_INT. + *io/transfer.c (finalize_transfer): Cast dtp->u.p.size_used to + GFC_IO_INT. (iolength_transfer): Cast size * nelems to GFC_IO_INT. + 2006-12-17 Tobias Burnus <burnus@net-b.de> * intrinsics/associated.c: Check for associated(NULL,NULL). diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 4d227dd3b8c..314fc4cc818 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -354,7 +354,7 @@ typedef struct st_parameter_dt { st_parameter_common common; GFC_IO_INT rec; - GFC_INTEGER_4 *size, *iolength; + GFC_IO_INT *size, *iolength; gfc_array_char *internal_unit_desc; CHARACTER1 (format); CHARACTER2 (advance); diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 0139380e821..ddf5d00dac1 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2539,7 +2539,7 @@ finalize_transfer (st_parameter_dt *dtp) GFC_INTEGER_4 cf = dtp->common.flags; if ((dtp->common.flags & IOPARM_DT_HAS_SIZE) != 0) - *dtp->size = (GFC_INTEGER_4) dtp->u.p.size_used; + *dtp->size = (GFC_IO_INT) dtp->u.p.size_used; if (dtp->u.p.eor_condition) { @@ -2615,7 +2615,7 @@ iolength_transfer (st_parameter_dt *dtp, bt type __attribute__((unused)), size_t size, size_t nelems) { if ((dtp->common.flags & IOPARM_DT_HAS_IOLENGTH) != 0) - *dtp->iolength += (GFC_INTEGER_4) size * nelems; + *dtp->iolength += (GFC_IO_INT) size * nelems; } |