diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-30 11:06:50 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-30 11:06:50 -0200 |
commit | 3181dfefee40b9a424b80aa779c671f5f458904c (patch) | |
tree | b5660c41aa8a7e30addb23666cbfebe7f02efd01 /lvm.c | |
parent | 764e095d7fa903fc3a3578f397ac5e1d5a4c02a1 (diff) | |
download | lua-3181dfefee40b9a424b80aa779c671f5f458904c.tar.gz lua-3181dfefee40b9a424b80aa779c671f5f458904c.tar.bz2 lua-3181dfefee40b9a424b80aa779c671f5f458904c.zip |
details
Diffstat (limited to 'lvm.c')
-rw-r--r-- | lvm.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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; |