(readonly_warning): Warn about assignment to iterator.

From-SVN: r3578

diff --git a/gcc/c-typeck.c b/gcc/c-typeck.c
index 38973506b0210f73c542165aff0df227e1bf0ccd..68c6679cd80763f11a3610e43c09678dcac9f474 100644 (file)
--- a/gcc/c-typeck.c
+++ b/gcc/c-typeck.c
@@ -3356,6 +3356,14 @@ readonly_warning (arg, string)
   char buf[80];
   strcpy (buf, string);
 
+  /* Forbid assignments to iterators.  */
+  if (TREE_CODE (TREE_OPERAND (arg, 0)) == VAR_DECL
+      && ITERATOR_P (TREE_OPERAND (arg, 0)))
+    {
+      strcat (buf, " of iterator `%s'");
+      pedwarn (buf, IDENTIFIER_POINTER (DECL_NAME (TREE_OPERAND (arg, 1))));
+    }
+
   if (TREE_CODE (arg) == COMPONENT_REF)
     {
       if (TYPE_READONLY (TREE_TYPE (TREE_OPERAND (arg, 0))))