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; |
