From b3063b7db24f91e632bd78819bfd1252d9c58219 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 6 Jul 2016 06:14:37 +0000
Subject: [PATCH]  Reset class fields FList and FHashList to nil after Destroy
 call

git-svn-id: trunk@34078 -
---
 compiler/cclasses.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas
index cd843298b0..cc3ac9622c 100644
--- a/compiler/cclasses.pas
+++ b/compiler/cclasses.pas
@@ -619,7 +619,7 @@ implementation
                 move (b^, s[1],l*SizeOf(char));
               l:=length(Strings);
               setlength(Strings,l+1);
-              Strings[l]:=S;  
+              Strings[l]:=S;
               inc (result);
             end;
         end;
@@ -1027,6 +1027,7 @@ begin
   begin
     Clear;
     FList.Destroy;
+    FList:=nil;
   end;
   inherited Destroy;
 end;
@@ -1842,6 +1843,7 @@ begin
     begin
       Clear;
       FHashList.Destroy;
+      FHashList:=nil;
     end;
   inherited Destroy;
 end;