version 1.231, 2008/07/27 09:58:29
|
version 1.235, 2008/09/18 02:42:24
|
Line 1674 supported on your machine (take a look a
|
Line 1674 supported on your machine (take a look a
|
your machine has a separate instruction cache. In such cases, |
your machine has a separate instruction cache. In such cases, |
@code{flush-icache} does nothing instead of flushing the instruction |
@code{flush-icache} does nothing instead of flushing the instruction |
cache."" |
cache."" |
FLUSH_ICACHE(c_addr,u); |
FLUSH_ICACHE((caddr_t)c_addr,u); |
|
|
(bye) ( n -- ) gforth paren_bye |
(bye) ( n -- ) gforth paren_bye |
SUPER_END; |
SUPER_END; |
Line 1782 gforth_FP=fp;
|
Line 1782 gforth_FP=fp;
|
gforth_SP=sp; |
gforth_SP=sp; |
gforth_RP=rp; |
gforth_RP=rp; |
gforth_LP=lp; |
gforth_LP=lp; |
|
#ifdef HAS_LINKBACK |
((void (*)())w)(); |
((void (*)())w)(); |
|
#else |
|
((void (*)(void *))w)(gforth_pointers); |
|
#endif |
sp=gforth_SP; |
sp=gforth_SP; |
fp=gforth_FP; |
fp=gforth_FP; |
rp=gforth_RP; |
rp=gforth_RP; |
Line 2399 r = fp[u];
|
Line 2403 r = fp[u];
|
\g syslib |
\g syslib |
|
|
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
open-lib ( c_addr1 u1 -- u2 ) gforth open_lib |
#if 1 |
#ifdef HAVE_LIBLTDL |
u2 = (UCell)lt_dlopen(tilde_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 |
Line 2416 u2 = 0;
|
Line 2420 u2 = 0;
|
#endif |
#endif |
|
|
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym |
#if 1 |
#ifdef HAVE_LIBLTDL |
u3 = (UCell) lt_dlsym((lt_dlhandle)u2, cstr(c_addr1, u1, 1)); |
u3 = (UCell) lt_dlsym((lt_dlhandle)u2, cstr(c_addr1, u1, 1)); |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
#elif defined(HAVE_LIBDL) || defined(HAVE_DLOPEN) |
u3 = (UCell) dlsym((void*)u2,cstr(c_addr1, u1, 1)); |
u3 = (UCell) dlsym((void*)u2,cstr(c_addr1, u1, 1)); |
Line 2460 l! ( w c_addr -- ) gforth l_store
|
Line 2464 l! ( w c_addr -- ) gforth l_store
|
|
|
lib-error ( -- c_addr u ) gforth lib_error |
lib-error ( -- c_addr u ) gforth lib_error |
""Error message for last failed @code{open-lib} or @code{lib-sym}."" |
""Error message for last failed @code{open-lib} or @code{lib-sym}."" |
c_addr = lt_dlerror(); |
#ifdef HAVE_LIBLTDL |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
c_addr = (Char *)lt_dlerror(); |
|
u = (c_addr == NULL) ? 0 : strlen((char *)c_addr); |
|
#else |
|
c_addr = "libltdl is not configured"; |
|
u = strlen(c_addr); |
|
#endif |
|
|
\+ |
\+ |
\g peephole |
\g peephole |