From ea97d80f56e17a4d8be2aef8a438974e3d0e1ec6 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 1 May 2009 14:02:56 +0000
Subject: [PATCH] codetools: TSourceLog.destroy without calling hooks

git-svn-id: trunk@19735 -
---
 components/codetools/sourcelog.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index 7c4215d9fc..6f53a78fa3 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -274,11 +274,11 @@ end;
 
 destructor TSourceLog.Destroy;
 begin
-  Clear;
   if FChangeHooks<>nil then begin
     FreeMem(FChangeHooks);
     FChangeHooks:=nil;
   end;
+  Clear;
   FMarkers.Free;
   FLog.Free;
   inherited Destroy;