![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to main.c CVS log | Up to [gforth] / gforth / engine |
| version 1.88, 2003/01/02 21:40:22 | version 1.89, 2003/01/03 20:26:19 |
|---|---|
| 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) */ |