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 (sysdep_dynl_link): switch to scm_lt_dlhandle,

Browse source 
scm_lt_dlopenext, and scm_lt_dlerror.
(sysdep_dynl_unlink): switch to scm_lt_dlhandle, scm_lt_dlclose,
and scm_lt_dlerror.
(sysdep_dynl_func): switch to scm_lt_dlhandle, scm_lt_dlsym,
and scm_lt_dlerror.
(sysdep_dynl_init): switch to scm_lt_dlinit();
This commit is contained in:
Rob Browning 2002-10-05 04:55:22 +00:00
parent 45cf70fa41
commit 66d4f5ccaa
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/dynl.c
View file

@ -75,7 +75,7 @@ maybe_drag_in_eprintf ()
#include "libguile/lang.h" #include "libguile/lang.h"
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libltdl/ltdl.h" #include "guile-ltdl.h"
/* /*
From the libtool manual: "Note that libltdl is not threadsafe, From the libtool manual: "Note that libltdl is not threadsafe,
@ -90,7 +90,7 @@ maybe_drag_in_eprintf ()
static void * static void *
sysdep_dynl_link (const char *fname, const char *subr) sysdep_dynl_link (const char *fname, const char *subr)
{ {
lt_dlhandle handle; scm_lt_dlhandle handle;
handle = scm_lt_dlopenext (fname); handle = scm_lt_dlopenext (fname);
if (NULL == handle) if (NULL == handle)
{ {
@ -107,7 +107,7 @@ sysdep_dynl_link (const char *fname, const char *subr)
static void static void
sysdep_dynl_unlink (void *handle, const char *subr) sysdep_dynl_unlink (void *handle, const char *subr)
{ {
if (scm_lt_dlclose ((lt_dlhandle) handle)) if (scm_lt_dlclose ((scm_lt_dlhandle) handle))
{ {
scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL); scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);
} }
@ -118,7 +118,7 @@ sysdep_dynl_func (const char *symb, void *handle, const char *subr)
{ {
void *fptr; void *fptr;
fptr = scm_lt_dlsym ((lt_dlhandle) handle, symb); fptr = scm_lt_dlsym ((scm_lt_dlhandle) handle, symb);
if (!fptr) if (!fptr)
{ {
scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL); scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);