/[guile]/guile/guile-core/libguile/dynl.c
ViewVC logotype

Diff of /guile/guile-core/libguile/dynl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.76 by mvo, Thu Oct 3 22:44:48 2002 UTC revision 1.77 by rlb, Sat Oct 5 04:55:22 2002 UTC
# Line 75  maybe_drag_in_eprintf () Line 75  maybe_drag_in_eprintf ()
75  #include "libguile/lang.h"  #include "libguile/lang.h"
76  #include "libguile/validate.h"  #include "libguile/validate.h"
77    
78  #include "libltdl/ltdl.h"  #include "guile-ltdl.h"
79    
80  /*  /*
81    From the libtool manual: "Note that libltdl is not threadsafe,    From the libtool manual: "Note that libltdl is not threadsafe,
# Line 90  maybe_drag_in_eprintf () Line 90  maybe_drag_in_eprintf ()
90  static void *  static void *
91  sysdep_dynl_link (const char *fname, const char *subr)  sysdep_dynl_link (const char *fname, const char *subr)
92  {  {
93    lt_dlhandle handle;    scm_lt_dlhandle handle;
94    handle = scm_lt_dlopenext (fname);    handle = scm_lt_dlopenext (fname);
95    if (NULL == handle)    if (NULL == handle)
96      {      {
# Line 107  sysdep_dynl_link (const char *fname, con Line 107  sysdep_dynl_link (const char *fname, con
107  static void  static void
108  sysdep_dynl_unlink (void *handle, const char *subr)  sysdep_dynl_unlink (void *handle, const char *subr)
109  {  {
110    if (scm_lt_dlclose ((lt_dlhandle) handle))    if (scm_lt_dlclose ((scm_lt_dlhandle) handle))
111      {      {
112        scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);        scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);
113      }      }
# Line 118  sysdep_dynl_func (const char *symb, void Line 118  sysdep_dynl_func (const char *symb, void
118  {  {
119    void *fptr;    void *fptr;
120    
121    fptr = scm_lt_dlsym ((lt_dlhandle) handle, symb);    fptr = scm_lt_dlsym ((scm_lt_dlhandle) handle, symb);
122    if (!fptr)    if (!fptr)
123      {      {
124        scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);        scm_misc_error (subr, (char *) scm_lt_dlerror (), SCM_EOL);

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26