rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details

This commit is contained in:
Roberto Ierusalimschy 1999-11-30 11:06:50 -02:00
parent 764e095d7f
commit 3181dfefee
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lbuiltin.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbuiltin.c,v 1.76 1999/11/26 18:53:03 roberto Exp roberto $ ** $Id: lbuiltin.c,v 1.77 1999/11/29 19:11:36 roberto Exp roberto $
** Built-in functions ** Built-in functions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -187,7 +187,7 @@ static void luaB_rawgetglobal (lua_State *L) {
lua_pushobject(L, lua_rawgetglobal(L, luaL_check_string(L, 1))); lua_pushobject(L, lua_rawgetglobal(L, luaL_check_string(L, 1)));
} }
static void luaB_luatag (lua_State *L) { static void luaB_tag (lua_State *L) {
lua_pushnumber(L, lua_tag(L, lua_getparam(L, 1))); lua_pushnumber(L, lua_tag(L, lua_getparam(L, 1)));
} }
@ -789,7 +789,7 @@ static const struct luaL_reg builtin_funcs[] = {
{"setglobal", luaB_setglobal}, {"setglobal", luaB_setglobal},
{"settag", luaB_settag}, {"settag", luaB_settag},
{"settagmethod", luaB_settagmethod}, {"settagmethod", luaB_settagmethod},
{"tag", luaB_luatag}, {"tag", luaB_tag},
{"tonumber", luaB_tonumber}, {"tonumber", luaB_tonumber},
{"tostring", luaB_tostring}, {"tostring", luaB_tostring},
{"type", luaB_type}, {"type", luaB_type},

8
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.66 1999/11/22 13:12:07 roberto Exp roberto $ ** $Id: lvm.c,v 1.67 1999/11/25 18:59:43 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -37,7 +37,8 @@
static TaggedString *strconc (lua_State *L, const TaggedString *l, const TaggedString *r) { static TaggedString *strconc (lua_State *L, const TaggedString *l,
const TaggedString *r) {
long nl = l->u.s.len; long nl = l->u.s.len;
long nr = r->u.s.len; long nr = r->u.s.len;
char *buffer = luaL_openspace(L, nl+nr); char *buffer = luaL_openspace(L, nl+nr);
@ -298,7 +299,8 @@ static void adjust_varargs (lua_State *L, StkId first_extra_arg) {
** [stack+base,top). Returns n such that the the results are between ** [stack+base,top). Returns n such that the the results are between
** [stack+n,top). ** [stack+n,top).
*/ */
StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, StkId base) { StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf,
StkId base) {
struct Stack *S = &L->stack; /* to optimize */ struct Stack *S = &L->stack; /* to optimize */
register const Byte *pc = tf->code; register const Byte *pc = tf->code;
const TObject *consts = tf->consts; const TObject *consts = tf->consts;