aboutsummaryrefslogtreecommitdiff
path: root/lapi.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1998-01-09 12:44:55 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1998-01-09 12:44:55 -0200
commit0e1058cfdd07a3751fce1c79b75241cf770266cf (patch)
treef8ef57ce0f480bfd3653808f17b6b10b45394633 /lapi.c
parent26679b1a48de4f7cfcde985764cb31c78ece4fc3 (diff)
downloadlua-0e1058cfdd07a3751fce1c79b75241cf770266cf.tar.gz
lua-0e1058cfdd07a3751fce1c79b75241cf770266cf.tar.bz2
lua-0e1058cfdd07a3751fce1c79b75241cf770266cf.zip
small optimizations in switch order
Diffstat (limited to 'lapi.c')
-rw-r--r--lapi.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/lapi.c b/lapi.c
index 63e6dbfd..edce0266 100644
--- a/lapi.c
+++ b/lapi.c
@@ -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");