diff options
-rw-r--r-- | lbuiltin.c | 6 | ||||
-rw-r--r-- | lvm.c | 8 |
2 files changed, 8 insertions, 6 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbuiltin.c,v 1.76 1999/11/26 18:53:03 roberto Exp roberto $ | 2 | ** $Id: lbuiltin.c,v 1.77 1999/11/29 19:11:36 roberto Exp roberto $ |
3 | ** Built-in functions | 3 | ** Built-in functions |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -187,7 +187,7 @@ static void luaB_rawgetglobal (lua_State *L) { | |||
187 | lua_pushobject(L, lua_rawgetglobal(L, luaL_check_string(L, 1))); | 187 | lua_pushobject(L, lua_rawgetglobal(L, luaL_check_string(L, 1))); |
188 | } | 188 | } |
189 | 189 | ||
190 | static void luaB_luatag (lua_State *L) { | 190 | static void luaB_tag (lua_State *L) { |
191 | lua_pushnumber(L, lua_tag(L, lua_getparam(L, 1))); | 191 | lua_pushnumber(L, lua_tag(L, lua_getparam(L, 1))); |
192 | } | 192 | } |
193 | 193 | ||
@@ -789,7 +789,7 @@ static const struct luaL_reg builtin_funcs[] = { | |||
789 | {"setglobal", luaB_setglobal}, | 789 | {"setglobal", luaB_setglobal}, |
790 | {"settag", luaB_settag}, | 790 | {"settag", luaB_settag}, |
791 | {"settagmethod", luaB_settagmethod}, | 791 | {"settagmethod", luaB_settagmethod}, |
792 | {"tag", luaB_luatag}, | 792 | {"tag", luaB_tag}, |
793 | {"tonumber", luaB_tonumber}, | 793 | {"tonumber", luaB_tonumber}, |
794 | {"tostring", luaB_tostring}, | 794 | {"tostring", luaB_tostring}, |
795 | {"type", luaB_type}, | 795 | {"type", luaB_type}, |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 1.66 1999/11/22 13:12:07 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.67 1999/11/25 18:59:43 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -37,7 +37,8 @@ | |||
37 | 37 | ||
38 | 38 | ||
39 | 39 | ||
40 | static TaggedString *strconc (lua_State *L, const TaggedString *l, const TaggedString *r) { | 40 | static TaggedString *strconc (lua_State *L, const TaggedString *l, |
41 | const TaggedString *r) { | ||
41 | long nl = l->u.s.len; | 42 | long nl = l->u.s.len; |
42 | long nr = r->u.s.len; | 43 | long nr = r->u.s.len; |
43 | char *buffer = luaL_openspace(L, nl+nr); | 44 | char *buffer = luaL_openspace(L, nl+nr); |
@@ -298,7 +299,8 @@ static void adjust_varargs (lua_State *L, StkId first_extra_arg) { | |||
298 | ** [stack+base,top). Returns n such that the the results are between | 299 | ** [stack+base,top). Returns n such that the the results are between |
299 | ** [stack+n,top). | 300 | ** [stack+n,top). |
300 | */ | 301 | */ |
301 | StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, StkId base) { | 302 | StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, |
303 | StkId base) { | ||
302 | struct Stack *S = &L->stack; /* to optimize */ | 304 | struct Stack *S = &L->stack; /* to optimize */ |
303 | register const Byte *pc = tf->code; | 305 | register const Byte *pc = tf->code; |
304 | const TObject *consts = tf->consts; | 306 | const TObject *consts = tf->consts; |