From 3791970daf55a3bedd1d83e46bdf798f44b4b6a9 Mon Sep 17 00:00:00 2001
From: Richard Stallman <rms@gnu.org>
Date: Tue, 2 Mar 1993 02:03:36 +0000
Subject: [PATCH] (readonly_warning): Warn about assignment to iterator.

From-SVN: r3578
---
 gcc/c-typeck.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gcc/c-typeck.c b/gcc/c-typeck.c
index 38973506b02..68c6679cd80 100644
--- 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))))
-- 
2.30.2