paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 21:30:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed debug compilation

Browse Source 
git-svn-id: trunk@10018 -
This commit is contained in:
marc 2006-10-01 15:33:15 +00:00
parent 91c22a9c09
commit 5df6052ced
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/codetoolmanager.pas
View File

@ -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