mirror/gcc
1
0
Fork 0
mirror of https://github.com/gcc-mirror/gcc.git synced 2024-11-21 13:40:47 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

eoshift1.m4: Initialize variables to avoid warnings.

Browse Source 
* m4/eoshift1.m4: Initialize variables to avoid warnings.
	* m4/eoshift3.m4: Initialize variables to avoid warnings.
	* generated/eoshift1_4.c, generated/eoshift1_8.c,
	generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.

	* intrinsics/spread_generic.c (spread): Initialize variables to
	avoid warnings.

	* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
	warnings.
	* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
	warnings.

	* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
	warnings.

From-SVN: r99726
This commit is contained in:
Andreas Jaeger 2005-05-15 17:50:09 +02:00 committed by Andreas Jaeger
parent 7d3cdba142
commit 7672ae2082
11 changed files with 76 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libgfortran/ChangeLog
View File

@ -1,5 +1,21 @@
2005-05-15 Andreas Jaeger <aj@suse.de>
* m4/eoshift1.m4: Initialize variables to avoid warnings.
* m4/eoshift3.m4: Initialize variables to avoid warnings.
* generated/eoshift1_4.c, generated/eoshift1_8.c,
generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.
* intrinsics/spread_generic.c (spread): Initialize variables to
avoid warnings.
* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
warnings.
* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
warnings.
* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
warnings.
* intrinsics/pack_generic.c (pack): Remove unneeded calculation.
* m4/matmull.m4 (matmul_): Remove unneeded calculations, fix

8
libgfortran/generated/eoshift1_4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -76,6 +76,12 @@ eoshift1_4 (const gfc_array_char *ret,
GFC_INTEGER_4 sh;
GFC_INTEGER_4 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else

8
libgfortran/generated/eoshift1_8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -76,6 +76,12 @@ eoshift1_8 (const gfc_array_char *ret,
GFC_INTEGER_8 sh;
GFC_INTEGER_8 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else

8
libgfortran/generated/eoshift3_4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -78,6 +78,12 @@ eoshift3_4 (gfc_array_char *ret, gfc_array_char *array,
GFC_INTEGER_4 sh;
GFC_INTEGER_4 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else

8
libgfortran/generated/eoshift3_8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -78,6 +78,12 @@ eoshift3_8 (gfc_array_char *ret, gfc_array_char *array,
GFC_INTEGER_8 sh;
GFC_INTEGER_8 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else

9
libgfortran/intrinsics/eoshift0.c
View File

@ -1,5 +1,5 @@
/* Generic implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -64,6 +64,12 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
index_type len;
index_type n;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (!pbound)
pbound = zeros;
@ -251,4 +257,3 @@ eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
{
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
}

9
libgfortran/intrinsics/eoshift2.c
View File

@ -1,5 +1,5 @@
/* Generic implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -68,6 +68,12 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
index_type len;
index_type n;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
size = GFC_DESCRIPTOR_SIZE (ret);
if (ret->data == NULL)
@ -267,4 +273,3 @@ eoshift2_8 (gfc_array_char *ret, const gfc_array_char *array,
{
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
}

4
libgfortran/intrinsics/spread_generic.c
View File

@ -1,5 +1,5 @@
/* Generic implementation of the SPREAD intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -45,7 +45,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source,
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
index_type rstride0;
index_type rdelta;
index_type rdelta = 0;
index_type rrank;
index_type rs;
char *rptr;

4
libgfortran/io/list_read.c
View File

@ -2026,8 +2026,8 @@ nml_get_obj_data (void)
char c;
char * ext_name;
namelist_info * nl;
namelist_info * first_nl;
namelist_info * root_nl;
namelist_info * first_nl = NULL;
namelist_info * root_nl = NULL;
int dim;
int component_flag;

8
libgfortran/m4/eoshift1.m4
View File

@ -1,5 +1,5 @@
`/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -77,6 +77,12 @@ eoshift1_`'atype_kind (const gfc_array_char *ret,
atype_name sh;
atype_name delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else

8
libgfortran/m4/eoshift3.m4
View File

@ -1,5 +1,5 @@
`/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -79,6 +79,12 @@ eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array,
atype_name sh;
atype_name delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich)
which = *pwhich - 1;
else