diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1998-01-09 12:44:55 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1998-01-09 12:44:55 -0200 |
| commit | 0e1058cfdd07a3751fce1c79b75241cf770266cf (patch) | |
| tree | f8ef57ce0f480bfd3653808f17b6b10b45394633 /lapi.c | |
| parent | 26679b1a48de4f7cfcde985764cb31c78ece4fc3 (diff) | |
| download | lua-0e1058cfdd07a3751fce1c79b75241cf770266cf.tar.gz lua-0e1058cfdd07a3751fce1c79b75241cf770266cf.tar.bz2 lua-0e1058cfdd07a3751fce1c79b75241cf770266cf.zip | |
small optimizations in switch order
Diffstat (limited to 'lapi.c')
| -rw-r--r-- | lapi.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lapi.c,v 1.17 1998/01/02 17:46:32 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 1.18 1998/01/07 16:26:48 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 | */ |
| @@ -39,12 +39,12 @@ static int normalized_type (TObject *o) | |||
| 39 | { | 39 | { |
| 40 | int t = ttype(o); | 40 | int t = ttype(o); |
| 41 | switch (t) { | 41 | switch (t) { |
| 42 | case LUA_T_CLMARK: | ||
| 43 | return LUA_T_CLOSURE; | ||
| 44 | case LUA_T_PMARK: | 42 | case LUA_T_PMARK: |
| 45 | return LUA_T_PROTO; | 43 | return LUA_T_PROTO; |
| 46 | case LUA_T_CMARK: | 44 | case LUA_T_CMARK: |
| 47 | return LUA_T_CPROTO; | 45 | return LUA_T_CPROTO; |
| 46 | case LUA_T_CLMARK: | ||
| 47 | return LUA_T_CLOSURE; | ||
| 48 | default: | 48 | default: |
| 49 | return t; | 49 | return t; |
| 50 | } | 50 | } |
| @@ -382,12 +382,12 @@ int lua_tag (lua_Object lo) | |||
| 382 | return o->value.ts->u.d.tag; | 382 | return o->value.ts->u.d.tag; |
| 383 | case LUA_T_ARRAY: | 383 | case LUA_T_ARRAY: |
| 384 | return o->value.a->htag; | 384 | return o->value.a->htag; |
| 385 | case LUA_T_CLOSURE: case LUA_T_CLMARK: | ||
| 386 | return o->value.cl->consts[0].ttype; | ||
| 387 | case LUA_T_PMARK: | 385 | case LUA_T_PMARK: |
| 388 | return LUA_T_PROTO; | 386 | return LUA_T_PROTO; |
| 389 | case LUA_T_CMARK: | 387 | case LUA_T_CMARK: |
| 390 | return LUA_T_CPROTO; | 388 | return LUA_T_CPROTO; |
| 389 | case LUA_T_CLOSURE: case LUA_T_CLMARK: | ||
| 390 | return o->value.cl->consts[0].ttype; | ||
| 391 | #ifdef DEBUG | 391 | #ifdef DEBUG |
| 392 | case LUA_T_LINE: | 392 | case LUA_T_LINE: |
| 393 | lua_error("internal error"); | 393 | lua_error("internal error"); |
