![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to support.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to support.c CVS log | Up to [gforth] / gforth / engine |
| version 1.35, 2008/10/09 22:03:59 | version 1.36, 2008/10/09 22:05:30 |
|---|---|
| Line 539 void gforth_ms(UCell u) | Line 539 void gforth_ms(UCell u) |
| 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); |
| Ucell 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; |