diff options
Diffstat (limited to 'ltm.c')
-rw-r--r-- | ltm.c | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltm.c,v 1.17 1998/08/21 17:43:44 roberto Exp roberto $ | 2 | ** $Id: ltm.c,v 1.18 1998/12/22 18:10:50 roberto Exp roberto $ |
3 | ** Tag methods | 3 | ** Tag methods |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -46,8 +46,7 @@ static char validevents[NUM_TAGS][IM_N] = { /* ORDER LUA_T, ORDER IM */ | |||
46 | }; | 46 | }; |
47 | 47 | ||
48 | 48 | ||
49 | static int validevent (int t, int e) | 49 | static int validevent (int t, int e) { /* ORDER LUA_T */ |
50 | { /* ORDER LUA_T */ | ||
51 | return (t < LUA_T_NIL) ? 1 : validevents[-t][e]; | 50 | return (t < LUA_T_NIL) ? 1 : validevents[-t][e]; |
52 | } | 51 | } |
53 | 52 | ||
@@ -157,10 +156,9 @@ void luaT_settagmethod (int t, char *event, TObject *func) | |||
157 | } | 156 | } |
158 | 157 | ||
159 | 158 | ||
160 | char *luaT_travtagmethods (int (*fn)(TObject *)) | 159 | char *luaT_travtagmethods (int (*fn)(TObject *)) { /* ORDER IM */ |
161 | { | ||
162 | int e; | 160 | int e; |
163 | for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) { /* ORDER IM */ | 161 | for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) { |
164 | int t; | 162 | int t; |
165 | for (t=0; t>=L->last_tag; t--) | 163 | for (t=0; t>=L->last_tag; t--) |
166 | if (fn(luaT_getim(t,e))) | 164 | if (fn(luaT_getim(t,e))) |