aboutsummaryrefslogtreecommitdiff
path: root/opcode.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1997-04-01 16:02:43 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1997-04-01 16:02:43 -0300
commit59744f03112d4d0a3b589d99c780c24186e277fc (patch)
treefde44ed71f6eb111d677fc7f929acd2ed5088929 /opcode.c
parentbb2e2bec18a322c27066c5898a239129cee46ec9 (diff)
downloadlua-59744f03112d4d0a3b589d99c780c24186e277fc.tar.gz
lua-59744f03112d4d0a3b589d99c780c24186e277fc.tar.bz2
lua-59744f03112d4d0a3b589d99c780c24186e277fc.zip
"storeglobal" changed to "setglobal"
Diffstat (limited to 'opcode.c')
-rw-r--r--opcode.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/opcode.c b/opcode.c
index 615ea1ed..cde3dcdc 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
3** TecCGraf - PUC-Rio 3** TecCGraf - PUC-Rio
4*/ 4*/
5 5
6char *rcs_opcode="$Id: opcode.c,v 3.88 1997/03/31 14:17:09 roberto Exp roberto $"; 6char *rcs_opcode="$Id: opcode.c,v 3.89 1997/03/31 20:59:09 roberto Exp roberto $";
7 7
8#include <setjmp.h> 8#include <setjmp.h>
9#include <stdio.h> 9#include <stdio.h>
@@ -898,7 +898,7 @@ lua_Object lua_basicgetglobal (char *name)
898/* 898/*
899** Store top of the stack at a global variable array field. 899** Store top of the stack at a global variable array field.
900*/ 900*/
901static void storeglobal (Word n) 901static void setglobal (Word n)
902{ 902{
903 TObject *oldvalue = &lua_table[n].object; 903 TObject *oldvalue = &lua_table[n].object;
904 TObject *im = luaI_getimbyObj(oldvalue, IM_SETGLOBAL); 904 TObject *im = luaI_getimbyObj(oldvalue, IM_SETGLOBAL);
@@ -917,13 +917,13 @@ static void storeglobal (Word n)
917} 917}
918 918
919 919
920void lua_storeglobal (char *name) 920void lua_setglobal (char *name)
921{ 921{
922 adjustC(1); 922 adjustC(1);
923 storeglobal(luaI_findsymbolbyname(name)); 923 setglobal(luaI_findsymbolbyname(name));
924} 924}
925 925
926void lua_basicstoreglobal (char *name) 926void lua_basicsetglobal (char *name)
927{ 927{
928 Word n = luaI_findsymbolbyname(name); 928 Word n = luaI_findsymbolbyname(name);
929 adjustC(1); 929 adjustC(1);
@@ -1229,7 +1229,7 @@ static StkId lua_execute (Byte *pc, StkId base)
1229 { 1229 {
1230 Word w; 1230 Word w;
1231 get_word(w,pc); 1231 get_word(w,pc);
1232 storeglobal(w); 1232 setglobal(w);
1233 } 1233 }
1234 break; 1234 break;
1235 1235