PageRenderTime 12ms CodeModel.GetById 8ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/libc/src/ssemh.inc

https://github.com/slibre/freepascal
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';