fixed compilation of revision 9571 #b6808d3c83

git-svn-id: trunk@9572 -
This commit is contained in:
vincents 2006-07-06 19:42:19 +00:00
parent b6808d3c83
commit b39cf0f1e7

View File

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