From d707d38ea18b06f0b9711d8848edfcb07ededbd6 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 29 Jun 2011 09:52:03 +0000
Subject: [PATCH]  * Fix double WARN infinite loop

git-svn-id: trunk@17864 -
---
 compiler/switches.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/switches.pas b/compiler/switches.pas
index 685d3ef04b..5dc58c8ce2 100644
--- a/compiler/switches.pas
+++ b/compiler/switches.pas
@@ -346,8 +346,10 @@ procedure flushpendingswitchesstate;
           begin
             pstate^.next:=current_settings.pmessage;
             current_settings.pmessage:=fstate;
-          end;
-        pstate:=pstate^.next;
+            pstate:=nil;
+          end
+        else
+          pstate:=pstate^.next;
         pendingstate.nextmessagerecord:=nil;
       end;
     { process pending calling convention changes (calling x) }