mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

"storeglobal" changed to "setglobal"

This commit is contained in:
Roberto Ierusalimschy 1997-04-01 16:02:43 -03:00
parent bb2e2bec18
commit 59744f0311
3 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
inout.c
View File

@ -5,7 +5,7 @@
** Also provides some predefined lua functions.
*/
char *rcs_inout="$Id: inout.c,v 2.50 1997/03/31 20:59:09 roberto Exp roberto $";
char *rcs_inout="$Id: inout.c,v 2.51 1997/04/01 17:31:42 roberto Exp roberto $";
#include <stdio.h>
#include <string.h>
@ -190,7 +190,7 @@ static void luaI_setglobal (void)
lua_Object value = lua_getparam(2);
luaL_arg_check(value != LUA_NOOBJECT, "setglobal", 2, NULL);
lua_pushobject(value);
lua_storeglobal(luaL_check_string(1, "setglobal"));
lua_setglobal(luaL_check_string(1, "setglobal"));
lua_pushobject(value); /* return given value */
}
@ -199,7 +199,7 @@ static void luaI_basicsetglobal (void)
lua_Object value = lua_getparam(2);
luaL_arg_check(value != LUA_NOOBJECT, "basicsetglobal", 2, NULL);
lua_pushobject(value);
lua_basicstoreglobal(luaL_check_string(1, "basicsetglobal"));
lua_basicsetglobal(luaL_check_string(1, "basicsetglobal"));
lua_pushobject(value); /* return given value */
}

11
lua.h
View File

@ -2,15 +2,15 @@
** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio
** $Id: lua.h,v 3.37 1997/03/19 19:41:10 roberto Exp roberto $
** $Id: lua.h,v 3.38 1997/03/31 20:59:09 roberto Exp roberto $
*/
#ifndef lua_h
#define lua_h
#define LUA_VERSION "Lua 2.?"
#define LUA_COPYRIGHT "Copyright (C) 1994-1996 TeCGraf"
#define LUA_VERSION "Lua 3.0 (alpha)"
#define LUA_COPYRIGHT "Copyright (C) 1994-1997 TeCGraf"
#define LUA_AUTHORS "W. Celes, R. Ierusalimschy & L. H. de Figueiredo"
@ -65,8 +65,8 @@ void lua_pushobject (lua_Object object);
lua_Object lua_getglobal (char *name);
lua_Object lua_basicgetglobal (char *name);
void lua_storeglobal (char *name); /* In: value */
void lua_basicstoreglobal (char *name); /* In: value */
void lua_setglobal (char *name); /* In: value */
void lua_basicsetglobal (char *name); /* In: value */
void lua_storesubscript (void); /* In: table, index, value */
void lua_basicstoreindex (void); /* In: table, index, value */
@ -97,6 +97,7 @@ lua_Object lua_createtable (void);
/* =============================================================== */
/* for compatibility with old versions. Avoid using these macros */
#define lua_storeglobal(n) lua_setglobal(n)
#define lua_type(o) (lua_tag(o))
#define lua_getuserdata(o) (*(void **)lua_getbinarydata(o))

12
opcode.c
View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio
*/
char *rcs_opcode="$Id: opcode.c,v 3.88 1997/03/31 14:17:09 roberto Exp roberto $";
char *rcs_opcode="$Id: opcode.c,v 3.89 1997/03/31 20:59:09 roberto Exp roberto $";
#include <setjmp.h>
#include <stdio.h>
@ -898,7 +898,7 @@ lua_Object lua_basicgetglobal (char *name)
/*
** Store top of the stack at a global variable array field.
*/
static void storeglobal (Word n)
static void setglobal (Word n)
{
TObject *oldvalue = &lua_table[n].object;
TObject *im = luaI_getimbyObj(oldvalue, IM_SETGLOBAL);
@ -917,13 +917,13 @@ static void storeglobal (Word n)
}
void lua_storeglobal (char *name)
void lua_setglobal (char *name)
{
adjustC(1);
storeglobal(luaI_findsymbolbyname(name));
setglobal(luaI_findsymbolbyname(name));
}
void lua_basicstoreglobal (char *name)
void lua_basicsetglobal (char *name)
{
Word n = luaI_findsymbolbyname(name);
adjustC(1);
@ -1229,7 +1229,7 @@ static StkId lua_execute (Byte *pc, StkId base)
{
Word w;
get_word(w,pc);
storeglobal(w);
setglobal(w);
}
break;