/packages/libc/src/ssemh.inc
Pascal | 25 lines | 15 code | 7 blank | 3 comment | 0 complexity | 5dca70e510a26404f788cd37b64fcb07 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1 2type 3 Psembuf = ^sembuf; 4 sembuf = record 5 sem_num : word; 6 sem_op : smallint; 7 sem_flg : smallint; 8 end; 9 10 11function semctl(__semid:longint; __semnum:longint; __cmd:longint; args:array of const):longint;cdecl;external clib name 'semctl'; 12function semctl(__semid:longint; __semnum:longint; __cmd:longint):longint;varargs;cdecl;external clib name 'semctl'; 13function semget(__key:key_t; __nsems:longint; __semflg:longint):longint;cdecl;external clib name 'semget'; 14function semop(__semid:longint; __sops:psembuf; __nsops:size_t):longint;cdecl;external clib name 'semop'; 15 16 17{ --------------------------------------------------------------------- 18 Borland compatibility types 19 ---------------------------------------------------------------------} 20 21Type 22 TSemaphoreBuffer = sembuf; 23 PSemaphoreBuffer = ^TSemaphoreBuffer; 24 25function semop(__semid:longint; var __sops:sembuf; __nsops:size_t):longint;cdecl;external clib name 'semop';