From f6d8f1a0df91cb7438b50e59fac132e55a0e9a2a Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 22 Jan 2017 13:54:02 +0000 Subject: [PATCH] lhelp: fixed compilation on fpc 2.6.4 git-svn-id: trunk@53979 - --- components/chmhelp/lhelp/lhelpcore.pas | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/components/chmhelp/lhelp/lhelpcore.pas b/components/chmhelp/lhelp/lhelpcore.pas index c0040becb3..34b609cac8 100644 --- a/components/chmhelp/lhelp/lhelpcore.pas +++ b/components/chmhelp/lhelp/lhelpcore.pas @@ -816,11 +816,7 @@ begin fOutputIPC := TSimpleIPCClient.Create(nil); fOutputIPC.ServerID := ServerName+'client'; try - if fOutputIPC.ServerRunning -{$IFDEF STALE_PIPE_WORKAROUND} - and not IPCPipeIsStale(fOutputIPC) -{$ENDIF} - then + if fOutputIPC.ServerRunning then fOutputIPC.Active := True; except fOutputIPC.Active := False;