mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:11:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fortran frontend changelog:

Browse Source 
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
This commit is contained in:
Janne Blomqvist 2007-07-27 21:13:37 +03:00
parent 3ad6a8e12c
commit 6520ecacd5
4 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

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

4
gcc/fortran/trans-io.c
View File

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

5
libgfortran/ChangeLog
View File

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

14
libgfortran/io/transfer.c
View File

@ -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. */