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

fixed compilation of revision 9571 #b6808d3c83

Browse Source 
git-svn-id: trunk@9572 -
This commit is contained in:
vincents 2006-07-06 19:42:19 +00:00
parent b6808d3c83
commit b39cf0f1e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/debugmanager.pas
View File

@ -1822,7 +1822,7 @@ end;
function TDebugManager.RunDebugger: TModalResult; function TDebugManager.RunDebugger: TModalResult;
begin begin
DebugLn('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying); DebugLn('TDebugManager.RunDebugger A ',DbgS(FDebugger<>nil),' Destroying=',DbgS(Destroying));
Result:=mrCancel; Result:=mrCancel;
if Destroying then exit; if Destroying then exit;
if (FDebugger <> nil) then begin if (FDebugger <> nil) then begin