diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-11-04 21:51:36 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-11-04 21:51:36 +0000 |
| commit | 40eefdbd5aaef728abcec85cba78c8d91b032d69 (patch) | |
| tree | 65c4a0c2c4005e847b8fb6ea32d3e8148432112b /packages/fcl-process/src | |
| parent | 29e0ef945d09f40bb5803cf00f9b6b2f0923eca0 (diff) | |
| download | fpc-40eefdbd5aaef728abcec85cba78c8d91b032d69.tar.gz | |
* OS/2 requires specification of both np_ReadMode* and np_WriteMode*
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9137 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-process/src')
| -rw-r--r-- | packages/fcl-process/src/os2/simpleipc.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-process/src/os2/simpleipc.inc b/packages/fcl-process/src/os2/simpleipc.inc index 767bc921bf..1a622f21d9 100644 --- a/packages/fcl-process/src/os2/simpleipc.inc +++ b/packages/fcl-process/src/os2/simpleipc.inc @@ -126,7 +126,8 @@ var begin if not FileExists (FFileName) then if (DosCreateNPipe (PChar (FFileName), H, np_Access_Inbound, - np_ReadMode_Message or 1, PipeBufSize, PipeBufSize, 0) <> 0) or + np_ReadMode_Message or np_WriteMode_Message or 1, PipeBufSize, + PipeBufSize, 0) <> 0) or (DosCreateEventSem (PChar (SemName), EventSem, 0, 0) <> 0) or (DosSetNPipeSem (H, EventSem, PipeKey) <> 0) or (DosConnectNPipe (H) <> 0) then |