| |
|
| 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_dlopen(tilde_cstr(c_addr1, u1, 1)); |
| #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 |
| #endif |
#endif |
| u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_GLOBAL | RTLD_LAZY); |
u2=(UCell) dlopen(tilde_cstr(c_addr1, u1, 1), RTLD_GLOBAL | RTLD_LAZY); |
| #else |
#else |
| # ifdef _WIN32 |
# ifdef _WIN32 |
| u2 = (Cell) GetModuleHandle(cstr(c_addr1, u1, 1)); |
u2 = (Cell) GetModuleHandle(tilde_cstr(c_addr1, u1, 1)); |
| # else |
# else |
| #warning Define open-lib! |
#warning Define open-lib! |
| u2 = 0; |
u2 = 0; |
