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

+ aliases to TPipeSemState field names for improved compatibility and overloaded version of DosQueryNPipeSemState using this type

Browse Source 
git-svn-id: trunk@9139 -
This commit is contained in:
Tomas Hajny 2007-11-04 22:17:29 +00:00
parent 3c24c6c16d
commit 74fb7ca61d
1 changed files with 34 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/os2/doscalls.pas
View File

@ -2912,7 +2912,8 @@ function DosStopSession (Scope, SesID: cardinal): cardinal; cdecl;
****************************************************************************} ****************************************************************************}
type TAvailData=record type
TAvailData = record
cbPipe, {Number of bytes in pipe.} cbPipe, {Number of bytes in pipe.}
cbMessage: word; {Number of bytes in current message.} cbMessage: word; {Number of bytes in current message.}
end; end;
@ -2928,11 +2929,18 @@ type TAvailData=record
end; end;
TPipeSemState = record TPipeSemState = record
Status:byte; case boolean of
false: (Status: byte;
Flag: byte; Flag: byte;
Key: word; Key: word;
Avail:word; Avail: word);
true: (fStatus: byte;
fFlag: byte;
usKey: word;
usAvail: word);
end; end;
PPipeSemState = ^TPipeSemState;
TPipeSemStates = array [0..$FFFF] of TPipeSemState;
{Create an unnamed pipe. {Create an unnamed pipe.
ReadHandle = Receives handle for reading from pipe. ReadHandle = Receives handle for reading from pipe.
@ -3064,6 +3072,8 @@ function DosQueryNPipeInfo (Handle: THandle; InfoLevel: cardinal; var Buffer;
BufSize = Size of SemArray, in bytes.} BufSize = Size of SemArray, in bytes.}
function DosQueryNPipeSemState (SemHandle: THandle; var SemArray; function DosQueryNPipeSemState (SemHandle: THandle; var SemArray;
BufSize: cardinal): cardinal; cdecl; BufSize: cardinal): cardinal; cdecl;
function DosQueryNPipeSemState (SemHandle: THandle; SemArray: PPipeSemState;
BufSize: cardinal): cardinal; cdecl;
{Resets the blocking mode and state of a named pipe. {Resets the blocking mode and state of a named pipe.
Handle = Handle to named pipe. Handle = Handle to named pipe.
@ -5091,6 +5101,10 @@ function DosQueryNPipeSemState (SemHandle: THandle; var SemArray;
BufSize: cardinal): cardinal; cdecl; BufSize: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 249; external 'DOSCALLS' index 249;
function DosQueryNPipeSemState (SemHandle: THandle; SemArray: PPipeSemState;
BufSize: cardinal): cardinal; cdecl;
external 'DOSCALLS' index 249;
function DosSetNPHState (Handle: THandle; State: cardinal):cardinal; cdecl; function DosSetNPHState (Handle: THandle; State: cardinal):cardinal; cdecl;
external 'DOSCALLS' index 250; external 'DOSCALLS' index 250;