Fortran frontend changelog:

2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* trans-io.c (gfc_build_io_library_fndecls): Change to use
	gfc_array_index_type for array descriptor triplets instead of
	gfc_int4_type_node.

libgfortran ChangeLog:

2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* io/transfer.c (st_set_nml_var_dim): Use index_type instead of
	GFC_INTEGER_4 for array descriptor triplets.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126992 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1a17c51..79571fd 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * trans-io.c (gfc_build_io_library_fndecls): Change to use
+       gfc_array_index_type for array descriptor triplets instead of
+       gfc_int4_type_node.
+
 2007-07-26  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/32899

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 4b70871..adc7bc1 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -417,8 +417,8 @@ gfc_build_io_library_fndecls (void)
   iocall[IOCALL_SET_NML_VAL_DIM] =
     gfc_build_library_function_decl (get_identifier (PREFIX("st_set_nml_var_dim")),
                                     void_type_node, 5, dt_parm_type,
-                                    gfc_int4_type_node, gfc_int4_type_node,
-                                    gfc_int4_type_node, gfc_int4_type_node);
+                                    gfc_int4_type_node, gfc_array_index_type,
+                                    gfc_array_index_type, gfc_array_index_type);
 }
 
 

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c0a81fa..374040d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * io/transfer.c (st_set_nml_var_dim): Use index_type instead of
+       GFC_INTEGER_4 for array descriptor triplets.
+
 2007-07-27  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * io/unix.c (stream_ttyname): Mark argument as potentialy unused.

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 067a065..3feae04 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2906,14 +2906,14 @@ st_set_nml_var (st_parameter_dt *dtp, void * var_addr, char * var_name,
 
 /* Store the dimensional information for the namelist object.  */
 extern void st_set_nml_var_dim (st_parameter_dt *, GFC_INTEGER_4,
-                               GFC_INTEGER_4, GFC_INTEGER_4,
-                               GFC_INTEGER_4);
+                               index_type, index_type,
+                               index_type);
 export_proto(st_set_nml_var_dim);
 
 void
 st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim,
-                   GFC_INTEGER_4 stride, GFC_INTEGER_4 lbound,
-                   GFC_INTEGER_4 ubound)
+                   index_type stride, index_type lbound,
+                   index_type ubound)
 {
   namelist_info * nml;
   int n;
@@ -2922,9 +2922,9 @@ st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim,
 
   for (nml = dtp->u.p.ionml; nml->next; nml = nml->next);
 
-  nml->dim[n].stride = (ssize_t)stride;
-  nml->dim[n].lbound = (ssize_t)lbound;
-  nml->dim[n].ubound = (ssize_t)ubound;
+  nml->dim[n].stride = stride;
+  nml->dim[n].lbound = lbound;
+  nml->dim[n].ubound = ubound;
 }
 
 /* Reverse memcpy - used for byte swapping.  */