version 1.223, 2008/01/13 16:02:37
|
version 1.225, 2008/04/19 19:15:14
|
Line 2394 r = fp[u];
|
Line 2394 r = fp[u];
|
|
|
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
#if 1 |
#if 1 |
u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1)); |
u2 = (UCell)lt_dlopenadvise(cstr(c_addr1, u1, 1), ltdl_advice); |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#ifndef RTLD_GLOBAL |
#ifndef RTLD_GLOBAL |
#define RTLD_GLOBAL 0 |
#define RTLD_GLOBAL 0 |
Line 2782 uploop(i, 0, 7, `fcall(i)')
|
Line 2782 uploop(i, 0, 7, `fcall(i)')
|
fcall(20) |
fcall(20) |
|
|
\+ |
\+ |
\+ |
|
|
|
lib-error ( -- c_addr u ) gforth lib_error |
lib-error ( -- c_addr u ) gforth lib_error |
c_addr = lt_dlerror(); |
c_addr = lt_dlerror(); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
|
|
|
\+ |
\g peephole |
\g peephole |
|
|
\+peephole |
\+peephole |