mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 10:03:50 +02:00
19 lines
291 B
ObjectPascal
19 lines
291 B
ObjectPascal
{ %version=1.1 }
|
|
{ %target=linux }
|
|
unit tb0452;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
function sem_open(__name: PChar; __oflag: Integer): Pointer; cdecl; varargs;
|
|
|
|
implementation
|
|
|
|
const
|
|
libpthreadmodulename = 'libpthread.so';
|
|
|
|
function sem_open; external libpthreadmodulename name 'sem_open';
|
|
|
|
end.
|