| version 1.34, Thu Oct 9 16:43:54 2008 UTC | version 1.35, Thu Oct 9 22:03:59 2008 UTC | ||
|---|---|---|---|
|
|
||
| UCell gforth_dlopen(Char *c_addr, UCell u) | UCell gforth_dlopen(Char *c_addr, UCell u) | ||
| { | { | ||
| char * file=tilde_cstr(c_addr, u, 1); | char * file=tilde_cstr(c_addr, u, 1); | ||
| int lib; | Ucell lib; | ||
| #if defined(HAVE_LIBLTDL) | #if defined(HAVE_LIBLTDL) | ||
| lib = (UCell)lt_dlopen(file); | lib = (UCell)lt_dlopen(file); | ||
| if(lib) return lib; | if(lib) return lib; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |