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 | ||
