From cbcf2a2d330ef1ed6179296b7578bba63f80e735 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 12 Nov 2010 15:28:44 +0000
Subject: [PATCH] codetools: added flag DisableCTNodeExtMemManager

git-svn-id: trunk@28189 -
---
 components/codetools/codetree.pas      | 6 ++++++
 components/codetools/sourcechanger.pas | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/components/codetools/codetree.pas b/components/codetools/codetree.pas
index e2aa2cbdf6..5230bd16f1 100644
--- a/components/codetools/codetree.pas
+++ b/components/codetools/codetree.pas
@@ -36,6 +36,8 @@ interface
 
 {$I codetools.inc}
 
+{off $DEFINE DisableCTNodeExtMemManager}
+
 uses
   {$IFDEF MEM_CHECK}
   MemCheck,
@@ -1076,6 +1078,7 @@ end;
 
 procedure TCodeTreeNodeExtMemManager.DisposeNode(ANode: TCodeTreeNodeExtension);
 begin
+  {$IFNDEF DisableCTNodeExtMemManager}
   if (FFreeCount<FMinFree) or (FFreeCount<((FCount shr 3)*FMaxFreeRatio)) then
   begin
     // add ANode to Free list
@@ -1084,9 +1087,12 @@ begin
     TCodeTreeNodeExtension(FFirstFree):=ANode;
     inc(FFreeCount);
   end else begin
+  {$ENDIF}
     // free list full -> free the ANode
     ANode.Free;
+  {$IFNDEF DisableCTNodeExtMemManager}
   end;
+  {$ENDIF}
   dec(FCount);
 end;
 
diff --git a/components/codetools/sourcechanger.pas b/components/codetools/sourcechanger.pas
index aa27adb0c5..f9fd273bd6 100644
--- a/components/codetools/sourcechanger.pas
+++ b/components/codetools/sourcechanger.pas
@@ -1525,7 +1525,7 @@ begin
     if IsIdentChar[AProcCode[NamePos]] then
       s:=s+' ';
     Result:=copy(AProcCode,1,NamePos-1)+s
-           +copy(AProcCode,NamePos,length(AProcCode)-NamePos+1)
+           +copy(AProcCode,NamePos,length(AProcCode)-NamePos+1);
   end else begin
     // there is already a name
     if AClassName<>'' then begin