GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-02-04 06:13:04 +08:00
Code Issues Projects Releases Wiki Activity

Modificaco para reservar espaco do byte para marcar constantes

Browse Source 
pre-definidas.
This commit is contained in:
Waldemar Celes 1994-04-06 09:55:08 -03:00
parent 540dc65bcd
commit 662e2fa5cc
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
table.c
View File

@ -3,7 +3,7 @@
** Module to control static tables ** 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 <stdlib.h>
#include <string.h> #include <string.h>
@ -52,10 +52,18 @@ static struct List *searchlist=&o0;
#define MAXCONSTANT 256 #define MAXCONSTANT 256
#endif #endif
/* pre-defined constants need garbage collection extra byte */ /* pre-defined constants need garbage collection extra byte */
static char *constantbuffer[MAXCONSTANT] = {" mark"+1," nil"+1, static char tm[] = " mark";
" number"+1, " string"+1, static char ti[] = " nil";
" table"+1, " function"+1, static char tn[] = " number";
" cfunction"+1, " userdata"+1 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; char **lua_constant = constantbuffer;
Word lua_nconstant=T_USERDATA+1; Word lua_nconstant=T_USERDATA+1;