27
27
Borland compatibility types
28
28
---------------------------------------------------------------------}
32
32
PSemaphore = ^TSemaphore;
34
34
function sem_init(var __sem: sem_t; __pshared:longint; __value:dword):longint;cdecl;external threadslib name 'sem_init';
35
35
function sem_destroy(var __sem: sem_t):longint;cdecl;external threadslib name 'sem_destroy';
36
36
function sem_close(var __sem: sem_t):longint;cdecl;external threadslib name 'sem_close';