Return to main.c CVS log | Up to [gforth] / gforth / engine |
version 1.87, 2003/01/02 16:48:12 | version 1.88, 2003/01/02 21:40:22 |
---|---|
Line 717 int forget_dyncode(Address code) | Line 717 int forget_dyncode(Address code) |
Label decompile_code(Label code) | Label decompile_code(Label code) |
{ | { |
#ifdef DIRECT_THREADED | |
if((code >= (Cell)vm_prims) && (code < (Cell)(vm_prims+npriminfos))) | |
return *(Label *)code; | |
#endif | |
#ifdef NO_DYNAMIC | #ifdef NO_DYNAMIC |
return code; | return code; |
#else /* !defined(NO_DYNAMIC) */ | #else /* !defined(NO_DYNAMIC) */ |