mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* dynl-shl.c: Completely replaced with new code from Bernard

Browse source 
URBAN.
This commit is contained in:
Marius Vollmer 1997-05-08 12:50:18 +00:00
parent 6b3f33665f
commit 803f85ccf7
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/dynl-shl.c
View file

@ -46,6 +46,8 @@
Modified for libguile by Marius Vollmer */ Modified for libguile by Marius Vollmer */
#include "dl.h" #include "dl.h"
#include <stdio.h>
#include <string.h>
static void * static void *
sysdep_dynl_link (fname, subr) sysdep_dynl_link (fname, subr)
@ -54,7 +56,10 @@ sysdep_dynl_link (fname, subr)
{ {
shl_t shl; shl_t shl;
shl = shl_load (fname, BIND_DEFERRED , 0L); /* Probably too much BIND_* flags */
shl = shl_load (fname, BIND_IMMEDIATE || BIND_FIRST ||
BIND_TOGETHER ||
BIND_VERBOSE || DYNAMIC_PATH, 0L);
if (NULL==shl) if (NULL==shl)
scm_misc_error (subr, "dynamic linking failed", SCM_EOL); scm_misc_error (subr, "dynamic linking failed", SCM_EOL);
return shl; return shl;
@ -80,16 +85,17 @@ sysdep_dynl_func (symb, handle, subr)
void *handle; void *handle;
char *subr; char *subr;
{ {
void (*func)() = NULL; int status, i;
int status; struct shl_symbol *sym;
SCM_DEFER_INTS; SCM_DEFER_INTS;
status = shl_findsym ((shl_t) handle, symb, TYPE_PROCEDURE, &func); status = shl_getsymbols((shl_t) handle, TYPE_PROCEDURE,
EXPORT_SYMBOLS, malloc, &sym);
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
if (status) for (i=0; i<status; ++i) {
scm_misc_error (s_dynamic_call, "undefined function", if (strcmp(symb, sym[i].name) == 0) return sym[i].value;
scm_cons (scm_makfrom0str (symb), SCM_EOL)); }
return func; scm_misc_error (subr, "undefined function",
scm_cons (scm_makfrom0str (symb), SCM_EOL));
} }
static void static void