From 0c725b2492051bdb776af3dae31881a162000894 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 10 Nov 1999 13:40:46 -0200
Subject: buffer can shrink when too big

---
 lbuffer.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lbuffer.c')

diff --git a/lbuffer.c b/lbuffer.c
index 85568b3c..181056f8 100644
--- a/lbuffer.c
+++ b/lbuffer.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuffer.c,v 1.8 1999/02/25 19:20:40 roberto Exp roberto $
+** $Id: lbuffer.c,v 1.9 1999/02/26 15:48:55 roberto Exp roberto $
 ** Auxiliary functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -24,9 +24,8 @@
 
 static void Openspace (int size) {
   lua_State *l = L;  /* to optimize */
-  size += EXTRABUFF;
-  l->Mbuffsize = l->Mbuffnext+size;
-  luaM_growvector(l->Mbuffer, l->Mbuffnext, size, char, arrEM, MAX_INT);
+  l->Mbuffsize = (l->Mbuffnext+size+EXTRABUFF)*2;
+  luaM_reallocvector(l->Mbuffer, l->Mbuffsize, char);
 }
 
 
-- 
cgit v1.2.3-55-g6feb