From d507b25f1f9a3368026c6cd50565e6bbca3fc46f Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 5 Aug 2008 21:56:29 +0200
Subject: [PATCH] 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().
---
 src/vm_system.c | 6 ++++++
 1 file changed, 6 insertions(+)

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