From 728fa167d2c9da6be897b194d1693ecf3b829d89 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 5 Sep 2002 16:57:08 -0300
Subject: cannot raise memory error when realloc to smaller block

---
 ltests.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ltests.c b/ltests.c
index 886996b4..d6f8adc4 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 1.133 2002/08/06 18:01:50 roberto Exp roberto $
+** $Id: ltests.c,v 1.134 2002/08/30 19:09:21 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -103,7 +103,7 @@ void *debug_realloc (void *block, size_t oldsize, size_t size) {
     freeblock(block);
     return NULL;
   }
-  else if (memdebug_total+size-oldsize > memdebug_memlimit)
+  else if (size > oldsize && memdebug_total+size-oldsize > memdebug_memlimit)
     return NULL;  /* to test memory allocation errors */
   else {
     void *newblock;
-- 
cgit v1.2.3-55-g6feb