mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* dynl.c: Use ANSI prototypes.

Browse source 
(sysdep_dynl_link): Use lt_dlopenext instead of lt_dlopen.
* dynl.c: use libltdl if DYNAMIC_LINKING is enabled,
This commit is contained in:
Marius Vollmer 2000-01-10 00:36:26 +00:00
parent 6165ede38b
commit 4feb69af5a
1 changed files with 46 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

56
libguile/dynl.c
View file

@ -230,15 +230,53 @@ only by module bookkeeping operations.")
#define DYNL_GLOBAL 0x0001 #define DYNL_GLOBAL 0x0001
#ifdef HAVE_DLOPEN #ifdef DYNAMIC_LINKING
#include "dynl-dl.c"
#include <ltdl.h>
static void *
sysdep_dynl_link (const char *fname, int flags, const char *subr)
{
lt_dlhandle handle = lt_dlopenext (fname);
if (NULL == handle)
{
SCM_ALLOW_INTS;
scm_misc_error (subr, (char *)lt_dlerror (), SCM_EOL);
}
return (void *) handle;
}
static void
sysdep_dynl_unlink (void *handle, const char *subr)
{
if (lt_dlclose ((lt_dlhandle) handle))
{
SCM_ALLOW_INTS;
scm_misc_error (subr, (char *)lt_dlerror (), SCM_EOL);
}
}
static void *
sysdep_dynl_func (const char *symb, void *handle, const char *subr)
{
void *fptr;
fptr = lt_dlsym ((lt_dlhandle) handle, symb);
if (!fptr)
{
SCM_ALLOW_INTS;
scm_misc_error (subr, (char *)lt_dlerror (), SCM_EOL);
}
return fptr;
}
static void
sysdep_dynl_init ()
{
lt_dlinit ();
}
#else #else
#ifdef HAVE_SHL_LOAD
#include "dynl-shl.c"
#else
#ifdef HAVE_LIBDLD
#include "dynl-dld.c"
#else
/* no dynamic linking available, throw errors. */ /* no dynamic linking available, throw errors. */
@ -279,8 +317,6 @@ sysdep_dynl_func (const char *symbol,
return NULL; return NULL;
} }
#endif
#endif
#endif #endif
int scm_tc16_dynamic_obj; int scm_tc16_dynamic_obj;