summaryrefslogtreecommitdiff
path: root/libguile/dynl.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2002-07-12 17:46:15 +0000
committerGary Houston <ghouston@arglist.com>2002-07-12 17:46:15 +0000
commit4f6f9ae3d35a15a908242d851e403a207ffb8cc0 (patch)
treefcb8d3284a2d34aaec0329ba94a619e546bf634f /libguile/dynl.c
parent7e7eb95b41dc5498e9f73957df753a91749ddb26 (diff)
downloadguile-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.c42
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))