lua

commit a25b8ff69c76515563c18dad715ee8daa8b847fd
parent 15b823ce4fde81d20486428e52a5a608d62f2465
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 15 Dec 2009 09:24:52 -0200

detail ('lua_tolstring' instead of lua_objlen)

Diffstat:
M
lbaselib.c
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lbaselib.c b/lbaselib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbaselib.c,v 1.230 2009/12/10 18:17:37 roberto Exp roberto $
+** $Id: lbaselib.c,v 1.231 2009/12/11 13:40:44 roberto Exp roberto $
 ** Basic library
 ** See Copyright Notice in lua.h
 */
@@ -346,12 +346,13 @@ static const char *generic_reader (lua_State *L, void *ud, size_t *size) {
 static int luaB_load_aux (lua_State *L, int farg) {
   int status;
   Readstat stat;
-  const char *s = lua_tostring(L, farg);
+  size_t l;
+  const char *s = lua_tolstring(L, farg, &l);
   stat.mode = luaL_optstring(L, farg + 2, "bt");
   if (s != NULL) {  /* loading a string? */
     const char *chunkname = luaL_optstring(L, farg + 1, s);
     status = (checkrights(L, stat.mode, s) != NULL)
-           || luaL_loadbuffer(L, s, lua_objlen(L, farg), chunkname);
+           || luaL_loadbuffer(L, s, l, chunkname);
   }
   else {  /* loading from a reader function */
     const char *chunkname = luaL_optstring(L, farg + 1, "=(load)");