Skip to content

R
riscv-gcc-1
Commit ed730bcf by Jeffrey A Law Committed by Jeff Law
Options

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
parent 6fbe9bd8
Showing with 54 additions and 33 deletions
gcc/ch/ChangeLog
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,
......
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)";' > $@
......
gcc/ch/actions.c
/* 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;
......
gcc/ch/decl.c
/* 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;
......
gcc/ch/expr.c
/* 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)
......
gcc/ch/inout.c
/* 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--)
{
......
gcc/ch/parse.c
/* 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;
......
gcc/ch/tasking.c
/* 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;
......
gcc/ch/typeck.c
/* 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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment