lua

commit 662e2fa5ccf1dfa0ebea571d6785009442ba3011
parent 540dc65bcd16cd8ee2d6d2983036968ea388502b
Author: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date:   Wed,  6 Apr 1994 09:54:50 -0300

Modificaco para reservar espaco do byte para marcar constantes
pre-definidas.

Diffstat:
M
table.c
 | 
18
+++++++++++++-----

1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/table.c b/table.c
@@ -3,7 +3,7 @@
 ** Module to control static tables
 */
 
-char *rcs_table="$Id: table.c,v 1.2 1993/12/22 21:15:16 roberto Exp celes $";
+char *rcs_table="$Id: table.c,v 1.3 1994/03/28 15:15:59 celes Exp celes $";
 
 #include <stdlib.h>
 #include <string.h>
@@ -52,10 +52,18 @@ static struct List *searchlist=&o0;
 #define MAXCONSTANT	256
 #endif
 /* pre-defined constants need garbage collection extra byte */ 
-static char  	       *constantbuffer[MAXCONSTANT] = {" mark"+1," nil"+1,
-						       " number"+1, " string"+1,
-						       " table"+1, " function"+1,
-						       " cfunction"+1, " userdata"+1
+static char tm[] = " mark";
+static char ti[] = " nil";
+static char tn[] = " number";
+static char ts[] = " string";
+static char tt[] = " table";
+static char tf[] = " function";
+static char tc[] = " cfunction";
+static char tu[] = " userdata";
+static char  	       *constantbuffer[MAXCONSTANT] = {tm+1, ti+1,
+						       tn+1, ts+1,
+						       tt+1, tf+1,
+						       tc+1, tu+1
                                                       };
 char  	      	      **lua_constant = constantbuffer;
 Word    		lua_nconstant=T_USERDATA+1;