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

Micro-optimization to scm_i_vm_mark_stack

Browse source 
* libguile/vm.c (scm_i_vm_mark_stack): Micro-optimize GC_MARK_AND_PUSH
  to cache the plausible heap bounds locally.
This commit is contained in:
Andy Wingo 2014-01-31 20:31:31 +01:00
parent 8dcabf6003
commit 7161ec1133
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/vm.c
View file

@ -800,13 +800,16 @@ scm_i_vm_mark_stack (struct scm_vm *vp, struct GC_ms_entry *mark_stack_ptr,
hooks, and providing dead slot maps for all points in a program hooks, and providing dead slot maps for all points in a program
would take a prohibitive amount of space. */ would take a prohibitive amount of space. */
const scm_t_uint8 *dead_slots = NULL; const scm_t_uint8 *dead_slots = NULL;
scm_t_uintptr upper = (scm_t_uintptr) GC_greatest_plausible_heap_addr;
scm_t_uintptr lower = (scm_t_uintptr) GC_least_plausible_heap_addr;
for (fp = vp->fp, sp = vp->sp; fp; fp = SCM_FRAME_DYNAMIC_LINK (fp)) for (fp = vp->fp, sp = vp->sp; fp; fp = SCM_FRAME_DYNAMIC_LINK (fp))
{ {
for (; sp >= &SCM_FRAME_LOCAL (fp, 0); sp--) for (; sp >= &SCM_FRAME_LOCAL (fp, 0); sp--)
{ {
SCM elt = *sp; SCM elt = *sp;
if (SCM_NIMP (elt)) if (SCM_NIMP (elt)
&& SCM_UNPACK (elt) >= lower && SCM_UNPACK (elt) <= upper)
{ {
if (dead_slots) if (dead_slots)
{ {
@ -820,7 +823,7 @@ scm_i_vm_mark_stack (struct scm_vm *vp, struct GC_ms_entry *mark_stack_ptr,
} }
} }
mark_stack_ptr = GC_MARK_AND_PUSH ((GC_word *) elt, mark_stack_ptr = GC_mark_and_push ((void *) elt,
mark_stack_ptr, mark_stack_ptr,
mark_stack_limit, mark_stack_limit,
NULL); NULL);