Warning fixes:

	* Makefile.in (actions.o, convert.o, decl.o, expr.o, lang.o,
	lex.o, loop.o, parse.o, satisfy.o, timing.o, tasking.o, tree.o,
	typeck.o): Depend on system.h and toplev.h.
	(except.o): Depend on toplev.h.
	(grant.o): Depend on system.h, toplev.h and output.h.
	* actions.c: Include system.h and toplev.h.  Remove redundant
 	prototypes.
	(build_cause_exception): Add default case in switch.
	(update_else_range_for_range): Add parentheses around && within ||.
	(chill_handle_multi_case_label_list): Remove unused variable
	`selector_value'.
	(print_missing_cases): Reconcile format specifiers vs arguments in
 	calls to sprintf.
	* ch-tree.h: Don't include stdio.h.  Wrap prototypes using FILE*
 	with macro BUFSIZ.  Add missing prototypes.
	* convert.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
  	(convert): Remove unused variable `errstr'.
	* decl.c: Include system.h and toplev.h.  Remove redundant
 	prototypes.
	(builtin_scope): Add missing initializers.
	(clear_scope): Likewise.
	(allocate_lang_decl): Mark parameter `t' with ATTRIBUTE_UNUSED.
	(copy_lang_decl): Likewise for parameter `node'.
	(c_decode_option): Likewise for parameter `argc'.
	(push_extern_function): Likewise for parameter `granting'.
	(switch_to_pass_2): Hide declaration of errorcount/sorrycount.
	(pushdecl): Remove unused variable `t'.
	(lookup_name_current_level): Make static and hide.
	(lookup_name_for_seizing): Make static.
	(finish_decl): Remove unused variable `type'.
	(maybe_build_cleanup): Mark parameter `decl' with ATTRIBUTE_UNUSED.
	(complete_array_type): Mark parameters `type', `initial_value' and
 	`do_default' with ATTRIBUTE_UNUSED.
	(start_struct): Mark parameter `name' with ATTRIBUTE_UNUSED.
	(start_enum): Likewise.
	(shadow_record_fields): Remove unused variables `type' and `parent'.
	* except.c: Include toplev.h.  Remove redundant prototypes.
	* expr.c: Include system.h and toplev.h.  Don't define NULL.
  	Remove redundant prototypes.
	(internal_build_compound_expr): Mark parameter `first_p' with
	ATTRIBUTE_UNUSED.
	(build_allocate_getstack): Remove unused variable `init'.
	(build_chill_pred_or_succ): Likewise for variable `limit'.
	(varying_to_slice): Likewise for variable `doamin' [sic].
	(finish_chill_binary_op): Likewise for variables `code0' and
	`code1'.  Remove unused label `finish'.  Add explicit braces to
	avoid ambiguous `else'.
	(build_chill_addr_expr): Remove extra parameter in call to `error'.
	(build_chill_unary_op): Remove unused variables `class' and `type0'.
	(powersetlen): Remove unused variables `domain' and `temp'.
	* grant.c: Include system.h, toplev.h and output.h.  Don't handle
 	strchr/strrchr.  Remove redundant prototypes.
  	(decode_constant_selective): Remove unused variables `op' and `wrk'.
	(push_granted): Mark parameters `name' and `decl' with
 	ATTRIBUTE_UNUSED.
	* inout.c: Include system.h and toplev.h.  Remove redundant
 	prototypes.
	(textlocation_mode): Use &&, not &, when comparing two truth
	values.
	(scanformcont): Remove unused label `do_the_action'.
	* lang.c: Include system.h and toplev.h.  Remove redundant
 	prototypes.
	(lookup_interface): Mark parameter `arg' with ATTRIBUTE_UNUSED.
	(maybe_objc_comptypes): Likewise for parameters `lhs' and `rhs'.
	(lang_print_xnode): Likewise for parameters `file', `node' and
	`indent'.
	(lang_decode_option): Explicitly declare `explicit_ignore_case'.
	(incomplete_type_error): Mark parameters `value' and `type' with
	ATTRIBUTE_UNUSED.
	* lex.c: Include system.h and toplev.h.  Remove redundant
 	prototypes.  Don't handle strchr/strrchr.  Use CAPITALIZED
	versions of ctype macros from system.h.  Cast ctype arguments to
	unsigned char when necessary.
	(last_token, RETURN_TOKEN): Hide definition.
	(push_back): Remove unused function.
	(readstring): Change variable `i' to unsigned.
	(yywrap): Remove unused variable `node'.
	* loop.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
	(chill_unsigned_type): Hide prototype and definition.
	(begin_loop_scope): Remove unused variable `firstp'.
	(nonvalue_begin_loop_scope): Likewise.
	* parse.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
	(quasi_signal): Hide.
	(PEEK_TOKEN): Change return type to `enum terminal'.
	(parse_mode_definition_statement): Remove unused variable `names'.
	(parse_formpar): Remove unused parameter `in_spec_module'.  All
	callers changed.
	(parse_formparlist): Likewise.
	(parse_processpar): Remove unused variable `parms'.
	(parse_definition): Add explicit braces to avoid ambiguous `else'.
	(parse_multi_dimension_case_action): Initialize variable
	`begin_test_label'.  Remove unused variable `new_test'.
	(parse_case_action): Remove unused variable `caseaction_flag'.
	(parse_asm_clobbers): Remove unused variable `expr'.
	(parse_delay_case_action): Initialize variable `label_cnt'.
	(parse_action): Make function static.
	(parse_tuple_element): Remove unused variable `list'.
	(parse_primval): Add default case in switch.
	(parse_variant_alternative): Remove unused variables `x' and
	`variant_fields'.
	* satisfy.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
	* tasking.c Include system.h and toplev.h.  Remove redundant
	prototypes.
	(data_name): Hide.
	(get_struct_variable_name): Likewise.
	(validate_process_parameters): Mark parameter `parms' with
	ATTRIBUTE_UNUSED.
	(build_start_process): Initialize variable `tuple'.
	(build_receive_buffer_case_end): Remove unused variable `buffer_ptr'.
	* timing.c: Include system.h and toplev.h.
	(build_after_timeout_start): Remove unused variable `goto_where'.
	* tree.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
	* typeck.c: Include system.h and toplev.h.  Remove redundant
	prototypes.
	(extract_constant_from_buffer): Make function static.  Add
 	explicit braces to avoid ambiguous `else'.
	(expand_constant_to_buffer): Likewise.
	(build_chill_slice): remove unused variable `is_static'.
	(chill_compatible): Add explicit braces to avoid ambiguous `else'.
	(apply_chill_array_layout): Remove unused variable `offset'.
	(smash_dummy_type): Remove unused variable `save_lang_specific'.
	(initializer_constant_valid_p): Add default case in switch.

From-SVN: r22493

1 files changed, 24 insertions, 44 deletions

diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c
index a016bf9..3326eea 100644
--- a/gcc/ch/expr.c
+++ b/gcc/ch/expr.c
@@ -20,7 +20,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 
 #include "config.h"
-#include <stdio.h>
+#include "system.h"
 #include "rtl.h"
 #include "tree.h"
 #include "flags.h"
@@ -29,10 +29,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "assert.h"
 #include "lex.h"
 #include "convert.h"
-
-#ifndef NULL
-#define NULL 0
-#endif
+#include "toplev.h"
 
 extern char **boolean_code_name;
 extern int  flag_old_strings;
@@ -40,15 +37,6 @@ extern tree long_unsigned_type_node;
 extern int  ignore_case;
 extern int  special_UC;
 
-extern void check_for_full_enumeration_handling PROTO((tree));
-extern void chill_handle_case_default           PROTO((void));
-extern void error                               PROTO((char *, ...));
-extern void error_with_decl                     PROTO((tree, char *, ...));
-extern void fatal                               PROTO((char *, ...));
-extern void sorry                               PROTO((char *, ...));
-extern tree stabilize_reference                 PROTO((tree));
-extern void warning                             PROTO((char *, ...));
-
 /* definitions for duration built-ins */
 #define MILLISECS_MULTIPLIER                                 1
 #define SECS_MULTIPLIER            MILLISECS_MULTIPLIER * 1000
@@ -557,7 +545,6 @@ chill_expand_expr (exp, target, tmode, modifier)
 
     case SET_IN_EXPR:
       {
-	extern tree lookup_name PROTO((tree));
 	tree set = TREE_OPERAND (exp, 1);
 	tree pos = convert (long_unsigned_type_node, TREE_OPERAND (exp, 0));
 	tree set_type = TREE_TYPE (set);
@@ -602,7 +589,6 @@ chill_expand_expr (exp, target, tmode, modifier)
 
     case PACKED_ARRAY_REF:
       {
-	extern tree lookup_name PROTO((tree));
 	tree array = TREE_OPERAND (exp, 0);
 	tree pos = save_expr (TREE_OPERAND (exp, 1));
 	tree array_type = TREE_TYPE (array);
@@ -679,7 +665,7 @@ check_arglist_length (args, min_length, max_length, name)
 static tree
 internal_build_compound_expr (list, first_p)
      tree list;
-     int first_p;
+     int first_p ATTRIBUTE_UNUSED;
 {
   register tree rest;
 
@@ -1564,7 +1550,7 @@ build_allocate_getstack (mode, value, chill_name, fnname, filename, linenumber)
 {
   tree type, result;
   tree expr = NULL_TREE;
-  tree args, tmpvar, fncall, ptr, init, outlist = NULL_TREE;
+  tree args, tmpvar, fncall, ptr, outlist = NULL_TREE;
 
   if (mode == NULL_TREE || TREE_CODE (mode) == ERROR_MARK)
     return error_mark_node;
@@ -2125,7 +2111,6 @@ build_chill_pred_or_succ (expr, op)
 {
   struct ch_class class;
   tree etype, cond;
-  tree limit;
 
   if (pass == 1)
     return NULL_TREE;
@@ -3241,7 +3226,7 @@ varying_to_slice (exp)
   if (!chill_varying_type_p (TREE_TYPE (exp)))
     return exp;
   else
-    { tree size, data, data_domain, doamin, min;
+    { tree size, data, data_domain, min;
       tree novelty = CH_NOVELTY (TREE_TYPE (exp));
       exp = save_if_needed (exp);
       size = build_component_ref (exp, var_length_id);
@@ -3732,8 +3717,6 @@ finish_chill_binary_op (node)
   tree op1 = check_have_mode (TREE_OPERAND (node, 1), "binary expression");
   tree type0 = TREE_TYPE (op0);
   tree type1 = TREE_TYPE (op1);
-  enum tree_code code0;
-  enum tree_code code1;
   tree folded;
 
   if (TREE_CODE (op0) == ERROR_MARK || TREE_CODE (op1) == ERROR_MARK)
@@ -3902,8 +3885,6 @@ finish_chill_binary_op (node)
       return error_mark_node;
     }
 
-
- finish:
   if (TREE_TYPE (node) == NULL_TREE)
     {
       struct ch_class class;
@@ -3922,23 +3903,26 @@ finish_chill_binary_op (node)
     TREE_CONSTANT (folded) = TREE_CONSTANT (op0) & TREE_CONSTANT (op1);
 #endif
   if (TREE_CODE (node) == TRUNC_DIV_EXPR)
-    if (TREE_CONSTANT (op1))
-      {
-	if (tree_int_cst_equal (op1, integer_zero_node))
-	  {
-	    error ("division by zero");
-	    return integer_zero_node;
-	  }
-      }
-    else if (range_checking)
-      {
+    {
+      if (TREE_CONSTANT (op1))
+	{
+	  if (tree_int_cst_equal (op1, integer_zero_node))
+	    {
+	      error ("division by zero");
+	      return integer_zero_node;
+	    }
+	}
+      else if (range_checking)
+	{
 #if 0
-	tree test = build (EQ_EXPR, boolean_type_node, op1, integer_zero_node);
-	/* Should this be overflow? */
-	folded = check_expression (folded, test,
-				   ridpointers[(int) RID_RANGEFAIL]);
+	  tree test =
+	    build (EQ_EXPR, boolean_type_node, op1, integer_zero_node);
+	  /* Should this be overflow? */
+	  folded = check_expression (folded, test,
+				     ridpointers[(int) RID_RANGEFAIL]);
 #endif
-      }
+	}
+    }
   return folded;
 }
 
@@ -4035,7 +4019,7 @@ build_chill_addr_expr (ref, errormsg)
   if (! CH_LOCATION_P (ref)
       && TREE_CODE (TREE_TYPE (ref)) != FUNCTION_TYPE)
     {
-      error ("ADDR parameter must be a LOCATION", errormsg);
+      error ("ADDR parameter must be a LOCATION");
       return error_mark_node;
     }
   ref = build_chill_arrow_expr (ref, 1);
@@ -4358,8 +4342,6 @@ build_chill_unary_op (code, op0)
      tree op0;
 {
   register tree result = NULL_TREE;
-  struct ch_class class;
-  tree type0 = TREE_TYPE (op0);
 
   if (op0 == NULL_TREE || TREE_CODE (op0) == ERROR_MARK)
     return error_mark_node;
@@ -4482,8 +4464,6 @@ tree
 powersetlen (powerset)
      tree powerset;
 {
-  tree domain, temp;
-
   if (powerset == NULL_TREE || TREE_CODE (powerset) == ERROR_MARK)
     return error_mark_node;