diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:13:37 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2007-07-27 21:13:37 +0300 |
| commit | 6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1 (patch) | |
| tree | 9fa4b0c0a60e78b9cad01aa8823b59175cde56cf /libgfortran | |
| parent | 3ad6a8e12ca4ac15b759f6a407d2ca2ea32e17a2 (diff) | |
| download | gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.zip gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.tar.gz gcc-6520ecacd5060c7ba33f1f4fb54f1ad5cca2ece1.tar.bz2 | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 14 |
2 files changed, 12 insertions, 7 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c0a81fa..374040d 100644 --- 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 --- 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. */ |