Index: dlfcnh.inc
===================================================================
--- dlfcnh.inc	(revision 1156)
+++ dlfcnh.inc	(working copy)
@@ -3,10 +3,10 @@
   RTLD_NEXT = Pointer(-1);
   RTLD_DEFAULT = nil;
 
-function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external clib name 'dlopen';
-function dlclose(__handle:pointer):longint;cdecl;external clib name 'dlclose';
-function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external clib name 'dlsym';
-function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external clib name 'dlvsym';
+function dlopen(__file:Pchar; __mode:longint):pointer;cdecl;external dllib name 'dlopen';
+function dlclose(__handle:pointer):longint;cdecl;external dllib name 'dlclose';
+function dlsym(__handle:pointer; __name:Pchar):pointer;cdecl;external dllib name 'dlsym';
+function dlvsym(__handle:pointer; __name:Pchar; __version:Pchar):pointer;cdecl;external dllib name 'dlvsym';
 function dlerror:Pchar;cdecl;external clib name 'dlerror';
 
 type
@@ -19,7 +19,7 @@
         dli_saddr : pointer;
      end;
 
-function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external clib name 'dladdr';
+function dladdr(__address:pointer; __info:PDl_info):longint;cdecl;external dllib name 'dladdr';
 
 { ---------------------------------------------------------------------
     Borland compatibility types
@@ -29,5 +29,5 @@
   TDLInfo = Dl_info;
   PDLInfo = ^TDLInfo;
 
-function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external clib name 'dladdr';
+function dladdr(__address:pointer; var __info: Dl_info):longint;cdecl;external dllib name 'dladdr';
 
Index: libc.pp
===================================================================
--- libc.pp	(revision 1156)
+++ libc.pp	(working copy)
@@ -9,6 +9,7 @@
 
 Const
   clib = 'c';
+  dllib = 'dl';
   threadslib = 'pthread';
 
 {$i glue.inc}           // C to Pascal type mappings
