paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* OS/2 requires specification of both np_ReadMode* and np_WriteMode*

Browse Source 
git-svn-id: trunk@9137 -
This commit is contained in:
Tomas Hajny 2007-11-04 21:51:36 +00:00
parent 16fb9ebdbc
commit 5382ce5c7f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-process/src/os2/simpleipc.inc
View File

@ -126,7 +126,8 @@ var
begin begin
if not FileExists (FFileName) then if not FileExists (FFileName) then
if (DosCreateNPipe (PChar (FFileName), H, np_Access_Inbound, 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 (DosCreateEventSem (PChar (SemName), EventSem, 0, 0) <> 0) or
(DosSetNPipeSem (H, EventSem, PipeKey) <> 0) or (DosSetNPipeSem (H, EventSem, PipeKey) <> 0) or
(DosConnectNPipe (H) <> 0) then (DosConnectNPipe (H) <> 0) then