lua

commit 3181dfefee40b9a424b80aa779c671f5f458904c
parent 764e095d7fa903fc3a3578f397ac5e1d5a4c02a1
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 30 Nov 1999 11:06:28 -0200

details

Diffstat:
M
lbuiltin.c
 | 
6
+++---
M
lvm.c
 | 
8
+++++---

2 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/lbuiltin.c b/lbuiltin.c
@@ -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
 ** 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)));
 }
 
-static void luaB_luatag (lua_State *L) {
+static void luaB_tag (lua_State *L) {
   lua_pushnumber(L, lua_tag(L, lua_getparam(L, 1)));
 }
 
@@ -789,7 +789,7 @@ static const struct luaL_reg builtin_funcs[] = {
   {"setglobal", luaB_setglobal},
   {"settag", luaB_settag},
   {"settagmethod", luaB_settagmethod},
-  {"tag", luaB_luatag},
+  {"tag", luaB_tag},
   {"tonumber", luaB_tonumber},
   {"tostring", luaB_tostring},
   {"type", luaB_type},
diff --git a/lvm.c b/lvm.c
@@ -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
 ** 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 nr = r->u.s.len;
   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+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 */
   register const Byte *pc = tf->code;
   const TObject *consts = tf->consts;