15 MEMORY_BASIC_INFORMATION m;
16 memset(&m, 0,
sizeof(m));
17 if( !VirtualQuery(_errno, &m,
sizeof(m)) )
return NULL;
18 return m.AllocationBase;
23 w32_dlclose(
void *ptr)
26 if( ptr == w32_coredll() )
return 0;
28 if( FreeLibrary((HMODULE)ptr) )
return 0;
31 #define dlclose(ptr) w32_dlclose(ptr)
39 dlclose(dlhandle->
ptr);
46 return ptr ?
sizeof(
struct dl_handle) : 0;
67 int ret = dlclose(dlhandle->
ptr);
72 #if defined(HAVE_DLERROR)
103 dlhandle->
ptr = handle;
129 cflag = RTLD_LAZY | RTLD_GLOBAL;
133 cflag = RTLD_LAZY | RTLD_GLOBAL;
140 rb_bug(
"rb_dlhandle_new");
147 HANDLE rb_libruby_handle(
void);
148 ptr = rb_libruby_handle();
157 ptr = dlopen(
"coredll.dll", cflag);
164 ptr = dlopen(clib, cflag);
165 #if defined(HAVE_DLERROR)
166 if( !ptr && (err = dlerror()) ){
177 dlclose(dlhandle->
ptr);
267 if( ! dlhandle->
open ){
275 #define RTLD_NEXT NULL
278 #define RTLD_DEFAULT NULL
299 #if defined(HAVE_DLERROR)
301 # define CHECK_DLERROR if( err = dlerror() ){ func = 0; }
303 # define CHECK_DLERROR
311 func = (void (*)())(
VALUE)dlsym(handle, name);
313 #if defined(FUNC_STDCALL)
318 #if defined(__CYGWIN__) || defined(_WIN32) || defined(__MINGW32__)
320 char *name_a = (
char*)
xmalloc(len+2);
321 strcpy(name_a, name);
324 name_a[len+1] =
'\0';
325 func = dlsym(handle, name_a);
327 if(
func )
goto found;
331 name_n = (
char*)
xmalloc(len+6);
333 memcpy(name_n, name, len);
335 for( i = 0; i < 256; i += 4 ){
336 sprintf(name_n + len,
"%d", i);
337 func = dlsym(handle, name_n);
341 if(
func )
goto found;
344 for( i = 0; i < 256; i += 4 ){
345 sprintf(name_n + len,
"%d", i);
346 func = dlsym(handle, name_n);