diff options
| author | Richard Henderson <rth@redhat.com> | 2005-11-26 14:54:14 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2005-11-26 14:54:14 -0800 |
| commit | e9af03e0bcd93e9e077d744e7c250482a3b76893 (patch) | |
| tree | a8925144ed1fab2ca70a087be9aa3350b1583de4 | |
| parent | 75ce3d489ce44d6eeb8e59d88d76eb6d4682bbd1 (diff) | |
| download | gcc-e9af03e0bcd93e9e077d744e7c250482a3b76893.zip gcc-e9af03e0bcd93e9e077d744e7c250482a3b76893.tar.gz gcc-e9af03e0bcd93e9e077d744e7c250482a3b76893.tar.bz2 | |
list_read.c (nml_parse_qualifier): Use ssize_t instead of int in dtp->u.p.value.
* io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int
in dtp->u.p.value.
From-SVN: r107545
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <rth@redhat.com> + + * io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int + in dtp->u.p.value. + 2005-11-26 Janne Blomqvist <jb@gcc.gnu.org> 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; |