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

        * 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.

From-SVN: r24775

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index b765a6842c18e9b7c728dc02773f51605074dadd..b4f5771bc5ad785f792e556d74497ac1938e180c 100644 (file)
--- 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 6147470886038607a3b6f4bb9680e882c7d9ca1d..0d9fd777bb6c6987068d860d9a805ff85b57f2ba 100644 (file)
--- 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 96727a5e5709b301e8917602027148e6944c590a..132dbd0b7e82e34c78c491bb56e048a7f7b1be75 100644 (file)
--- 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 b0aa4e86b6f3ead57a9b5915439d3b3b22c3a4c0..137b6057dd0bcf9a71fbbd04f7ad7123d8d8e3b9 100644 (file)
--- 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 f6ccf1cd476d3aef337f246afe73710d2ee0528e..5e689a21c291c216c2011a1d35975338a337975f 100644 (file)
--- 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 4cd0827bac67820b6f7101345bc31f5d68d925d0..bac22b412508ef326ddb5e8c9ea2b670a2d351c9 100644 (file)
--- 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 2105e28621f771de99737aa2ae71c0468b73b213..96026a105bac0c7c20c191bac8c69637e68bc2b6 100644 (file)
--- 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 f01f69499ba0a46b33d29aa1b17fbdd605059f05..8c3fabeffbc98ad8f5884038371bb04cc2e5841a 100644 (file)
--- 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 d37391d075b1b1cc9e0e26fd917da916ff26e66f..8985476a1e8e12efa2e91e90c487bb7137f3b589 100644 (file)
--- 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;