Warning fixes:

	* actions.c (id_cmp): Do pointer arithmetic as `long' not `int' to
 	ensure enough bits for calculation.
	* ch-tree.h (check_text_length): Remove unused parameter.
	* convert.c (display_int_cst): Cast a HOST_WIDE_INT argument to
	function sprintf into the appropriate type for printing.
	* decl.c (print_lang_decl): Use HOST_WIDE_INT_PRINT_DEC as the
	format specifier.
	(print_mode): Likewise.
	(init_decl_processing): Cast the arguments of bcopy/bzero to char *.
	* grant.c (grant_array_type): Use HOST_WIDE_INT_PRINT_DEC as
	the format specifier.
	* inout.c (check_text_length): Remove unused parameter `type'.
	(build_chill_associate): Initialize variables `arg1', `arg2',
	`arg3', `arg4' and `arg5'.
	(build_chill_modify): Likewise.
	(scanformcont): Change type of variable `curr' to `unsigned char'.
	* lex.c (maybe_downcase): Cast the argument of `tolower' to
	`unsigned char'.
	* satisfy.c (satisfy): Remove unused parameter in call to
	`check_text_length'.
	* tasking.c (generate_tasking_code_variable): Pass a HOST_WIDE_INT
	as a `long' in call to function `error'.
	(decl_tasking_code_variable): Likewise.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22679 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 7 insertions, 5 deletions

diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c
index 2c5f6281a87..c9af8160bd6 100644
--- a/gcc/ch/inout.c
+++ b/gcc/ch/inout.c
@@ -1615,8 +1615,8 @@ build_text_mode (textlength, indexmode, dynamic)
 }
 
 tree
-check_text_length (type, length)
-     tree type, length;
+check_text_length (length)
+     tree length;
 {
   if (length == NULL_TREE || TREE_CODE (length) == ERROR_MARK)
     return length;
@@ -1750,7 +1750,8 @@ build_chill_associate (assoc, fname, attr)
      tree fname;
      tree attr;
 {
-  tree arg1, arg2, arg3, arg4, arg5, arg6, arg7;
+  tree arg1 = NULL_TREE, arg2 = NULL_TREE, arg3 = NULL_TREE, arg4 = NULL_TREE,
+  arg5 = NULL_TREE, arg6, arg7;
   int had_errors = 0;
   tree result;
 
@@ -1982,7 +1983,8 @@ build_chill_modify (assoc, list)
      tree assoc;
      tree list;
 {
-  tree arg1, arg2, arg3, arg4, arg5, arg6, arg7;
+  tree arg1 = NULL_TREE, arg2 = NULL_TREE, arg3 = NULL_TREE, arg4 = NULL_TREE,
+  arg5 = NULL_TREE, arg6, arg7;
   int had_errors = 0, numargs;
   tree fname = NULL_TREE, attr = NULL_TREE;
   tree result;
@@ -3898,7 +3900,7 @@ scanformcont (fcs, len, fcsptr, lenptr, exprlist, exprptr,
      int *nextargnum;
 {
   fcsstate_t state = FormatText;
-  char curr;
+  unsigned char curr;
   int dig;
 
   while (len--)