diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-23 11:58:02 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-23 11:58:02 -0200 |
commit | e5743adb21c295e9903c394096c6f3737fb6dec4 (patch) | |
tree | e7eb7e12615bd9d4eba5c2b8956bc09f416cd361 | |
parent | 514783de9d6cd538d1a51aa8979b7763132730ac (diff) | |
download | lua-e5743adb21c295e9903c394096c6f3737fb6dec4.tar.gz lua-e5743adb21c295e9903c394096c6f3737fb6dec4.tar.bz2 lua-e5743adb21c295e9903c394096c6f3737fb6dec4.zip |
macros `key', `val', and `node' don't need the state
-rw-r--r-- | lapi.c | 10 | ||||
-rw-r--r-- | lgc.c | 6 | ||||
-rw-r--r-- | ltable.h | 8 |
3 files changed, 12 insertions, 12 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 1.56 1999/11/11 17:02:40 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 1.57 1999/11/22 13:12:07 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -420,10 +420,10 @@ const char *lua_nextvar (lua_State *L, const char *varname) { | |||
420 | int luaA_next (lua_State *L, const Hash *t, int i) { | 420 | int luaA_next (lua_State *L, const Hash *t, int i) { |
421 | int tsize = t->size; | 421 | int tsize = t->size; |
422 | for (; i<tsize; i++) { | 422 | for (; i<tsize; i++) { |
423 | Node *n = node(L, t, i); | 423 | Node *n = node(t, i); |
424 | if (ttype(val(L, n)) != LUA_T_NIL) { | 424 | if (ttype(val(n)) != LUA_T_NIL) { |
425 | luaA_pushobject(L, key(L, n)); | 425 | luaA_pushobject(L, key(n)); |
426 | luaA_pushobject(L, val(L, n)); | 426 | luaA_pushobject(L, val(n)); |
427 | return i+1; /* index to be used next time */ | 427 | return i+1; /* index to be used next time */ |
428 | } | 428 | } |
429 | } | 429 | } |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.c,v 1.31 1999/11/10 15:40:46 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 1.32 1999/11/22 13:12:07 roberto Exp roberto $ |
3 | ** Garbage Collector | 3 | ** Garbage Collector |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -54,8 +54,8 @@ static void hashmark (lua_State *L, Hash *h) { | |||
54 | int i; | 54 | int i; |
55 | h->marked = 1; | 55 | h->marked = 1; |
56 | for (i=h->size-1; i>=0; i--) { | 56 | for (i=h->size-1; i>=0; i--) { |
57 | Node *n = node(L, h,i); | 57 | Node *n = node(h,i); |
58 | if (ttype(key(L, n)) != LUA_T_NIL) { | 58 | if (ttype(key(n)) != LUA_T_NIL) { |
59 | markobject(L, &n->key); | 59 | markobject(L, &n->key); |
60 | markobject(L, &n->val); | 60 | markobject(L, &n->val); |
61 | } | 61 | } |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltable.h,v 1.15 1999/10/26 10:53:40 roberto Exp roberto $ | 2 | ** $Id: ltable.h,v 1.16 1999/11/22 13:12:07 roberto Exp roberto $ |
3 | ** Lua tables (hash) | 3 | ** Lua tables (hash) |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -10,9 +10,9 @@ | |||
10 | #include "lobject.h" | 10 | #include "lobject.h" |
11 | 11 | ||
12 | 12 | ||
13 | #define node(L, t,i) (&(t)->node[i]) | 13 | #define node(t,i) (&(t)->node[i]) |
14 | #define key(L, n) (&(n)->key) | 14 | #define key(n) (&(n)->key) |
15 | #define val(L, n) (&(n)->val) | 15 | #define val(n) (&(n)->val) |
16 | 16 | ||
17 | #define luaH_move(L, t,from,to) (luaH_setint(L, t, to, luaH_getint(L, t, from))) | 17 | #define luaH_move(L, t,from,to) (luaH_setint(L, t, to, luaH_getint(L, t, from))) |
18 | 18 | ||