version 1.219, 2007/09/29 22:20:02
|
version 1.220, 2007/12/04 14:55:03
|
Line 2394 r = fp[u];
|
Line 2394 r = fp[u];
|
\g syslib |
\g syslib |
|
|
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
#if defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#if 1 |
|
u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1)); |
|
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#ifndef RTLD_GLOBAL |
#ifndef RTLD_GLOBAL |
#define RTLD_GLOBAL 0 |
#define RTLD_GLOBAL 0 |
#endif |
#endif |
Line 2409 u2 = 0;
|
Line 2411 u2 = 0;
|
#endif |
#endif |
|
|
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
#if defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#if 1 |
|
u3 = (UCell) lt_dlsym((lt_dlhandle)u2, cstr(c_addr1, u1, 1)); |
|
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
u3 = (UCell) dlsym((void*)u2,cstr(c_addr1, u1, 1)); |
u3 = (UCell) dlsym((void*)u2,cstr(c_addr1, u1, 1)); |
#else |
#else |
# ifdef _WIN32 |
# ifdef _WIN32 |
Line 2781 fcall(20)
|
Line 2785 fcall(20)
|
\+ |
\+ |
\+ |
\+ |
|
|
|
lib-error ( -- c_addr u ) gforth lib_error |
|
c_addr = lt_dlerror(); |
|
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
|
|
\g peephole |
\g peephole |
|
|
\+peephole |
\+peephole |