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

tested semaphore stuff

Browse Source
This commit is contained in:
michael 1999-01-14 14:35:12 +00:00
parent 425308ccdc
commit 29e8608a19
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/ipc.pp
View File

@ -234,7 +234,7 @@ type
Function semget(key:Tkey; nsems:longint; semflg:longint): longint;
Function semop(semid:longint; sops: pointer; nsops: cardinal): Boolean;
Function semctl(semid:longint; semnum:longint; cmd:longint; arg: tsemun): longint;
Function semctl(semid:longint; semnum:longint; cmd:longint; var arg: tsemun): longint;
implementation
@ -360,7 +360,7 @@ begin
semop:=ipccall (CALL_SEMOP,semid,Longint(nsops),0,Pointer(sops))=0;
end;
Function semctl(semid:longint; semnum:longint; cmd:longint; arg: tsemun): longint;
Function semctl(semid:longint; semnum:longint; cmd:longint; var arg: tsemun): longint;
begin
semctl:=ipccall(CALL_SEMCTL,semid,semnum,cmd,@arg);
end;