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

disable trampoline "optimizations"

Browse source 
* 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().
This commit is contained in:
Andy Wingo 2008-08-05 21:56:29 +02:00
parent 659b4611b6
commit d507b25f1f
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/vm_system.c
View file

@ -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