git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
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> 2007-07-26 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/32899 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] = iocall[IOCALL_SET_NML_VAL_DIM] =
gfc_build_library_function_decl (get_identifier (PREFIX("st_set_nml_var_dim")), gfc_build_library_function_decl (get_identifier (PREFIX("st_set_nml_var_dim")),
void_type_node, 5, dt_parm_type, void_type_node, 5, dt_parm_type,
gfc_int4_type_node, gfc_int4_type_node, gfc_int4_type_node, gfc_array_index_type,
gfc_int4_type_node, gfc_int4_type_node); 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> 2007-07-27 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* io/unix.c (stream_ttyname): Mark argument as potentialy unused. * 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. */ /* Store the dimensional information for the namelist object. */
extern void st_set_nml_var_dim (st_parameter_dt *, GFC_INTEGER_4, extern void st_set_nml_var_dim (st_parameter_dt *, GFC_INTEGER_4,
GFC_INTEGER_4, GFC_INTEGER_4, index_type, index_type,
GFC_INTEGER_4); index_type);
export_proto(st_set_nml_var_dim); export_proto(st_set_nml_var_dim);
void void
st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim, st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim,
GFC_INTEGER_4 stride, GFC_INTEGER_4 lbound, index_type stride, index_type lbound,
GFC_INTEGER_4 ubound) index_type ubound)
{ {
namelist_info * nml; namelist_info * nml;
int n; 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); for (nml = dtp->u.p.ionml; nml->next; nml = nml->next);
nml->dim[n].stride = (ssize_t)stride; nml->dim[n].stride = stride;
nml->dim[n].lbound = (ssize_t)lbound; nml->dim[n].lbound = lbound;
nml->dim[n].ubound = (ssize_t)ubound; nml->dim[n].ubound = ubound;
} }
/* Reverse memcpy - used for byte swapping. */ /* Reverse memcpy - used for byte swapping. */