paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* If InitDebugClient fails, do not try to write a debug-message

Browse Source 
git-svn-id: trunk@11843 -
This commit is contained in:
joost 2008-09-30 13:20:42 +00:00
parent 340844b9e0
commit b7f07f8144
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/dbugintf.pp
View File

@ -86,7 +86,7 @@ begin
if DebugDisabled then exit; if DebugDisabled then exit;
try try
If (DebugClient=Nil) then If (DebugClient=Nil) then
InitDebugClient; if InitDebugClient = false then exit;
if (Indent>0) then if (Indent>0) then
Msg.Msg:=StringOfChar(' ',Indent)+Msg.Msg; Msg.Msg:=StringOfChar(' ',Indent)+Msg.Msg;
WriteMessage(Msg); WriteMessage(Msg);