From 2df5878ee45b41b6dcadf2b2dcfc720d19f9d0ed Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 6 May 2008 13:36:18 +0000
Subject: [PATCH]   * deref childs of loopnodes (needed to fix mantis #11182 on
 2.2.1;     that one doesn't crash 2.3.1, but this bug could still crash 2.3.1
     in other cases)

git-svn-id: trunk@10893 -
---
 compiler/nflw.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 41bd072b05..d174e76ed4 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -63,6 +63,7 @@ interface
           function dogetcopy : tnode;override;
           constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
+          procedure derefnode;override;
           procedure buildderefimpl;override;
           procedure derefimpl;override;
           procedure insertintolist(l : tnodelist);override;
@@ -266,6 +267,15 @@ implementation
       end;
 
 
+    procedure tloopnode.derefnode;
+      begin
+        inherited derefnode;
+        if assigned(t1) then
+          t1.derefnode;
+        if assigned(t2) then
+          t2.derefnode;
+      end;
+
     procedure tloopnode.buildderefimpl;
       begin
         inherited buildderefimpl;