mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* Makefile.am (INCLUDES): Include from ../libguile-ltdl/ instead

Browse source 
of from $(INCLTDL).
(libguile_la_LIBADD): Use ../libguile-ltdl/libguile-ltdl.la
instead of $(LIBLTDL).

* guile.c: Include "guile-ltdl.h" instead of "libltdl/ltdl.h".
(main): switch to scm_lt_dlset_preloaded_symbols;

* dynl.c: Include "guile-ltdl.h" instead of "libltdl/ltdl.h".
(sysdep_dynl_link): switch to scm_lt_dlhandle, 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:
Marius Vollmer 2002-10-25 16:26:07 +00:00
parent a05b4f6e02
commit abeff04457
3 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/guile.c
View file

@ -51,8 +51,9 @@
#ifdef HAVE_CONFIG_H
#include <libguile/scmconfig.h>
#endif
#ifdef DYNAMIC_LINKING
#include <libltdl/ltdl.h>
#include "guile-ltdl.h"
#endif
#ifdef HAVE_WINSOCK2_H
@ -86,7 +87,9 @@ int
main (int argc, char **argv)
{
#ifdef DYNAMIC_LINKING
LTDL_SET_PRELOADED_SYMBOLS ();
/* libtool automagically inserts this variable into your executable... */
extern const scm_lt_dlsymlist lt_preloaded_symbols[];
scm_lt_dlpreload_default (lt_preloaded_symbols);
#endif
scm_boot_guile (argc, argv, inner_main, 0);
return 0; /* never reached */