diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 1998-10-15 07:04:49 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 1998-10-15 07:04:49 +0000 |
| commit | 12fe4621bfe1266d2c374c053aa031a435b8661f (patch) | |
| tree | 38b37e10ac3ee442c452c75d9c8ccb155ae5480e | |
| parent | 5557c30d8ba57cb8eb2b64c34a3962246bde2db6 (diff) | |
| download | gcc-12fe4621bfe1266d2c374c053aa031a435b8661f.zip gcc-12fe4621bfe1266d2c374c053aa031a435b8661f.tar.gz gcc-12fe4621bfe1266d2c374c053aa031a435b8661f.tar.bz2 | |
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'.
From-SVN: r23106
| -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 d5b9230..fe6b319 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 acc1bc7..0825ce6 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 c9af816..c191c91 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 7a9ae3d..bd9304c 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; } |