ilusha/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2026-09-29 04:35:58 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

correction of function 'nextvar'

Browse source
This commit is contained in:
Roberto Ierusalimschy 1994-11-16 14:03:48 -02:00
parent 86b35cf4f6
commit 94686ce585
5 changed files with 41 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

13
table.c
View file

@ -3,7 +3,7 @@
** Module to control static tables
*/
char *rcs_table="$Id: table.c,v 2.16 1994/11/11 14:00:08 roberto Exp roberto $";
char *rcs_table="$Id: table.c,v 2.17 1994/11/14 21:40:14 roberto Exp $";
#include <stdlib.h>
#include <string.h>
@ -41,6 +41,8 @@ Word lua_nentity; /* counter of new entities (strings and arrays) */
Word lua_recovered; /* counter of recovered entities (strings and arrays) */
static void lua_nextvar (void);
/*
** Initialise symbol table with internal functions
*/
@ -239,9 +241,10 @@ char *lua_filename (void)
/*
** Internal function: return next global variable
*/
void lua_nextvar (void)
static void lua_nextvar (void)
{
char *varname, *next;
char *varname;
TreeNode *next;
lua_Object o = lua_getparam(1);
if (o == 0)
lua_error ("too few arguments to function `nextvar'");
@ -266,8 +269,8 @@ void lua_nextvar (void)
{
Object name;
tag(&name) = LUA_T_STRING;
svalue(&name) = next;
svalue(&name) = next->str;
luaI_pushobject(&name);
luaI_pushobject(&s_object(indexstring(next)));
luaI_pushobject(&s_object(next->varindex));
}
}