1 files changed, 4 insertions, 0 deletions
diff --git a/ULibc.pas b/ULibc.pas
index ba60e47..a01b573 100644
--- a/ULibc.pas
+++ b/ULibc.pas
@@ -24,6 +24,7 @@ interface
 
 const GLIBC_LIB = 'libc.so.6';
       DL_LIB = 'libdl.so.2';
+      PTHREAD_LIB = 'libpthread.so.0';
 
 type
 {$IFDEF KYLIX}
@@ -850,6 +851,9 @@ function access(pathname: PChar; mode: Longint): Longint; cdecl; external GLIBC_
 function euidaccess(pathname: PChar; mode: Longint): Longint; cdecl; external GLIBC_LIB name 'euidaccess';
 
 
+type pthread_t = {$ifdef cpu64}QWord{$else}DWord{$endif};
+
+function pthread_self: pthread_t; cdecl; external PTHREAD_LIB name 'pthread_self';
 
 
 implementation