summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-08-05 21:56:29 +0200
committerAndy Wingo <wingo@pobox.com>2008-08-05 21:56:29 +0200
commitd507b25f1f9a3368026c6cd50565e6bbca3fc46f (patch)
treeb8fb3aab420e510803289afbd290b69a025a3443 /src
parent659b4611b6a138fa252a42d1e1a0f4862242454c (diff)
downloadguile-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.c6
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