MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
* 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
This commit is contained in:
Jeffrey A Law 1999-01-19 22:32:39 +00:00 committed by Jeff Law
parent 6fbe9bd840
commit ed730bcf61
9 changed files with 54 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/ch/ChangeLog
View File

@ -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,

4
gcc/ch/Makefile.in
View File

@ -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)";' > $@

4
gcc/ch/actions.c
View File

@ -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;

4
gcc/ch/decl.c
View File

@ -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;

6
gcc/ch/expr.c
View File

@ -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)

6
gcc/ch/inout.c
View File

@ -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--)
{

9
gcc/ch/parse.c
View File

@ -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;

4
gcc/ch/tasking.c
View File

@ -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;

34
gcc/ch/typeck.c
View File

@ -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;