paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 20:38:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix compile with -d IDE_DEBUG

Browse Source 
git-svn-id: trunk@30530 -
This commit is contained in:
martin 2011-05-02 17:36:32 +00:00
parent aaff414d3e
commit 4e9ac4764e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -8923,7 +8923,7 @@ var
SrcEdit: TSourceEditor; SrcEdit: TSourceEditor;
begin begin
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(AnUnitInfo.PageIndex)); //debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(AnUnitInfo.PageIndex));
{$ENDIF} {$ENDIF}
Result:=mrCancel; Result:=mrCancel;
if AEditor = nil then exit; if AEditor = nil then exit;
@ -17437,7 +17437,7 @@ begin
OverrideMethodName); OverrideMethodName);
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
debugln(''); debugln('');
debugln('[TMainIDE.OnPropHookCreateMethod] ************2 ',r,' ',AMethodName); debugln('[TMainIDE.OnPropHookCreateMethod] ************2 ',dbgs(r),' ',AMethodName);
{$ENDIF} {$ENDIF}
ApplyCodeToolChanges; ApplyCodeToolChanges;
if r then begin if r then begin