From 3c738dbd5f821f7bdc2aaeb20a227df354f646fe Mon Sep 17 00:00:00 2001 From: rth Date: Sat, 26 Nov 2005 22:54:14 +0000 Subject: [PATCH] * io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int in dtp->u.p.value. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107545 138bc75d-0d04-0410-961f-82ee72b054a4 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/list_read.c | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 03629e2..d0bae6e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-11-26 Richard Henderson + + * io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int + in dtp->u.p.value. + 2005-11-26 Janne Blomqvist PR libgfortran/24945 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 1eb38d2..939c4a1 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1563,7 +1563,7 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad, } /* Now read the index. */ - if (convert_integer (dtp, sizeof(int), neg)) + if (convert_integer (dtp, sizeof(ssize_t), neg)) { st_sprintf (parse_err_msg, "Bad integer in index"); goto err_ret; @@ -1575,11 +1575,11 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad, if (!null_flag) { if (indx == 0) - memcpy (&ls[dim].start, dtp->u.p.value, sizeof(int)); + memcpy (&ls[dim].start, dtp->u.p.value, sizeof(ssize_t)); if (indx == 1) - memcpy (&ls[dim].end, dtp->u.p.value, sizeof(int)); + memcpy (&ls[dim].end, dtp->u.p.value, sizeof(ssize_t)); if (indx == 2) - memcpy (&ls[dim].step, dtp->u.p.value, sizeof(int)); + memcpy (&ls[dim].step, dtp->u.p.value, sizeof(ssize_t)); } /* Singlet or doublet indices. */ @@ -1587,7 +1587,7 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad, { if (indx == 0) { - memcpy (&ls[dim].start, dtp->u.p.value, sizeof(int)); + memcpy (&ls[dim].start, dtp->u.p.value, sizeof(ssize_t)); ls[dim].end = ls[dim].start; } break; -- 2.7.4