diff options
author | Gary Houston <ghouston@arglist.com> | 2002-07-12 17:46:15 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 2002-07-12 17:46:15 +0000 |
commit | 4f6f9ae3d35a15a908242d851e403a207ffb8cc0 (patch) | |
tree | fcb8d3284a2d34aaec0329ba94a619e546bf634f /libguile/dynl.c | |
parent | 7e7eb95b41dc5498e9f73957df753a91749ddb26 (diff) | |
download | guile-4f6f9ae3d35a15a908242d851e403a207ffb8cc0.tar.gz |
* dynl.c: Don't define stub procedures if DYNAMIC_LINKING is not
defined. They don't do anything useful, especially since the
only case where DYNAMIC_LINKING is undefined seems to be
when --with-modules=no is given to configure, which is basically
requesting that the "dynamic linking module" be omitted.
* Makefile.am (libguile_la_SOURCES): move dynl.c from
libguile_la_SOURCES to EXTRA_libguile_la_SOURCES.
* extensions.c (load_extension): check DYNAMIC_LINKING for
scm_dynamic_call.
* init.c (scm_init_guile_1): check DYNAMIC_LINKING for
scm_init_dynamic_linking.
* configure.in: check dynamic linking before modules. Add dynl.c
if dynamic linking is available, i.e., unless --with-modules=no
was given to configure.
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index 494b88dfe..4cc46d1e3 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -75,8 +75,6 @@ maybe_drag_in_eprintf () #include "libguile/lang.h" #include "libguile/validate.h" -#ifdef DYNAMIC_LINKING - #include "libltdl/ltdl.h" /* From the libtool manual: "Note that libltdl is not threadsafe, @@ -133,46 +131,6 @@ sysdep_dynl_init () lt_dlinit (); } -#else - -/* no dynamic linking available, throw errors. */ - -static void -sysdep_dynl_init (void) -{ -} - -static void -no_dynl_error (const char *subr) -{ - scm_misc_error (subr, "dynamic linking not available", SCM_EOL); -} - -static void * -sysdep_dynl_link (const char *filename, const char *subr) -{ - no_dynl_error (subr); - return NULL; -} - -static void -sysdep_dynl_unlink (void *handle, - const char *subr) -{ - no_dynl_error (subr); -} - -static void * -sysdep_dynl_func (const char *symbol, - void *handle, - const char *subr) -{ - no_dynl_error (subr); - return NULL; -} - -#endif - scm_t_bits scm_tc16_dynamic_obj; #define DYNL_FILENAME(x) (SCM_CELL_OBJECT_1 (x)) |