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.

From-SVN: r126992

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1a17c519405305f97ed945754ec651f9946b1fe3..79571fdc48c3fc47a4f37e3182e6754c03d110a9 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 4b708713e72f693113c6b135e382c1f65cc59dd0..adc7bc175de9523d039213438fd12eae4397ad5b 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 c0a81fa475c9e67a62fca57e8d33b34d8f37c039..374040d018d4d0c2b6579fe6f8fd1fdfa1b809a5 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 067a065f9cfcb37045c5b36205aef0dda4272e9f..3feae04df59ef376b518e1c09e4effbae1d03bc9 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.  */