Return to prim CVS log | Up to [gforth] / gforth |
version 1.224, 2008/02/23 13:03:56 | 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 |