diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-05-28 06:34:32 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-05-28 06:34:32 +0000 |
| commit | e665efb8ed583e9c59fa2f9d916e021da24f4a52 (patch) | |
| tree | 0159a7f73a70da148d927b68e17135d1c424ab02 /packages/fcl-process | |
| parent | 788e929e8e0e6625b5d38d86a13368c95326a5e6 (diff) | |
| download | fpc-e665efb8ed583e9c59fa2f9d916e021da24f4a52.tar.gz | |
* makefiles regenerated with newer fpcmake
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11107 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/Makefile | 2 | ||||
| -rw-r--r-- | packages/fcl-process/src/os2/simpleipc.inc | 11 |
2 files changed, 8 insertions, 5 deletions
diff --git a/packages/fcl-process/Makefile b/packages/fcl-process/Makefile index 3c863da03d..8edb2c5951 100644 --- a/packages/fcl-process/Makefile +++ b/packages/fcl-process/Makefile @@ -1,5 +1,5 @@ # -# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/24] +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/28] # default: all MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded diff --git a/packages/fcl-process/src/os2/simpleipc.inc b/packages/fcl-process/src/os2/simpleipc.inc index f4f58cfe9d..fc7d857ad8 100644 --- a/packages/fcl-process/src/os2/simpleipc.inc +++ b/packages/fcl-process/src/os2/simpleipc.inc @@ -57,9 +57,11 @@ end; procedure TPipeClientComm.Connect; begin - If Not ServerRunning then + try + FStream := TFileStream.Create (FFileName, fmOpenWrite); + finally Owner.DoError (SErrServerNotActive, [Owner.ServerID]); - FStream := TFileStream.Create (FFileName, fmOpenWrite); + end; end; @@ -83,7 +85,8 @@ end; function TPipeClientComm.ServerRunning: boolean; begin - Result := FileExists (FFileName); +{$WARNING Fake TPipeClientComm.ServerRunning - no safe solution known} + Result := true; end; @@ -124,7 +127,7 @@ procedure TPipeServerComm.StartServer; var H: THandle; begin - if not FileExists (FFileName) then + if not (Assigned (FStream)) then if (DosCreateNPipe (PChar (FFileName), H, np_Access_Inbound, np_ReadMode_Message or np_WriteMode_Message or 1, PipeBufSize, PipeBufSize, 0) <> 0) or |