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

lhelp: fixed compilation on fpc 2.6.4

Browse Source 
git-svn-id: trunk@53979 -
This commit is contained in:
mattias 2017-01-22 13:54:02 +00:00
parent 87c8c7df49
commit f6d8f1a0df
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/chmhelp/lhelp/lhelpcore.pas
View File

@ -816,11 +816,7 @@ begin
fOutputIPC := TSimpleIPCClient.Create(nil); fOutputIPC := TSimpleIPCClient.Create(nil);
fOutputIPC.ServerID := ServerName+'client'; fOutputIPC.ServerID := ServerName+'client';
try try
if fOutputIPC.ServerRunning if fOutputIPC.ServerRunning then
{$IFDEF STALE_PIPE_WORKAROUND}
and not IPCPipeIsStale(fOutputIPC)
{$ENDIF}
then
fOutputIPC.Active := True; fOutputIPC.Active := True;
except except
fOutputIPC.Active := False; fOutputIPC.Active := False;