* delphi style imports

2025-12-08 07:47:26 +01:00 · 2003-04-23 08:13:04 +00:00 · 2003-04-23 08:13:04 +00:00 · ad27d96dc3
commit ad27d96dc3
parent 47489f2376
1 changed files with 18 additions and 0 deletions
--- a/tests/tbs/tb0452.pp
+++ b/tests/tbs/tb0452.pp
@ -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.