From c354211744e80c14314b3a363e7d57f5751be835 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 20 Apr 2017 15:24:33 -0300
Subject: small bug in generational control

---
 lgc.c | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lgc.c b/lgc.c
index 9995fbed..59b6dde1 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 2.222 2017/04/12 18:01:40 roberto Exp roberto $
+** $Id: lgc.c,v 2.223 2017/04/19 17:02:50 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -1207,17 +1207,18 @@ static void fullgen (lua_State *L, global_State *g) {
 */
 static void genstep (lua_State *L, global_State *g) {
   lu_mem majorbase = g->GCestimate;
-lua_checkmemory(L);
-  if (gettotalbytes(g) > (majorbase / 100) * (100 + g->genmajormul))
+//lua_checkmemory(L);
+  if (gettotalbytes(g) > (majorbase / 100) * (100 + g->genmajormul)) {
     fullgen(L, g);
+  }
   else {
     lu_mem mem;
     youngcollection(L, g);
     mem = gettotalbytes(g);
     luaE_setdebt(g, -((mem / 100) * g->genminormul));
-    g->GCestimate = mem;
+    g->GCestimate = majorbase;  /* preserve base value */
   }
-lua_checkmemory(L);
+//lua_checkmemory(L);
 }
 
 
-- 
cgit v1.2.3-55-g6feb