OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Richard Henderson 2005-11-26 14:54:14 -08:00 committed by Richard Henderson
parent 75ce3d489c
commit e9af03e0bc
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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

10
libgfortran/io/list_read.c
View File

@ -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;