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

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index d5b9230e388f7a9e2a2b54a0a55c7a92f873e953..fe6b319236b52fd97da310871ef5f31958f800a4 100644 (file)
--- 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 acc1bc7ec04398106b933f674b0c2cf0b60ca434..0825ce6d59573d64566703692bccc6c08b13a4de 100644 (file)
--- 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 c9af8160bd60a01ee5b5c840042b501180001395..c191c9160cb1760f8fa4d5c11bc35a5337efaa6b 100644 (file)
--- 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 7a9ae3dbfa92f75de116e553aa7d9784de2a0154..bd9304cc6b5aae8bf6a6c1070cfaa3dcf7f835d3 100644 (file)
--- 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;
     }