mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 12:12:47 +02:00
fixed compilation of revision 9571 #b6808d3c83
git-svn-id: trunk@9572 -
This commit is contained in:
parent
b6808d3c83
commit
b39cf0f1e7
@ -1822,7 +1822,7 @@ end;
|
||||
|
||||
function TDebugManager.RunDebugger: TModalResult;
|
||||
begin
|
||||
DebugLn('TDebugManager.RunDebugger A ',FDebugger<>nil,' Destroying=',Destroying);
|
||||
DebugLn('TDebugManager.RunDebugger A ',DbgS(FDebugger<>nil),' Destroying=',DbgS(Destroying));
|
||||
Result:=mrCancel;
|
||||
if Destroying then exit;
|
||||
if (FDebugger <> nil) then begin
|
||||
|
Loading…
Reference in New Issue
Block a user