typeck.c (build_chill_cast): Fix typo in assignment statement.

        * typeck.c (build_chill_cast): Fix typo in assignment statement.
        * tasking.c (build_signal_descriptor): Use IDENTIFIER_POINTER()
        when printing a `tree'.

From-SVN: r23091

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index 045fa2a5333706d2e83128e8d83c39339b85daaf..d5b9230e388f7a9e2a2b54a0a55c7a92f873e953 100644 (file)
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,10 @@
+Wed Oct 14 22:19:48 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * typeck.c (build_chill_cast): Fix typo in assignment statement.
+
+       * tasking.c (build_signal_descriptor): Use IDENTIFIER_POINTER()
+       when printing a `tree'.
+
 Fri Oct  9 13:01:23 1998  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * ch-tree.h (build_delay_case_end): Remove unused parameter.

diff --git a/gcc/ch/tasking.c b/gcc/ch/tasking.c
index c07d325c094df095fce64b966c08f33caabb0b01..b3a1d2d31b8d9751143abc3f10de26fc26ad60f6 100644 (file)
--- a/gcc/ch/tasking.c
+++ b/gcc/ch/tasking.c
@@ -1272,7 +1272,7 @@ build_signal_descriptor (sigdef, exprlist)
       || ! CH_DECL_SIGNAL (sigdef))
     {
       error ("SEND requires a SIGNAL; %s is not a SIGNAL name", 
-            signame);
+            IDENTIFIER_POINTER (signame));
       return error_mark_node;
     }
   if (CH_TYPE_NONVALUE_P (TREE_TYPE (sigdef)))

diff --git a/gcc/ch/typeck.c b/gcc/ch/typeck.c
index 1132babc896cfaccb68dcdecec7f0d4df5137d8c..102a30db8eda5df640f4677ba6341cfc7a06baa1 100644 (file)
--- a/gcc/ch/typeck.c
+++ b/gcc/ch/typeck.c
@@ -1211,7 +1211,7 @@ build_chill_cast (type, expr)
                 build1 (NOP_EXPR, build_pointer_type (type),
                         build1 (ADDR_EXPR, build_pointer_type (expr_type),
                                 expr)));
-  TREE_READONLY (expr) == TYPE_READONLY (type);
+  TREE_READONLY (expr) = TYPE_READONLY (type);
   return expr;
 }
 \f