mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-12 13:30:44 +01:00
* delphi style imports
This commit is contained in:
parent
47489f2376
commit
ad27d96dc3
18
tests/tbs/tb0452.pp
Normal file
18
tests/tbs/tb0452.pp
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
{ %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.
|
||||||
Loading…
Reference in New Issue
Block a user