diff options
author | Andy Wingo <wingo@pobox.com> | 2008-08-05 21:56:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-08-05 21:56:29 +0200 |
commit | d507b25f1f9a3368026c6cd50565e6bbca3fc46f (patch) | |
tree | b8fb3aab420e510803289afbd290b69a025a3443 /src | |
parent | 659b4611b6a138fa252a42d1e1a0f4862242454c (diff) | |
download | guile-d507b25f1f9a3368026c6cd50565e6bbca3fc46f.tar.gz |
disable trampoline "optimizations"
* src/vm_system.c: Disable those trampoline "optimizations", as they
actually slowed down benchmark/measure.scm '(fibo 30)'. They were
edifying, in that now I have an appreciation of the need for
SYNC_ALL().
Diffstat (limited to 'src')
-rw-r--r-- | src/vm_system.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vm_system.c b/src/vm_system.c index 1c2992bcb..9876cb65a 100644 --- a/src/vm_system.c +++ b/src/vm_system.c @@ -421,6 +421,8 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1) APPLY_HOOK (); NEXT; } +#ifdef ENABLE_TRAMPOLINE + /* Seems to slow down the fibo test, dunno why */ /* * Subr call */ @@ -465,6 +467,7 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1) break; } } +#endif /* * Other interpreted or compiled call */ @@ -540,6 +543,8 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1) program = x; goto vm_call_program; } +#ifdef ENABLE_TRAMPOLINE + /* This seems to actually slow down the fibo test -- dunno why */ /* * Subr call */ @@ -584,6 +589,7 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1) break; } } +#endif /* * Other interpreted or compiled call |