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> Mon Jan 18 11:55:06 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* ch-tree.h: Remove conflicting prototypes for pedwarn, * 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) \ ...@@ -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 \ tree.o : tree.c $(CONFIG_H) $(CHILL_TREE_H) $(srcdir)/../system.h \
$(srcdir)/../toplev.h $(srcdir)/../toplev.h
typeck.o : typeck.c $(CONFIG_H) $(CHILL_TREE_H) ../insn-codes.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)/../expr.h ../insn-codes.h $(srcdir)/../flags.h lex.h \
$(srcdir)/../toplev.h $(srcdir)/../system.h $(srcdir)/../toplev.h
ch-version.o : ch-version.c ch-version.o : ch-version.c
ch-version.c : Makefile ch-version.c : Makefile
echo 'char *gnuchill_version = "$(GNUCHILL_VERSION)";' > $@ echo 'char *gnuchill_version = "$(GNUCHILL_VERSION)";' > $@
......
gcc/ch/actions.c
/* Implement actions for CHILL. /* 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 Authors: Per Bothner, Bill Cox, Michael Tiemann, Michael North
This file is part of GNU CC. This file is part of GNU CC.
...@@ -1227,7 +1227,7 @@ static tree ...@@ -1227,7 +1227,7 @@ static tree
chill_handle_multi_case_label (selector, label) chill_handle_multi_case_label (selector, label)
tree selector, label; tree selector, label;
{ {
tree expr; tree expr = NULL_TREE;
if (label == NULL_TREE || TREE_CODE (label) == ERROR_MARK) if (label == NULL_TREE || TREE_CODE (label) == ERROR_MARK)
return NULL_TREE; return NULL_TREE;
......
gcc/ch/decl.c
/* Process declarations and variables for GNU CHILL compiler. /* 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. This file is part of GNU CC.
...@@ -2940,7 +2940,7 @@ poplevel (keep, reverse, functionbody) ...@@ -2940,7 +2940,7 @@ poplevel (keep, reverse, functionbody)
tree subblocks; tree subblocks;
tree block = 0; tree block = 0;
tree decl; tree decl;
int block_previously_created; int block_previously_created = 0;
if (current_scope == NULL) if (current_scope == NULL)
return error_mark_node; return error_mark_node;
......
gcc/ch/expr.c
/* Convert language-specific tree expression to rtl instructions, /* Convert language-specific tree expression to rtl instructions,
for GNU CHILL compiler. 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. This file is part of GNU CC.
...@@ -317,7 +317,7 @@ chill_expand_expr (exp, target, tmode, modifier) ...@@ -317,7 +317,7 @@ chill_expand_expr (exp, target, tmode, modifier)
{ {
tree exp0 = TREE_OPERAND (exp, 0); tree exp0 = TREE_OPERAND (exp, 0);
tree exp1 = TREE_OPERAND (exp, 1); tree exp1 = TREE_OPERAND (exp, 1);
rtx size0, size1; rtx size0 = NULL_RTX, size1 = NULL_RTX;
rtx targetx; rtx targetx;
if (TREE_CODE (exp1) == UNDEFINED_EXPR) if (TREE_CODE (exp1) == UNDEFINED_EXPR)
...@@ -3030,7 +3030,7 @@ fold_set_expr (code, op0, op1) ...@@ -3030,7 +3030,7 @@ fold_set_expr (code, op0, op1)
tree op0, op1; tree op0, op1;
{ {
tree temp; tree temp;
char *buffer0, *buffer1, *bufferr; char *buffer0, *buffer1 = NULL, *bufferr;
int i, size0, size1, first_unused_bit; int i, size0, size1, first_unused_bit;
if (! TREE_CONSTANT (op0) || TREE_CODE (op0) != CONSTRUCTOR) if (! TREE_CONSTANT (op0) || TREE_CODE (op0) != CONSTRUCTOR)
......
gcc/ch/inout.c
/* Implement I/O-related actions for CHILL. /* 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. This file is part of GNU CC.
...@@ -3314,7 +3314,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read, ...@@ -3314,7 +3314,7 @@ process_io_list (exprlist, iolist_addr, iolist_length, iolist_rtx, do_read,
} }
else if (TREE_CODE (item_type) == BOOLEAN_TYPE) else if (TREE_CODE (item_type) == BOOLEAN_TYPE)
{ {
tree to_assign; tree to_assign = NULL_TREE;
if (do_read && readonly) if (do_read && readonly)
{ {
...@@ -3834,7 +3834,7 @@ check_exprlist (code, exprlist, argnum, repetition) ...@@ -3834,7 +3834,7 @@ check_exprlist (code, exprlist, argnum, repetition)
int argnum; int argnum;
unsigned long repetition; unsigned long repetition;
{ {
tree expr, type, result; tree expr, type, result = NULL_TREE;
while (repetition--) while (repetition--)
{ {
......
gcc/ch/parse.c
/* Parser for GNU CHILL (CCITT High-Level Language) -*- 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. This file is part of GNU CC.
...@@ -74,6 +74,11 @@ extern struct rtx_def* gen_label_rtx PROTO((void)); ...@@ -74,6 +74,11 @@ extern struct rtx_def* gen_label_rtx PROTO((void));
extern void emit_jump PROTO((struct rtx_def *)); extern void emit_jump PROTO((struct rtx_def *));
extern struct rtx_def* emit_label 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)); static int parse_action PROTO((void));
extern int lineno; extern int lineno;
...@@ -1671,7 +1676,7 @@ static void ...@@ -1671,7 +1676,7 @@ static void
parse_multi_dimension_case_action (selector) parse_multi_dimension_case_action (selector)
tree 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 action_labels = NULL_TREE;
tree tests = NULL_TREE; tree tests = NULL_TREE;
int save_lineno = lineno; int save_lineno = lineno;
......
gcc/ch/tasking.c
/* Implement tasking-related actions for CHILL. /* 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. This file is part of GNU CC.
...@@ -515,7 +515,7 @@ build_start_process (process_name, copynum, ...@@ -515,7 +515,7 @@ build_start_process (process_name, copynum,
exprlist, optset) exprlist, optset)
tree 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 result;
tree valtail, typetail; tree valtail, typetail;
tree tuple = NULL_TREE, actuallist = NULL_TREE; tree tuple = NULL_TREE, actuallist = NULL_TREE;
......
gcc/ch/typeck.c
/* Build expressions with type checking for CHILL compiler. /* 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. This file is part of GNU CC.
...@@ -3050,7 +3050,7 @@ apply_chill_field_layout (decl, next_struct_offset) ...@@ -3050,7 +3050,7 @@ apply_chill_field_layout (decl, next_struct_offset)
int* next_struct_offset; int* next_struct_offset;
{ {
tree layout, type, temp, what; 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 pos_error = 0;
int is_discrete; int is_discrete;
...@@ -3860,51 +3860,51 @@ type_for_mode (mode, unsignedp) ...@@ -3860,51 +3860,51 @@ type_for_mode (mode, unsignedp)
enum machine_mode mode; enum machine_mode mode;
int unsignedp; 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; 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; 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; 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; 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; 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; 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; 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; 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; return unsignedp ? unsigned_intDI_type_node : intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64 #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; return unsignedp ? unsigned_intTI_type_node : intTI_type_node;
#endif #endif
if (mode == TYPE_MODE (float_type_node)) if ((int)mode == (int)TYPE_MODE (float_type_node))
return 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; 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; 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); 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 build_pointer_type (integer_type_node);
return 0; 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