* Makefile.in (typeck.o): Depend on insn-codes.h.

        * actions.c (chill_handle_multi_case_label): Initialize "expr".
        * decl.c (poplevel): Initialize "block_previously_created".
        * expr.c (chill_expand_expr): Initialize "size0" and "size1".
        (fold_set_expr): Initialize "buffer1".
        * inout.c (process_io_list): Initialize "to_assign".
        (check_exprlist): Initialize "result".
        * parse.c (expand_expr): Declare.
        (parse_multi_dimension_case_action): Initialize "end_case_label".
        * tasking.c (build_start_process): Initialize "struct_type_node".
        * typeck.c (apply_chill_field_layout): Initialize "word".
        (type_for_mode); Unconditionally cast RHS & LHS to ints to shut up
        signed/unsigned comparison warning.
Kill remaining chill warnings.


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

9 files changed, 54 insertions, 33 deletions

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index b765a6842c1..b4f5771bc5a 100644
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,19 @@
+Tue Jan 19 23:24:36 1999  Jeffrey A Law  (law@cygnus.com)
+
+	* Makefile.in (typeck.o): Depend on insn-codes.h.
+	* actions.c (chill_handle_multi_case_label): Initialize "expr".
+	* decl.c (poplevel): Initialize "block_previously_created".
+	* expr.c (chill_expand_expr): Initialize "size0" and "size1".
+	(fold_set_expr): Initialize "buffer1".
+	* inout.c (process_io_list): Initialize "to_assign".
+	(check_exprlist): Initialize "result".
+	* parse.c (expand_expr): Declare.
+	(parse_multi_dimension_case_action): Initialize "end_case_label".
+	* tasking.c (build_start_process): Initialize "struct_type_node".
+	* typeck.c (apply_chill_field_layout): Initialize "word".
+	(type_for_mode); Unconditionally cast RHS & LHS to ints to shut up	
+	signed/unsigned comparison warning.
+
 Mon Jan 18 11:55:06 1999  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* ch-tree.h: Remove conflicting prototypes for pedwarn,
diff --git a/gcc/ch/Makefile.in b/gcc/ch/Makefile.in
index 61474708860..0d9fd777bb6 100644
--- a/gcc/ch/Makefile.in
+++ b/gcc/ch/Makefile.in
@@ -312,8 +312,8 @@ tasking.o : tasking.c $(CONFIG_H) $(CHILL_TREE_H) $(RTL_H) \
 tree.o : tree.c $(CONFIG_H) $(CHILL_TREE_H) $(srcdir)/../system.h \
 	$(srcdir)/../toplev.h
 typeck.o : typeck.c $(CONFIG_H) $(CHILL_TREE_H) ../insn-codes.h \
-	$(srcdir)/../expr.h $(srcdir)/../flags.h lex.h $(srcdir)/../system.h \
-	$(srcdir)/../toplev.h
+	$(srcdir)/../expr.h ../insn-codes.h $(srcdir)/../flags.h lex.h \
+	$(srcdir)/../system.h $(srcdir)/../toplev.h
 ch-version.o : ch-version.c
 ch-version.c : Makefile
 	echo 'char *gnuchill_version = "$(GNUCHILL_VERSION)";' > $@
diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index 96727a5e570..132dbd0b7e8 100644
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -1,5 +1,5 @@
 /* Implement actions for CHILL.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc.
    Authors: Per Bothner, Bill Cox, Michael Tiemann, Michael North
 
 This file is part of GNU CC.
@@ -1227,7 +1227,7 @@ static tree
 chill_handle_multi_case_label (selector, label)
   tree selector, label;
 {
-  tree expr;
+  tree expr = NULL_TREE;
 
   if (label == NULL_TREE || TREE_CODE (label) == ERROR_MARK)
     return NULL_TREE;
diff --git a/gcc/ch/decl.c b/gcc/ch/decl.c
index b0aa4e86b6f..137b6057dd0 100644
--- a/gcc/ch/decl.c
+++ b/gcc/ch/decl.c
@@ -1,5 +1,5 @@
 /* Process declarations and variables for GNU CHILL compiler.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc. 
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc. 
    
    This file is part of GNU CC.
    
@@ -2940,7 +2940,7 @@ poplevel (keep, reverse, functionbody)
   tree subblocks;
   tree block = 0;
   tree decl;
-  int block_previously_created;
+  int block_previously_created = 0;
 
   if (current_scope == NULL)
     return error_mark_node;
diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c
index f6ccf1cd476..5e689a21c29 100644
--- a/gcc/ch/expr.c
+++ b/gcc/ch/expr.c
@@ -1,6 +1,6 @@
 /* Convert language-specific tree expression to rtl instructions,
    for GNU CHILL compiler.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -317,7 +317,7 @@ chill_expand_expr (exp, target, tmode, modifier)
       {
 	tree exp0 = TREE_OPERAND (exp, 0);
 	tree exp1 = TREE_OPERAND (exp, 1);
-	rtx size0, size1;
+	rtx size0 = NULL_RTX, size1 = NULL_RTX;
 	rtx targetx;
 
 	if (TREE_CODE (exp1) == UNDEFINED_EXPR)
@@ -3030,7 +3030,7 @@ fold_set_expr (code, op0, op1)
      tree op0, op1;
 {
   tree temp;
-  char *buffer0, *buffer1, *bufferr;
+  char *buffer0, *buffer1 = NULL, *bufferr;
   int i, size0, size1, first_unused_bit;
 
   if (! TREE_CONSTANT (op0) || TREE_CODE (op0) != CONSTRUCTOR)
diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c
index 4cd0827bac6..bac22b41250 100644
--- a/gcc/ch/inout.c
+++ b/gcc/ch/inout.c
@@ -1,5 +1,5 @@
 /* Implement I/O-related actions for CHILL.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc.
    
    This file is part of GNU CC.
    
@@ -3314,7 +3314,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
 	}
       else if (TREE_CODE (item_type) == BOOLEAN_TYPE)
 	{
-	  tree to_assign;
+	  tree to_assign = NULL_TREE;
 
 	  if (do_read && readonly)
 	    {
@@ -3834,7 +3834,7 @@ check_exprlist (code, exprlist, argnum, repetition)
      int argnum;
      unsigned long repetition;
 {
-  tree expr, type, result;
+  tree expr, type, result = NULL_TREE;
 
   while (repetition--)
     {
diff --git a/gcc/ch/parse.c b/gcc/ch/parse.c
index 2105e28621f..96026a105ba 100644
--- a/gcc/ch/parse.c
+++ b/gcc/ch/parse.c
@@ -1,5 +1,5 @@
 /* Parser for GNU CHILL (CCITT High-Level Language)  -*- C -*-
-   Copyright (C) 1992, 1993, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 1993, 1998, 1999 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -74,6 +74,11 @@ extern struct rtx_def* gen_label_rtx	      PROTO((void));
 extern void emit_jump                         PROTO((struct rtx_def *));
 extern struct rtx_def* emit_label             PROTO((struct rtx_def *));
 
+/* This is a hell of a lot easier than getting expr.h included in
+   by parse.c.  */
+extern struct rtx_def *expand_expr  	PROTO((tree, struct rtx_def *,
+					       enum machine_mode, int));
+
 static int parse_action				PROTO((void));
 
 extern int  lineno;
@@ -1671,7 +1676,7 @@ static void
 parse_multi_dimension_case_action (selector)
      tree selector;
 {
-  struct rtx_def *begin_test_label = 0, *end_case_label, *new_label;
+  struct rtx_def *begin_test_label = 0, *end_case_label = 0, *new_label;
   tree action_labels = NULL_TREE;
   tree tests = NULL_TREE;
   int  save_lineno = lineno;
diff --git a/gcc/ch/tasking.c b/gcc/ch/tasking.c
index f01f69499ba..8c3fabeffbc 100644
--- a/gcc/ch/tasking.c
+++ b/gcc/ch/tasking.c
@@ -1,5 +1,5 @@
 /* Implement tasking-related actions for CHILL.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -515,7 +515,7 @@ build_start_process (process_name, copynum,
 		     exprlist, optset)
      tree process_name, copynum, exprlist, optset;
 {
-  tree process_decl, struct_type_node;
+  tree process_decl = NULL_TREE, struct_type_node = NULL_TREE;
   tree result;
   tree valtail, typetail;
   tree tuple = NULL_TREE, actuallist = NULL_TREE;
diff --git a/gcc/ch/typeck.c b/gcc/ch/typeck.c
index d37391d075b..8985476a1e8 100644
--- a/gcc/ch/typeck.c
+++ b/gcc/ch/typeck.c
@@ -1,5 +1,5 @@
 /* Build expressions with type checking for CHILL compiler.
-   Copyright (C) 1992, 93, 1994, 1998 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 1994, 1998, 1999 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -3050,7 +3050,7 @@ apply_chill_field_layout (decl, next_struct_offset)
      int* next_struct_offset;
 {
   tree layout, type, temp, what;
-  int word, wordsize, start_bit, offset, length, natural_length;
+  int word = 0, wordsize, start_bit, offset, length, natural_length;
   int pos_error = 0;
   int is_discrete;
 
@@ -3860,51 +3860,51 @@ type_for_mode (mode, unsignedp)
      enum machine_mode mode;
      int unsignedp;
 {
-  if (mode == TYPE_MODE (integer_type_node))
+  if ((int)mode == (int)TYPE_MODE (integer_type_node))
     return unsignedp ? unsigned_type_node : integer_type_node;
 
-  if (mode == TYPE_MODE (signed_char_type_node))
+  if ((int)mode == (int)TYPE_MODE (signed_char_type_node))
     return unsignedp ? unsigned_char_type_node : signed_char_type_node;
 
-  if (mode == TYPE_MODE (short_integer_type_node))
+  if ((int)mode == (int)TYPE_MODE (short_integer_type_node))
     return unsignedp ? short_unsigned_type_node : short_integer_type_node;
 
-  if (mode == TYPE_MODE (long_integer_type_node))
+  if ((int)mode == (int)TYPE_MODE (long_integer_type_node))
     return unsignedp ? long_unsigned_type_node : long_integer_type_node;
 
-  if (mode == TYPE_MODE (long_long_integer_type_node))
+  if ((int)mode == (int)TYPE_MODE (long_long_integer_type_node))
     return unsignedp ? long_long_unsigned_type_node : long_long_integer_type_node;
 
-  if (mode == TYPE_MODE (intQI_type_node))
+  if ((int)mode == (int)TYPE_MODE (intQI_type_node))
     return unsignedp ? unsigned_intQI_type_node : intQI_type_node;
 
-  if (mode == TYPE_MODE (intHI_type_node))
+  if ((int)mode == (int)TYPE_MODE (intHI_type_node))
     return unsignedp ? unsigned_intHI_type_node : intHI_type_node;
 
-  if (mode == TYPE_MODE (intSI_type_node))
+  if ((int)mode == (int)TYPE_MODE (intSI_type_node))
     return unsignedp ? unsigned_intSI_type_node : intSI_type_node;
 
-  if (mode == TYPE_MODE (intDI_type_node))
+  if ((int)mode == (int)TYPE_MODE (intDI_type_node))
     return unsignedp ? unsigned_intDI_type_node : intDI_type_node;
 
 #if HOST_BITS_PER_WIDE_INT >= 64
-  if (mode == TYPE_MODE (intTI_type_node))
+  if ((int)mode == (int)TYPE_MODE (intTI_type_node))
     return unsignedp ? unsigned_intTI_type_node : intTI_type_node;
 #endif
 
-  if (mode == TYPE_MODE (float_type_node))
+  if ((int)mode == (int)TYPE_MODE (float_type_node))
     return float_type_node;
 
-  if (mode == TYPE_MODE (double_type_node))
+  if ((int)mode == (int)TYPE_MODE (double_type_node))
     return double_type_node;
 
-  if (mode == TYPE_MODE (long_double_type_node))
+  if ((int)mode == (int)TYPE_MODE (long_double_type_node))
     return long_double_type_node;
 
-  if (mode == TYPE_MODE (build_pointer_type (char_type_node)))
+  if ((int)mode == (int)TYPE_MODE (build_pointer_type (char_type_node)))
     return build_pointer_type (char_type_node);
 
-  if (mode == TYPE_MODE (build_pointer_type (integer_type_node)))
+  if ((int)mode == (int)TYPE_MODE (build_pointer_type (integer_type_node)))
     return build_pointer_type (integer_type_node);
 
   return 0;