mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Minor optimization in RESET_FRAME

Browse source 
* libguile/vm-engine.c (RESET_FRAME): Remove update of sp_min_since_gc.
This commit is contained in:
Andy Wingo 2018-08-08 14:48:32 +02:00
parent 0d00164f8a
commit b7dbc7251f
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/vm-engine.c
View file

@ -192,12 +192,18 @@
} while (0) } while (0)
/* Reset the current frame to hold N locals. Used when we know that no /* Reset the current frame to hold N locals. Used when we know that no
stack expansion is needed. */ stack expansion is needed. Note that in some cases this may lower
SP, e.g. after a return but where there are more locals below, but we
know it was preceded by an alloc-frame in that case, so no stack need
be allocated.
As an optimization, we don't update sp_min_since_gc in this case; the
principal place stacks are expanded is in ALLOC_FRAME. it doesn't
need to strictly be the min since GC, as it's just an optimization to
prevent passing too-large of a range to madvise. */
#define RESET_FRAME(n) \ #define RESET_FRAME(n) \
do { \ do { \
VP->sp = sp = VP->fp - (n); \ VP->sp = sp = VP->fp - (n); \
if (sp < VP->sp_min_since_gc) \
VP->sp_min_since_gc = sp; \
} while (0) } while (0)
/* Compute the number of locals in the frame. At a call, this is equal /* Compute the number of locals in the frame. At a call, this is equal