From d2117d66ec893ed01efa6bc065f842e39d80e6df Mon Sep 17 00:00:00 2001
From: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date: Thu, 8 Sep 1994 13:51:49 -0300
Subject: [PATCH] default size for arrays is no more 101, as arrays now can
 grow.

---
 opcode.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/opcode.c b/opcode.c
index 3471205a..d9d8aae4 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 2.4 1994/08/05 19:31:09 celes Exp celes $";
+char *rcs_opcode="$Id: opcode.c,v 2.5 1994/08/17 15:02:03 celes Exp celes $";
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -340,11 +340,11 @@ int lua_execute (Byte *pc)
    
    case CREATEARRAY:
     if (tag(top-1) == T_NIL) 
-     nvalue(top-1) = 101;
+     nvalue(top-1) = 1;
     else 
     {
      if (tonumber(top-1)) return 1;
-     if (nvalue(top-1) <= 0) nvalue(top-1) = 101;
+     if (nvalue(top-1) <= 0) nvalue(top-1) = 1;
     }
     avalue(top-1) = lua_createarray(nvalue(top-1));
     if (avalue(top-1) == NULL)