From 5df6052ced0501c93c862fa1e673189c0613ff7f Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sun, 1 Oct 2006 15:33:15 +0000
Subject: [PATCH] * Fixed debug compilation

git-svn-id: trunk@10018 -
---
 components/codetools/codetoolmanager.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 9187a83e7b..3c74af91a9 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -33,7 +33,7 @@ interface
 
 {$I codetools.inc}
 
-{ $DEFINE CTDEBUG}
+{.$DEFINE CTDEBUG}
 { $DEFINE DoNotHandleFindDeclException}
 
 uses
@@ -2293,7 +2293,7 @@ var
 begin
   Result:=false;
   {$IFDEF CTDEBUG}
-  DebugLn('TCodeToolManager.FixIncludeFilenames A ',Code.Filename,' Recursive=',Recursive);
+  DebugLn('TCodeToolManager.FixIncludeFilenames A ',Code.Filename,' Recursive=', DbgS(Recursive));
   {$ENDIF}
   MissingIncludeFilesCodeXYPos:=nil;
   if not InitCurCodeTool(Code) then exit;
@@ -3081,7 +3081,7 @@ function TCodeToolManager.FindUnitCaseInsensitive(Code: TCodeBuffer;
 begin
   Result:='';
   {$IFDEF CTDEBUG}
-  DebugLn('TCodeToolManager.FindUnitCaseInsensitive A ',Code.Filename,' TheUnitName="',TheUnitName,'"');
+  DebugLn('TCodeToolManager.FindUnitCaseInsensitive A ',Code.Filename,' AnUnitName="',AnUnitName,'"',' AnUnitInFilename="',AnUnitInFilename,'"');
   {$ENDIF}
   if not InitCurCodeTool(Code) then exit;
   try
@@ -3096,7 +3096,7 @@ function TCodeToolManager.FindUnitSource(Code: TCodeBuffer; const AnUnitName,
 begin
   Result:=nil;
   {$IFDEF CTDEBUG}
-  DebugLn('TCodeToolManager.FindUnit A ',Code.Filename,' TheUnitName="',TheUnitName,'"');
+  DebugLn('TCodeToolManager.FindUnit A ',Code.Filename,' AnUnitName="',AnUnitName,'" AnUnitInFilename="',AnUnitInFilename,'"');
   {$ENDIF}
   if not InitCurCodeTool(Code) then exit;
   try