mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

Indirect threaded. Performance is the same as before. Wow\!

Browse source
This commit is contained in:
Keisuke Nishida 2000-09-27 23:29:45 +00:00
parent 015959cb4a
commit 4b482259c3
7 changed files with 65 additions and 109 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/vm_engine.h
View file

@ -348,11 +348,7 @@
#undef VM_GOTO_NEXT
#if HAVE_LABELS_AS_VALUES
#if VM_ENGINE == SCM_VM_DEBUG_ENGINE
#define VM_GOTO_NEXT() goto *SCM_CODE_TO_DEBUG_ADDR (FETCH ())
#else /* not SCM_VM_DEBUG_ENGINE */
#define VM_GOTO_NEXT() goto *SCM_CODE_TO_ADDR (FETCH ())
#endif
#define VM_GOTO_NEXT() goto *jump_table[SCM_UNPACK (FETCH ())]
#else /* not HAVE_LABELS_AS_VALUES */
#define VM_GOTO_NEXT() goto vm_start
#endif