(readonly_warning): Warn about assignment to iterator.

From-SVN: r3578

(readonly_warning): Warn about assignment to iterator.
From-SVN: r3578
3791970d · Richard Stallman · f10fec92 · 3791970d
Commit 3791970d authored Mar 02, 1993 by Richard Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

gcc/c-typeck.c
+8 -0

No files found.
--- 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))))