diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-04-01 16:02:43 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-04-01 16:02:43 -0300 |
commit | 59744f03112d4d0a3b589d99c780c24186e277fc (patch) | |
tree | fde44ed71f6eb111d677fc7f929acd2ed5088929 /opcode.c | |
parent | bb2e2bec18a322c27066c5898a239129cee46ec9 (diff) | |
download | lua-59744f03112d4d0a3b589d99c780c24186e277fc.tar.gz lua-59744f03112d4d0a3b589d99c780c24186e277fc.tar.bz2 lua-59744f03112d4d0a3b589d99c780c24186e277fc.zip |
"storeglobal" changed to "setglobal"
Diffstat (limited to 'opcode.c')
-rw-r--r-- | opcode.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_opcode="$Id: opcode.c,v 3.88 1997/03/31 14:17:09 roberto Exp roberto $"; | 6 | char *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 | */ |
901 | static void storeglobal (Word n) | 901 | static 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 | ||
920 | void lua_storeglobal (char *name) | 920 | void 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 | ||
926 | void lua_basicstoreglobal (char *name) | 926 | void 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 | ||