version 1.231, 2008/07/27 09:58:29
|
version 1.233, 2008/08/09 14:17:51
|
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 2460 l! ( w c_addr -- ) gforth l_store
|
Line 2460 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(); |
c_addr = (Char *)lt_dlerror(); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); |
u = (c_addr == NULL) ? 0 : strlen((char *)c_addr); |
|
|
\+ |
\+ |
\g peephole |
\g peephole |