From 1896f839d37e20a5ec0d1eecb735d6a1fee1e3d2 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Thu, 30 Mar 2006 15:36:15 +0000
Subject: [PATCH] adjust divisor

---
 cdb/writeable.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/cdb/writeable.c b/cdb/writeable.c
index a73be82..d5c5c5b 100644
--- a/cdb/writeable.c
+++ b/cdb/writeable.c
@@ -778,7 +778,16 @@ static int compact_keepopen(Tcl_Interp *ip, Rw *rw, int force) {
   if (logsz < 0) return cht_posixerr(ip, errno, "ftell .log"
 				       " during compact check or force");
 
-  if (!force && logsz < rw->mainsz / 2 + 1000) return TCL_OK;
+  if (!force && logsz < rw->mainsz / 3 + 1000) return TCL_OK;
+  /* Test case:                    ^^^ testing best value for this
+   *   main=9690434by nrecs=122803  read all in one go
+   *  no autocompact, :    6.96user 0.68system 0:08.93elapsed
+   *  auto, mulitplier 2:  7.10user 0.79system 0:09.54elapsed
+   *  auto, unity:         7.80user 0.98system 0:11.84elapsed
+   *  auto, divisor  2:    8.23user 1.05system 0:13.30elapsed
+   *  auto, divisor  3:    8.55user 1.12system 0:12.88elapsed
+   *  auto, divisor  5:    9.95user 1.43system 0:15.72elapsed
+   */
 
   rc= compact_core(ip, rw, logsz, &reccount);  if (rc) goto x_rc;
 
-- 
2.30.2