Return to support.c CVS log | Up to [gforth] / gforth / engine |
version 1.49, 2012/05/26 10:20:01 | version 1.50, 2012/07/26 15:46:44 |
---|---|
Line 550 UCell gforth_dlopen(Char *c_addr, UCell | Line 550 UCell gforth_dlopen(Char *c_addr, UCell |
lib = (UCell)dlopen(file, RTLD_GLOBAL); | lib = (UCell)dlopen(file, RTLD_GLOBAL); |
free(file); | free(file); |
if(lib) return lib; | if(lib) return lib; |
fprintf(stderr, "%s\n", dlerror()); | |
#elif defined(_WIN32) | #elif defined(_WIN32) |
lib = (UCell) GetModuleHandle(file); | lib = (UCell) GetModuleHandle(file); |
free(file); | free(file); |