diff options
| author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-10-15 07:04:49 +0000 |
|---|---|---|
| committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-10-15 07:04:49 +0000 |
| commit | 752f19324f2a53e6cb5de0a10627f6e879f12543 (patch) | |
| tree | 38b37e10ac3ee442c452c75d9c8ccb155ae5480e /gcc/ch | |
| parent | fa10a26da48b7fd5598dc7b9166799bf79ed5899 (diff) | |
| download | gcc-752f19324f2a53e6cb5de0a10627f6e879f12543.tar.gz | |
Warning fixes:
* expr.c (build_chill_card): Use &&, not &, when comparing truth
values.
* parse.c (parse_spec_module): Remove unused variable
`module_name', but preserve function call from initialization.
(parse_operand6): Mark variable `location' with ATTRIBUTE_UNUSED.
* inout.c (init_text_location): Remove unused variable `textlength'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@23106 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ch')
| -rw-r--r-- | gcc/ch/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ch/expr.c | 3 | ||||
| -rw-r--r-- | gcc/ch/inout.c | 1 | ||||
| -rw-r--r-- | gcc/ch/parse.c | 5 |
4 files changed, 16 insertions, 4 deletions
diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog index d5b9230e388..fe6b319236b 100644 --- a/gcc/ch/ChangeLog +++ b/gcc/ch/ChangeLog @@ -1,3 +1,14 @@ +Thu Oct 15 09:25:21 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * expr.c (build_chill_card): Use &&, not &, when comparing truth + values. + + * parse.c (parse_spec_module): Remove unused variable + `module_name', but preserve function call from initialization. + (parse_operand6): Mark variable `location' with ATTRIBUTE_UNUSED. + + * inout.c (init_text_location): Remove unused variable `textlength'. + Wed Oct 14 22:19:48 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> * typeck.c (build_chill_cast): Fix typo in assignment statement. diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c index acc1bc7ec04..0825ce6d595 100644 --- a/gcc/ch/expr.c +++ b/gcc/ch/expr.c @@ -1372,7 +1372,8 @@ build_chill_card (powerset) { int size; /* Do constant folding, if possible. */ - if (TREE_CODE (powerset) == CONSTRUCTOR & TREE_CONSTANT (powerset) + if (TREE_CODE (powerset) == CONSTRUCTOR + && TREE_CONSTANT (powerset) && (size = int_size_in_bytes (TREE_TYPE (powerset))) >= 0) { int bit_size = size * BITS_PER_UNIT; diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c index c9af8160bd6..c191c9160cb 100644 --- a/gcc/ch/inout.c +++ b/gcc/ch/inout.c @@ -2221,7 +2221,6 @@ void init_text_location (decl, type) tree type; { tree indexmode = text_indexmode (type); - tree textlength = text_length (type); unsigned long accessflags = 0; unsigned long textflags = IO_TEXTLOCATION; tree lowindex = integer_zero_node; diff --git a/gcc/ch/parse.c b/gcc/ch/parse.c index 7a9ae3dbfa9..bd9304cc6b5 100644 --- a/gcc/ch/parse.c +++ b/gcc/ch/parse.c @@ -544,8 +544,9 @@ static void parse_spec_module (label) tree label; { - tree module_name = push_module (set_module_name (label), 1); int save_ignoring = ignoring; + + push_module (set_module_name (label), 1); ignoring = pass == 2; FORWARD_TOKEN(); /* SKIP SPEC */ expect (MODULE, "expected 'MODULE' here"); @@ -3144,7 +3145,7 @@ parse_operand6 () { if (check_token (RECEIVE)) { - tree location = parse_primval (); + tree location ATTRIBUTE_UNUSED = parse_primval (); sorry ("RECEIVE expression"); return integer_one_node; } |