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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 03629e24f88a529d78589bb46e029673755844a0..d0bae6e2c90b45257eebbe56263d0535a0dc6f36 100644 (file)
--- 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 1eb38d2533be9de74aa30f5a718f7dd2c36ab397..939c4a10683c3e278769487148c7cd61e725a751 100644 (file)
--- 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;