Commit 12fe4621 by Kaveh R. Ghazi Committed by Kaveh Ghazi

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
parent 5557c30d
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> Wed Oct 14 22:19:48 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* typeck.c (build_chill_cast): Fix typo in assignment statement. * typeck.c (build_chill_cast): Fix typo in assignment statement.
......
...@@ -1372,7 +1372,8 @@ build_chill_card (powerset) ...@@ -1372,7 +1372,8 @@ build_chill_card (powerset)
{ int size; { int size;
/* Do constant folding, if possible. */ /* 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) && (size = int_size_in_bytes (TREE_TYPE (powerset))) >= 0)
{ {
int bit_size = size * BITS_PER_UNIT; int bit_size = size * BITS_PER_UNIT;
......
...@@ -2221,7 +2221,6 @@ void init_text_location (decl, type) ...@@ -2221,7 +2221,6 @@ void init_text_location (decl, type)
tree type; tree type;
{ {
tree indexmode = text_indexmode (type); tree indexmode = text_indexmode (type);
tree textlength = text_length (type);
unsigned long accessflags = 0; unsigned long accessflags = 0;
unsigned long textflags = IO_TEXTLOCATION; unsigned long textflags = IO_TEXTLOCATION;
tree lowindex = integer_zero_node; tree lowindex = integer_zero_node;
......
...@@ -544,8 +544,9 @@ static void ...@@ -544,8 +544,9 @@ static void
parse_spec_module (label) parse_spec_module (label)
tree label; tree label;
{ {
tree module_name = push_module (set_module_name (label), 1);
int save_ignoring = ignoring; int save_ignoring = ignoring;
push_module (set_module_name (label), 1);
ignoring = pass == 2; ignoring = pass == 2;
FORWARD_TOKEN(); /* SKIP SPEC */ FORWARD_TOKEN(); /* SKIP SPEC */
expect (MODULE, "expected 'MODULE' here"); expect (MODULE, "expected 'MODULE' here");
...@@ -3144,7 +3145,7 @@ parse_operand6 () ...@@ -3144,7 +3145,7 @@ parse_operand6 ()
{ {
if (check_token (RECEIVE)) if (check_token (RECEIVE))
{ {
tree location = parse_primval (); tree location ATTRIBUTE_UNUSED = parse_primval ();
sorry ("RECEIVE expression"); sorry ("RECEIVE expression");
return integer_one_node; return integer_one_node;
} }
......
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