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

lhelp: fixed crash when ServerID not set, bug #28560, patch from Stephano

Browse Source 
git-svn-id: trunk@49701 -
This commit is contained in:
mattias 2015-08-23 08:15:06 +00:00
parent 6f9a817ae1
commit ff7a247093
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chmhelp/packages/help/lhelpcontrol.pas
View File

@ -193,7 +193,7 @@ function TLHelpConnection.ServerRunning: Boolean;
{$IFDEF STALE_PIPE_WORKAROUND}
{$ENDIF}
begin
Result := (fServerOut<>nil) and (fServerOut.ServerRunning);
Result := (fServerOut<>nil) and (fServerOut.ServerID <> '') and (fServerOut.ServerRunning);
{$IFDEF STALE_PIPE_WORKAROUND}
if not Result then
Exit; // ==>