commit 7ab06467ab27ed51b829a724e5c40cb0dc19d88d
author philippe <philippe@a5019735-40e9-0310-863c-91ae7b9d1cf9> Sun May 17 21:36:05 2015 +0000
committer philippe <philippe@a5019735-40e9-0310-863c-91ae7b9d1cf9> Sun May 17 21:36:05 2015 +0000
tree fbf7d8d0f7aa067bd9df70183738b8404a7cbf85
parent 71ed3c9382fa816a84731e9a2ddb9eda7d5624a6

Follow up to r15253:
Having a one elt free lineF cache avoids many PA calls.
This seems to slightly improve (a few %) a firefox startup.



git-svn-id: svn://svn.valgrind.org/valgrind/trunk@15254 a5019735-40e9-0310-863c-91ae7b9d1cf9

helgrind/libhb_core.c

diff --git a/helgrind/libhb_core.c b/helgrind/libhb_core.c
index 23acf59..d507394 100644
--- a/helgrind/libhb_core.c
+++ b/helgrind/libhb_core.c
@@ -1007,6 +1007,11 @@
    return (arr[bix] >> shft) & 3;
 }
 
+/* We cache one free lineF, to avoid pool allocator calls.
+   Measurement on firefox has shown that this avoids more than 90%
+   of the PA calls. */
+static LineF *free_lineF = NULL;
+
 /* Allocates a lineF for LineZ. Sets lineZ in a state indicating
    lineF has to be used. */
 static inline LineF *alloc_LineF_for_Z (LineZ *lineZ)
@@ -1015,7 +1020,12 @@
 
    tl_assert(lineZ->dict[0] == SVal_INVALID);
 
-   lineF = VG_(allocEltPA) ( LineF_pool_allocator );
+   if (LIKELY(free_lineF)) {
+      lineF = free_lineF;
+      free_lineF = NULL;
+   } else {
+      lineF = VG_(allocEltPA) ( LineF_pool_allocator );
+   }
    lineZ->dict[0] = lineZ->dict[2] = lineZ->dict[3] = SVal_INVALID;
    lineZ->dict[1] = Ptr2SVal (lineF);
 
@@ -1030,7 +1040,11 @@
    LineF *lineF = LineF_Ptr(lineZ);
 
    rcdec_LineF(lineF);
-   VG_(freeEltPA)( LineF_pool_allocator, lineF );
+   if (UNLIKELY(free_lineF)) {
+      VG_(freeEltPA)( LineF_pool_allocator, lineF );
+   } else {
+      free_lineF = lineF;
+   }
    lineZ->dict[0] = SVal_NOACCESS;
    lineZ->dict[1] = SVal_INVALID;
 }