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
This commit is contained in:
Kaveh R. Ghazi 1998-10-15 07:04:49 +00:00 committed by Kaveh Ghazi
parent 5557c30d8b
commit 12fe4621bf
4 changed files with 16 additions and 4 deletions

View File

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

View File

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

View File

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

View File

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