projects / openwrt.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
bcm63xx: add initial support for bcm6368 boards
[openwrt.git] / package / lua / patches / 010-lua-5.1.3-lnum-full-260308.patch
diff --git a/package/lua/patches/010-lua-5.1.3-lnum-full-260308.patch b/package/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
index a9cc95f..6190945 100644 (file)
--- a/package/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
+++ b/package/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
@@ -1,7 +1,6 @@
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/Makefile lua-5.1.3-patched/src/Makefile
---- ../lua-5.1.3/src/Makefile  2008-01-19 21:37:58.000000000 +0200
-+++ lua-5.1.3-patched/src/Makefile     2008-03-26 13:05:24.000000000 +0200
-@@ -25,7 +25,7 @@
+--- a/src/Makefile
++++ b/src/Makefile
+@@ -25,7 +25,7 @@ PLATS= aix ansi bsd freebsd generic linu
  LUA_A=        liblua.a
  CORE_O=       lapi.o lcode.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o lmem.o \
        lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o  \
  LUA_A=        liblua.a
  CORE_O=       lapi.o lcode.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o lmem.o \
        lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o  \
@@ -10,7 +9,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/Makefile lua-5.1.3
  LIB_O=        lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \
        lstrlib.o loadlib.o linit.o
  
  LIB_O=        lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \
        lstrlib.o loadlib.o linit.o
  
-@@ -148,6 +148,7 @@
+@@ -148,6 +148,7 @@ llex.o: llex.c lua.h luaconf.h ldo.h lob
  lmathlib.o: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h
  lmem.o: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \
    ltm.h lzio.h lmem.h ldo.h
  lmathlib.o: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h
  lmem.o: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \
    ltm.h lzio.h lmem.h ldo.h
@@ -18,7 +17,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/Makefile lua-5.1.3
  loadlib.o: loadlib.c lua.h luaconf.h lauxlib.h lualib.h
  lobject.o: lobject.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h \
    ltm.h lzio.h lmem.h lstring.h lgc.h lvm.h
  loadlib.o: loadlib.c lua.h luaconf.h lauxlib.h lualib.h
  lobject.o: lobject.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h \
    ltm.h lzio.h lmem.h lstring.h lgc.h lvm.h
-@@ -179,4 +180,18 @@
+@@ -179,4 +180,18 @@ lzio.o: lzio.c lua.h luaconf.h llimits.h
  print.o: print.c ldebug.h lstate.h lua.h luaconf.h lobject.h llimits.h \
    ltm.h lzio.h lmem.h lopcodes.h lundump.h
  
  print.o: print.c ldebug.h lstate.h lua.h luaconf.h lobject.h llimits.h \
    ltm.h lzio.h lmem.h lopcodes.h lundump.h
  
@@ -37,9 +36,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/Makefile lua-5.1.3
 +print.c: lnum.h
 +
  # (end of Makefile)
 +print.c: lnum.h
 +
  # (end of Makefile)
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-patched/src/lapi.c
---- ../lua-5.1.3/src/lapi.c    2008-01-03 17:20:39.000000000 +0200
-+++ lua-5.1.3-patched/src/lapi.c       2008-03-19 09:52:15.000000000 +0200
+--- a/src/lapi.c
++++ b/src/lapi.c
 @@ -28,7 +28,7 @@
  #include "ltm.h"
  #include "lundump.h"
 @@ -28,7 +28,7 @@
  #include "ltm.h"
  #include "lundump.h"
@@ -49,7 +47,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
  
  
  const char lua_ident[] =
  
  
  const char lua_ident[] =
-@@ -242,12 +242,13 @@
+@@ -241,12 +241,13 @@ LUA_API void lua_pushvalue (lua_State *L
  
  LUA_API int lua_type (lua_State *L, int idx) {
    StkId o = index2adr(L, idx);
  
  LUA_API int lua_type (lua_State *L, int idx) {
    StkId o = index2adr(L, idx);
@@ -64,7 +62,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
    return (t == LUA_TNONE) ? "no value" : luaT_typenames[t];
  }
  
    return (t == LUA_TNONE) ? "no value" : luaT_typenames[t];
  }
  
-@@ -265,6 +266,14 @@
+@@ -264,6 +265,14 @@ LUA_API int lua_isnumber (lua_State *L, 
  }
  
  
  }
  
  
@@ -79,7 +77,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
  LUA_API int lua_isstring (lua_State *L, int idx) {
    int t = lua_type(L, idx);
    return (t == LUA_TSTRING || t == LUA_TNUMBER);
  LUA_API int lua_isstring (lua_State *L, int idx) {
    int t = lua_type(L, idx);
    return (t == LUA_TSTRING || t == LUA_TNUMBER);
-@@ -310,31 +319,66 @@
+@@ -309,31 +318,66 @@ LUA_API int lua_lessthan (lua_State *L, 
  }
  
  
  }
  
  
@@ -156,7 +154,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
  LUA_API int lua_toboolean (lua_State *L, int idx) {
    const TValue *o = index2adr(L, idx);
    return !l_isfalse(o);
  LUA_API int lua_toboolean (lua_State *L, int idx) {
    const TValue *o = index2adr(L, idx);
    return !l_isfalse(o);
-@@ -365,6 +409,7 @@
+@@ -364,6 +408,7 @@ LUA_API size_t lua_objlen (lua_State *L,
      case LUA_TSTRING: return tsvalue(o)->len;
      case LUA_TUSERDATA: return uvalue(o)->len;
      case LUA_TTABLE: return luaH_getn(hvalue(o));
      case LUA_TSTRING: return tsvalue(o)->len;
      case LUA_TUSERDATA: return uvalue(o)->len;
      case LUA_TTABLE: return luaH_getn(hvalue(o));
@@ -164,7 +162,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
      case LUA_TNUMBER: {
        size_t l;
        lua_lock(L);  /* `luaV_tostring' may create a new string */
      case LUA_TNUMBER: {
        size_t l;
        lua_lock(L);  /* `luaV_tostring' may create a new string */
-@@ -427,6 +472,8 @@
+@@ -426,6 +471,8 @@ LUA_API void lua_pushnil (lua_State *L) 
  }
  
  
  }
  
  
@@ -173,7 +171,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
  LUA_API void lua_pushnumber (lua_State *L, lua_Number n) {
    lua_lock(L);
    setnvalue(L->top, n);
  LUA_API void lua_pushnumber (lua_State *L, lua_Number n) {
    lua_lock(L);
    setnvalue(L->top, n);
-@@ -435,12 +482,22 @@
+@@ -434,12 +481,22 @@ LUA_API void lua_pushnumber (lua_State *
  }
  
  
  }
  
  
@@ -198,7 +196,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
  
  
  LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) {
  
  
  LUA_API void lua_pushlstring (lua_State *L, const char *s, size_t len) {
-@@ -570,7 +627,7 @@
+@@ -569,7 +626,7 @@ LUA_API void lua_rawgeti (lua_State *L, 
    lua_lock(L);
    o = index2adr(L, idx);
    api_check(L, ttistable(o));
    lua_lock(L);
    o = index2adr(L, idx);
    api_check(L, ttistable(o));
@@ -207,7 +205,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
    api_incr_top(L);
    lua_unlock(L);
  }
    api_incr_top(L);
    lua_unlock(L);
  }
-@@ -598,6 +655,9 @@
+@@ -597,6 +654,9 @@ LUA_API int lua_getmetatable (lua_State 
      case LUA_TUSERDATA:
        mt = uvalue(obj)->metatable;
        break;
      case LUA_TUSERDATA:
        mt = uvalue(obj)->metatable;
        break;
@@ -217,7 +215,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
      default:
        mt = G(L)->mt[ttype(obj)];
        break;
      default:
        mt = G(L)->mt[ttype(obj)];
        break;
-@@ -688,7 +748,7 @@
+@@ -687,7 +747,7 @@ LUA_API void lua_rawseti (lua_State *L, 
    api_checknelems(L, 1);
    o = index2adr(L, idx);
    api_check(L, ttistable(o));
    api_checknelems(L, 1);
    o = index2adr(L, idx);
    api_check(L, ttistable(o));
@@ -226,7 +224,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
    luaC_barriert(L, hvalue(o), L->top-1);
    L->top--;
    lua_unlock(L);
    luaC_barriert(L, hvalue(o), L->top-1);
    L->top--;
    lua_unlock(L);
-@@ -722,7 +782,7 @@
+@@ -721,7 +781,7 @@ LUA_API int lua_setmetatable (lua_State 
        break;
      }
      default: {
        break;
      }
      default: {
@@ -235,7 +233,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
        break;
      }
    }
        break;
      }
    }
-@@ -1083,3 +1143,32 @@
+@@ -1085,3 +1145,32 @@ LUA_API const char *lua_setupvalue (lua_
    return name;
  }
  
    return name;
  }
  
@@ -268,9 +266,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.c lua-5.1.3-p
 +  else lua_pushnumber( L, nvalue_fast(o) );
 +  return 1;
 +}
 +  else lua_pushnumber( L, nvalue_fast(o) );
 +  return 1;
 +}
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.h lua-5.1.3-patched/src/lapi.h
---- ../lua-5.1.3/src/lapi.h    2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lapi.h       2008-03-03 12:47:53.000000000 +0200
+--- a/src/lapi.h
++++ b/src/lapi.h
 @@ -13,4 +13,6 @@
  
  LUAI_FUNC void luaA_pushobject (lua_State *L, const TValue *o);
 @@ -13,4 +13,6 @@
  
  LUAI_FUNC void luaA_pushobject (lua_State *L, const TValue *o);
@@ -278,10 +275,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lapi.h lua-5.1.3-p
 +int lua_pushvalue_as_number (lua_State *L, int idx);
 +
  #endif
 +int lua_pushvalue_as_number (lua_State *L, int idx);
 +
  #endif
-Binary files ../lua-5.1.3/src/lapi.o and lua-5.1.3-patched/src/lapi.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.c lua-5.1.3-patched/src/lauxlib.c
---- ../lua-5.1.3/src/lauxlib.c 2008-01-21 15:20:51.000000000 +0200
-+++ lua-5.1.3-patched/src/lauxlib.c    2008-03-19 09:51:27.000000000 +0200
+--- a/src/lauxlib.c
++++ b/src/lauxlib.c
 @@ -23,7 +23,7 @@
  #include "lua.h"
  
 @@ -23,7 +23,7 @@
  #include "lua.h"
  
@@ -291,7 +286,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.c lua-5.1.
  
  #define FREELIST_REF  0       /* free list of references */
  
  
  #define FREELIST_REF  0       /* free list of references */
  
-@@ -66,7 +66,7 @@
+@@ -66,7 +66,7 @@ LUALIB_API int luaL_typerror (lua_State 
  
  
  static void tag_error (lua_State *L, int narg, int tag) {
  
  
  static void tag_error (lua_State *L, int narg, int tag) {
@@ -300,7 +295,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.c lua-5.1.
  }
  
  
  }
  
  
-@@ -188,8 +188,8 @@
+@@ -188,8 +188,8 @@ LUALIB_API lua_Number luaL_optnumber (lu
  
  LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) {
    lua_Integer d = lua_tointeger(L, narg);
  
  LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) {
    lua_Integer d = lua_tointeger(L, narg);
@@ -311,7 +306,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.c lua-5.1.
    return d;
  }
  
    return d;
  }
  
-@@ -200,6 +200,16 @@
+@@ -200,6 +200,16 @@ LUALIB_API lua_Integer luaL_optinteger (
  }
  
  
  }
  
  
@@ -328,10 +323,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.c lua-5.1.
  LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) {
    if (!lua_getmetatable(L, obj))  /* no metatable? */
      return 0;
  LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) {
    if (!lua_getmetatable(L, obj))  /* no metatable? */
      return 0;
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.h lua-5.1.3-patched/src/lauxlib.h
---- ../lua-5.1.3/src/lauxlib.h 2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lauxlib.h    2008-03-12 23:15:22.000000000 +0200
-@@ -57,6 +57,12 @@
+--- a/src/lauxlib.h
++++ b/src/lauxlib.h
+@@ -57,6 +57,12 @@ LUALIB_API lua_Number (luaL_optnumber) (
  LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg);
  LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg,
                                            lua_Integer def);
  LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg);
  LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg,
                                            lua_Integer def);
@@ -344,10 +338,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lauxlib.h lua-5.1.
  
  LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg);
  LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t);
  
  LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg);
  LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t);
-Binary files ../lua-5.1.3/src/lauxlib.o and lua-5.1.3-patched/src/lauxlib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1.3-patched/src/lbaselib.c
---- ../lua-5.1.3/src/lbaselib.c        2008-01-20 15:53:22.000000000 +0200
-+++ lua-5.1.3-patched/src/lbaselib.c   2008-03-13 10:42:50.000000000 +0200
+--- a/src/lbaselib.c
++++ b/src/lbaselib.c
 @@ -18,7 +18,9 @@
  
  #include "lauxlib.h"
 @@ -18,7 +18,9 @@
  
  #include "lauxlib.h"
@@ -359,7 +351,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1
  
  
  
  
  
  
-@@ -54,20 +56,25 @@
+@@ -54,20 +56,25 @@ static int luaB_tonumber (lua_State *L) 
    int base = luaL_optint(L, 2, 10);
    if (base == 10) {  /* standard conversion */
      luaL_checkany(L, 1);
    int base = luaL_optint(L, 2, 10);
    if (base == 10) {  /* standard conversion */
      luaL_checkany(L, 1);
@@ -390,7 +382,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1
          lua_pushnumber(L, (lua_Number)n);
          return 1;
        }
          lua_pushnumber(L, (lua_Number)n);
          return 1;
        }
-@@ -144,7 +151,7 @@
+@@ -144,7 +151,7 @@ static int luaB_setfenv (lua_State *L) {
    luaL_checktype(L, 2, LUA_TTABLE);
    getfunc(L, 0);
    lua_pushvalue(L, 2);
    luaL_checktype(L, 2, LUA_TTABLE);
    getfunc(L, 0);
    lua_pushvalue(L, 2);
@@ -399,7 +391,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1
      /* change environment of current thread */
      lua_pushthread(L);
      lua_insert(L, -2);
      /* change environment of current thread */
      lua_pushthread(L);
      lua_insert(L, -2);
-@@ -209,7 +216,7 @@
+@@ -209,7 +216,7 @@ static int luaB_collectgarbage (lua_Stat
        return 1;
      }
      default: {
        return 1;
      }
      default: {
@@ -408,7 +400,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1
        return 1;
      }
    }
        return 1;
      }
    }
-@@ -629,6 +636,8 @@
+@@ -631,6 +638,8 @@ static void base_open (lua_State *L) {
    luaL_register(L, "_G", base_funcs);
    lua_pushliteral(L, LUA_VERSION);
    lua_setglobal(L, "_VERSION");  /* set global _VERSION */
    luaL_register(L, "_G", base_funcs);
    lua_pushliteral(L, LUA_VERSION);
    lua_setglobal(L, "_VERSION");  /* set global _VERSION */
@@ -417,10 +409,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lbaselib.c lua-5.1
    /* `ipairs' and `pairs' need auxliliary functions as upvalues */
    auxopen(L, "ipairs", luaB_ipairs, ipairsaux);
    auxopen(L, "pairs", luaB_pairs, luaB_next);
    /* `ipairs' and `pairs' need auxliliary functions as upvalues */
    auxopen(L, "ipairs", luaB_ipairs, ipairsaux);
    auxopen(L, "pairs", luaB_pairs, luaB_next);
-Binary files ../lua-5.1.3/src/lbaselib.o and lua-5.1.3-patched/src/lbaselib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-patched/src/lcode.c
---- ../lua-5.1.3/src/lcode.c   2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/lcode.c      2008-03-19 10:02:51.000000000 +0200
+--- a/src/lcode.c
++++ b/src/lcode.c
 @@ -22,13 +22,18 @@
  #include "lopcodes.h"
  #include "lparser.h"
 @@ -22,13 +22,18 @@
  #include "lopcodes.h"
  #include "lparser.h"
@@ -442,7 +432,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
  }
  
  
  }
  
  
-@@ -231,12 +236,16 @@
+@@ -231,12 +236,16 @@ static int addk (FuncState *fs, TValue *
    TValue *idx = luaH_set(L, fs->h, k);
    Proto *f = fs->f;
    int oldsize = f->sizek;
    TValue *idx = luaH_set(L, fs->h, k);
    Proto *f = fs->f;
    int oldsize = f->sizek;
@@ -463,7 +453,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
      luaM_growvector(L, f->k, fs->nk, f->sizek, TValue,
                      MAXARG_Bx, "constant table overflow");
      while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]);
      luaM_growvector(L, f->k, fs->nk, f->sizek, TValue,
                      MAXARG_Bx, "constant table overflow");
      while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]);
-@@ -261,6 +270,21 @@
+@@ -261,6 +270,21 @@ int luaK_numberK (FuncState *fs, lua_Num
  }
  
  
  }
  
  
@@ -485,7 +475,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
  static int boolK (FuncState *fs, int b) {
    TValue o;
    setbvalue(&o, b);
  static int boolK (FuncState *fs, int b) {
    TValue o;
    setbvalue(&o, b);
-@@ -359,6 +383,16 @@
+@@ -359,6 +383,16 @@ static void discharge2reg (FuncState *fs
        luaK_codeABx(fs, OP_LOADK, reg, luaK_numberK(fs, e->u.nval));
        break;
      }
        luaK_codeABx(fs, OP_LOADK, reg, luaK_numberK(fs, e->u.nval));
        break;
      }
@@ -502,7 +492,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
      case VRELOCABLE: {
        Instruction *pc = &getcode(fs, e);
        SETARG_A(*pc, reg);
      case VRELOCABLE: {
        Instruction *pc = &getcode(fs, e);
        SETARG_A(*pc, reg);
-@@ -444,6 +478,10 @@
+@@ -444,6 +478,10 @@ void luaK_exp2val (FuncState *fs, expdes
  int luaK_exp2RK (FuncState *fs, expdesc *e) {
    luaK_exp2val(fs, e);
    switch (e->k) {
  int luaK_exp2RK (FuncState *fs, expdesc *e) {
    luaK_exp2val(fs, e);
    switch (e->k) {
@@ -513,7 +503,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
      case VKNUM:
      case VTRUE:
      case VFALSE:
      case VKNUM:
      case VTRUE:
      case VFALSE:
-@@ -451,6 +489,10 @@
+@@ -451,6 +489,10 @@ int luaK_exp2RK (FuncState *fs, expdesc 
        if (fs->nk <= MAXINDEXRK) {  /* constant fit in RK operand? */
          e->u.s.info = (e->k == VNIL)  ? nilK(fs) :
                        (e->k == VKNUM) ? luaK_numberK(fs, e->u.nval) :
        if (fs->nk <= MAXINDEXRK) {  /* constant fit in RK operand? */
          e->u.s.info = (e->k == VNIL)  ? nilK(fs) :
                        (e->k == VKNUM) ? luaK_numberK(fs, e->u.nval) :
@@ -524,7 +514,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
                                          boolK(fs, (e->k == VTRUE));
          e->k = VK;
          return RKASK(e->u.s.info);
                                          boolK(fs, (e->k == VTRUE));
          e->k = VK;
          return RKASK(e->u.s.info);
-@@ -540,7 +582,10 @@
+@@ -540,7 +582,10 @@ void luaK_goiftrue (FuncState *fs, expde
    int pc;  /* pc of last jump */
    luaK_dischargevars(fs, e);
    switch (e->k) {
    int pc;  /* pc of last jump */
    luaK_dischargevars(fs, e);
    switch (e->k) {
@@ -536,7 +526,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
        pc = NO_JUMP;  /* always true; do nothing */
        break;
      }
        pc = NO_JUMP;  /* always true; do nothing */
        break;
      }
-@@ -598,7 +643,10 @@
+@@ -598,7 +643,10 @@ static void codenot (FuncState *fs, expd
        e->k = VTRUE;
        break;
      }
        e->k = VTRUE;
        break;
      }
@@ -548,7 +538,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
        e->k = VFALSE;
        break;
      }
        e->k = VFALSE;
        break;
      }
-@@ -634,25 +682,70 @@
+@@ -634,25 +682,70 @@ void luaK_indexed (FuncState *fs, expdes
  
  static int constfolding (OpCode op, expdesc *e1, expdesc *e2) {
    lua_Number v1, v2, r;
  
  static int constfolding (OpCode op, expdesc *e1, expdesc *e2) {
    lua_Number v1, v2, r;
@@ -624,7 +614,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
    e1->u.nval = r;
    return 1;
  }
    e1->u.nval = r;
    return 1;
  }
-@@ -696,7 +789,8 @@
+@@ -696,7 +789,8 @@ static void codecomp (FuncState *fs, OpC
  
  void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) {
    expdesc e2;
  
  void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) {
    expdesc e2;
@@ -634,10 +624,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.c lua-5.1.3-
    switch (op) {
      case OPR_MINUS: {
        if (!isnumeral(e))
    switch (op) {
      case OPR_MINUS: {
        if (!isnumeral(e))
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.h lua-5.1.3-patched/src/lcode.h
---- ../lua-5.1.3/src/lcode.h   2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lcode.h      2008-03-03 12:47:53.000000000 +0200
-@@ -71,6 +71,6 @@
+--- a/src/lcode.h
++++ b/src/lcode.h
+@@ -71,6 +71,6 @@ LUAI_FUNC void luaK_prefix (FuncState *f
  LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v);
  LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2);
  LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore);
  LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v);
  LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2);
  LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore);
@@ -645,12 +634,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lcode.h lua-5.1.3-
 +LUAI_FUNC int luaK_integerK (FuncState *fs, lua_Integer r);
  
  #endif
 +LUAI_FUNC int luaK_integerK (FuncState *fs, lua_Integer r);
  
  #endif
-Binary files ../lua-5.1.3/src/lcode.o and lua-5.1.3-patched/src/lcode.o differ
-Binary files ../lua-5.1.3/src/ldblib.o and lua-5.1.3-patched/src/ldblib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldebug.c lua-5.1.3-patched/src/ldebug.c
---- ../lua-5.1.3/src/ldebug.c  2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/ldebug.c     2008-03-06 22:41:08.000000000 +0200
-@@ -183,7 +183,7 @@
+--- a/src/ldebug.c
++++ b/src/ldebug.c
+@@ -183,7 +183,7 @@ static void collectvalidlines (lua_State
      int *lineinfo = f->l.p->lineinfo;
      int i;
      for (i=0; i<f->l.p->sizelineinfo; i++)
      int *lineinfo = f->l.p->lineinfo;
      int i;
      for (i=0; i<f->l.p->sizelineinfo; i++)
@@ -659,7 +645,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldebug.c lua-5.1.3
      sethvalue(L, L->top, t); 
    }
    incr_top(L);
      sethvalue(L, L->top, t); 
    }
    incr_top(L);
-@@ -550,7 +550,7 @@
+@@ -566,7 +566,7 @@ static int isinstack (CallInfo *ci, cons
  
  void luaG_typeerror (lua_State *L, const TValue *o, const char *op) {
    const char *name = NULL;
  
  void luaG_typeerror (lua_State *L, const TValue *o, const char *op) {
    const char *name = NULL;
@@ -668,7 +654,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldebug.c lua-5.1.3
    const char *kind = (isinstack(L->ci, o)) ?
                           getobjname(L, L->ci, cast_int(o - L->base), &name) :
                           NULL;
    const char *kind = (isinstack(L->ci, o)) ?
                           getobjname(L, L->ci, cast_int(o - L->base), &name) :
                           NULL;
-@@ -578,8 +578,8 @@
+@@ -594,8 +594,8 @@ void luaG_aritherror (lua_State *L, cons
  
  
  int luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) {
  
  
  int luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) {
@@ -679,11 +665,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldebug.c lua-5.1.3
    if (t1[2] == t2[2])
      luaG_runerror(L, "attempt to compare two %s values", t1);
    else
    if (t1[2] == t2[2])
      luaG_runerror(L, "attempt to compare two %s values", t1);
    else
-Binary files ../lua-5.1.3/src/ldebug.o and lua-5.1.3-patched/src/ldebug.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldo.c lua-5.1.3-patched/src/ldo.c
---- ../lua-5.1.3/src/ldo.c     2008-01-19 00:31:22.000000000 +0200
-+++ lua-5.1.3-patched/src/ldo.c        2008-03-06 22:41:31.000000000 +0200
-@@ -219,9 +219,9 @@
+--- a/src/ldo.c
++++ b/src/ldo.c
+@@ -219,9 +219,9 @@ static StkId adjust_varargs (lua_State *
      luaC_checkGC(L);
      htab = luaH_new(L, nvar, 1);  /* create `arg' table */
      for (i=0; i<nvar; i++)  /* put extra arguments into `arg' table */
      luaC_checkGC(L);
      htab = luaH_new(L, nvar, 1);  /* create `arg' table */
      for (i=0; i<nvar; i++)  /* put extra arguments into `arg' table */
@@ -695,11 +679,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldo.c lua-5.1.3-pa
    }
  #endif
    /* move fixed parameters to final position */
    }
  #endif
    /* move fixed parameters to final position */
-Binary files ../lua-5.1.3/src/ldo.o and lua-5.1.3-patched/src/ldo.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldump.c lua-5.1.3-patched/src/ldump.c
---- ../lua-5.1.3/src/ldump.c   2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/ldump.c      2008-03-03 12:47:53.000000000 +0200
-@@ -52,6 +52,11 @@
+--- a/src/ldump.c
++++ b/src/ldump.c
+@@ -52,6 +52,11 @@ static void DumpNumber(lua_Number x, Dum
   DumpVar(x,D);
  }
  
   DumpVar(x,D);
  }
  
@@ -711,7 +693,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldump.c lua-5.1.3-
  static void DumpVector(const void* b, int n, size_t size, DumpState* D)
  {
   DumpInt(n,D);
  static void DumpVector(const void* b, int n, size_t size, DumpState* D)
  {
   DumpInt(n,D);
-@@ -93,8 +98,11 @@
+@@ -93,8 +98,11 @@ static void DumpConstants(const Proto* f
        DumpChar(bvalue(o),D);
        break;
     case LUA_TNUMBER:
        DumpChar(bvalue(o),D);
        break;
     case LUA_TNUMBER:
@@ -724,14 +706,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ldump.c lua-5.1.3-
     case LUA_TSTRING:
        DumpString(rawtsvalue(o),D);
        break;
     case LUA_TSTRING:
        DumpString(rawtsvalue(o),D);
        break;
-Binary files ../lua-5.1.3/src/ldump.o and lua-5.1.3-patched/src/ldump.o differ
-Binary files ../lua-5.1.3/src/lfunc.o and lua-5.1.3-patched/src/lfunc.o differ
-Binary files ../lua-5.1.3/src/lgc.o and lua-5.1.3-patched/src/lgc.o differ
-Binary files ../lua-5.1.3/src/liblua.a and lua-5.1.3-patched/src/liblua.a differ
-Binary files ../lua-5.1.3/src/linit.o and lua-5.1.3-patched/src/linit.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3-patched/src/liolib.c
---- ../lua-5.1.3/src/liolib.c  2008-01-18 19:47:43.000000000 +0200
-+++ lua-5.1.3-patched/src/liolib.c     2008-03-19 10:10:09.000000000 +0200
+--- a/src/liolib.c
++++ b/src/liolib.c
 @@ -9,6 +9,7 @@
  #include <stdio.h>
  #include <stdlib.h>
 @@ -9,6 +9,7 @@
  #include <stdio.h>
  #include <stdlib.h>
@@ -750,7 +726,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
  
  #define IO_INPUT      1
  #define IO_OUTPUT     2
  
  #define IO_INPUT      1
  #define IO_OUTPUT     2
-@@ -269,6 +271,13 @@
+@@ -269,6 +271,13 @@ static int io_lines (lua_State *L) {
  ** =======================================================
  */
  
  ** =======================================================
  */
  
@@ -764,7 +740,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
  
  static int read_number (lua_State *L, FILE *f) {
    lua_Number d;
  
  static int read_number (lua_State *L, FILE *f) {
    lua_Number d;
-@@ -279,6 +288,43 @@
+@@ -279,6 +288,43 @@ static int read_number (lua_State *L, FI
    else return 0;  /* read fails */
  }
  
    else return 0;  /* read fails */
  }
  
@@ -808,7 +784,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
  
  static int test_eof (lua_State *L, FILE *f) {
    int c = getc(f);
  
  static int test_eof (lua_State *L, FILE *f) {
    int c = getc(f);
-@@ -352,6 +398,14 @@
+@@ -352,6 +398,14 @@ static int g_read (lua_State *L, FILE *f
            case 'n':  /* number */
              success = read_number(L, f);
              break;
            case 'n':  /* number */
              success = read_number(L, f);
              break;
@@ -823,7 +799,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
            case 'l':  /* line */
              success = read_line(L, f);
              break;
            case 'l':  /* line */
              success = read_line(L, f);
              break;
-@@ -412,9 +466,10 @@
+@@ -412,9 +466,10 @@ static int g_write (lua_State *L, FILE *
    int status = 1;
    for (; nargs--; arg++) {
      if (lua_type(L, arg) == LUA_TNUMBER) {
    int status = 1;
    for (; nargs--; arg++) {
      if (lua_type(L, arg) == LUA_TNUMBER) {
@@ -837,7 +813,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
      }
      else {
        size_t l;
      }
      else {
        size_t l;
-@@ -457,7 +512,7 @@
+@@ -457,7 +512,7 @@ static int f_setvbuf (lua_State *L) {
    static const char *const modenames[] = {"no", "full", "line", NULL};
    FILE *f = tofile(L);
    int op = luaL_checkoption(L, 2, NULL, modenames);
    static const char *const modenames[] = {"no", "full", "line", NULL};
    FILE *f = tofile(L);
    int op = luaL_checkoption(L, 2, NULL, modenames);
@@ -846,10 +822,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/liolib.c lua-5.1.3
    int res = setvbuf(f, NULL, mode[op], sz);
    return pushresult(L, res == 0, NULL);
  }
    int res = setvbuf(f, NULL, mode[op], sz);
    return pushresult(L, res == 0, NULL);
  }
-Binary files ../lua-5.1.3/src/liolib.o and lua-5.1.3-patched/src/liolib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-patched/src/llex.c
---- ../lua-5.1.3/src/llex.c    2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/llex.c       2008-03-04 11:10:30.000000000 +0200
+--- a/src/llex.c
++++ b/src/llex.c
 @@ -22,6 +22,7 @@
  #include "lstring.h"
  #include "ltable.h"
 @@ -22,6 +22,7 @@
  #include "lstring.h"
  #include "ltable.h"
@@ -877,7 +851,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
      NULL
  };
  
      NULL
  };
  
-@@ -90,7 +95,11 @@
+@@ -90,7 +95,11 @@ static const char *txtToken (LexState *l
    switch (token) {
      case TK_NAME:
      case TK_STRING:
    switch (token) {
      case TK_NAME:
      case TK_STRING:
@@ -889,7 +863,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
        save(ls, '\0');
        return luaZ_buffer(ls->buff);
      default:
        save(ls, '\0');
        return luaZ_buffer(ls->buff);
      default:
-@@ -173,23 +182,27 @@
+@@ -173,23 +182,27 @@ static void buffreplace (LexState *ls, c
      if (p[n] == from) p[n] = to;
  }
  
      if (p[n] == from) p[n] = to;
  }
  
@@ -922,7 +896,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
    lua_assert(isdigit(ls->current));
    do {
      save_and_next(ls);
    lua_assert(isdigit(ls->current));
    do {
      save_and_next(ls);
-@@ -200,8 +213,9 @@
+@@ -200,8 +213,9 @@ static void read_numeral (LexState *ls, 
      save_and_next(ls);
    save(ls, '\0');
    buffreplace(ls, '.', ls->decpoint);  /* follow locale for decimal point */
      save_and_next(ls);
    save(ls, '\0');
    buffreplace(ls, '.', ls->decpoint);  /* follow locale for decimal point */
@@ -934,7 +908,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
  }
  
  
  }
  
  
-@@ -329,6 +343,7 @@
+@@ -329,6 +343,7 @@ static void read_string (LexState *ls, i
  }
  
  
  }
  
  
@@ -942,7 +916,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
  static int llex (LexState *ls, SemInfo *seminfo) {
    luaZ_resetbuffer(ls->buff);
    for (;;) {
  static int llex (LexState *ls, SemInfo *seminfo) {
    luaZ_resetbuffer(ls->buff);
    for (;;) {
-@@ -400,8 +415,7 @@
+@@ -400,8 +415,7 @@ static int llex (LexState *ls, SemInfo *
          }
          else if (!isdigit(ls->current)) return '.';
          else {
          }
          else if (!isdigit(ls->current)) return '.';
          else {
@@ -952,7 +926,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
          }
        }
        case EOZ: {
          }
        }
        case EOZ: {
-@@ -414,8 +428,7 @@
+@@ -414,8 +428,7 @@ static int llex (LexState *ls, SemInfo *
            continue;
          }
          else if (isdigit(ls->current)) {
            continue;
          }
          else if (isdigit(ls->current)) {
@@ -962,10 +936,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.c lua-5.1.3-p
          }
          else if (isalpha(ls->current) || ls->current == '_') {
            /* identifier or reserved word */
          }
          else if (isalpha(ls->current) || ls->current == '_') {
            /* identifier or reserved word */
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.h lua-5.1.3-patched/src/llex.h
---- ../lua-5.1.3/src/llex.h    2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/llex.h       2008-03-04 11:12:08.000000000 +0200
-@@ -29,19 +29,22 @@
+--- a/src/llex.h
++++ b/src/llex.h
+@@ -29,19 +29,22 @@ enum RESERVED {
    TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE,
    /* other terminal symbols */
    TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NUMBER,
    TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE,
    /* other terminal symbols */
    TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_NUMBER,
@@ -993,11 +966,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llex.h lua-5.1.3-p
    TString *ts;
  } SemInfo;  /* semantics information */
  
    TString *ts;
  } SemInfo;  /* semantics information */
  
-Binary files ../lua-5.1.3/src/llex.o and lua-5.1.3-patched/src/llex.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llimits.h lua-5.1.3-patched/src/llimits.h
---- ../lua-5.1.3/src/llimits.h 2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/llimits.h    2008-03-04 11:16:43.000000000 +0200
-@@ -49,6 +49,7 @@
+--- a/src/llimits.h
++++ b/src/llimits.h
+@@ -49,6 +49,7 @@ typedef LUAI_USER_ALIGNMENT_T L_Umaxalig
  
  /* result of a `usual argument conversion' over lua_Number */
  typedef LUAI_UACNUMBER l_uacNumber;
  
  /* result of a `usual argument conversion' over lua_Number */
  typedef LUAI_UACNUMBER l_uacNumber;
@@ -1005,7 +976,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llimits.h lua-5.1.
  
  
  /* internal assertions for in-house debugging */
  
  
  /* internal assertions for in-house debugging */
-@@ -80,7 +81,6 @@
+@@ -80,7 +81,6 @@ typedef LUAI_UACNUMBER l_uacNumber;
  #define cast_int(i)   cast(int, (i))
  
  
  #define cast_int(i)   cast(int, (i))
  
  
@@ -1013,9 +984,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/llimits.h lua-5.1.
  /*
  ** type for virtual-machine instructions
  ** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h)
  /*
  ** type for virtual-machine instructions
  ** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h)
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1.3-patched/src/lmathlib.c
---- ../lua-5.1.3/src/lmathlib.c        2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lmathlib.c   2008-03-26 11:32:25.000000000 +0200
+--- a/src/lmathlib.c
++++ b/src/lmathlib.c
 @@ -4,7 +4,6 @@
  ** See Copyright Notice in lua.h
  */
 @@ -4,7 +4,6 @@
  ** See Copyright Notice in lua.h
  */
@@ -1260,7 +1230,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
    return 1;
  }
  
    return 1;
  }
  
-@@ -138,19 +234,20 @@
+@@ -138,19 +234,20 @@ static int math_rad (lua_State *L) {
  
  static int math_frexp (lua_State *L) {
    int e;
  
  static int math_frexp (lua_State *L) {
    int e;
@@ -1283,7 +1253,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
    int n = lua_gettop(L);  /* number of arguments */
    lua_Number dmin = luaL_checknumber(L, 1);
    int i;
    int n = lua_gettop(L);  /* number of arguments */
    lua_Number dmin = luaL_checknumber(L, 1);
    int i;
-@@ -165,6 +262,7 @@
+@@ -165,6 +262,7 @@ static int math_min (lua_State *L) {
  
  
  static int math_max (lua_State *L) {
  
  
  static int math_max (lua_State *L) {
@@ -1291,7 +1261,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
    int n = lua_gettop(L);  /* number of arguments */
    lua_Number dmax = luaL_checknumber(L, 1);
    int i;
    int n = lua_gettop(L);  /* number of arguments */
    lua_Number dmax = luaL_checknumber(L, 1);
    int i;
-@@ -182,25 +280,20 @@
+@@ -182,25 +280,20 @@ static int math_random (lua_State *L) {
    /* the `%' avoids the (rare) case of r==1, and is needed also because on
       some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */
    lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
    /* the `%' avoids the (rare) case of r==1, and is needed also because on
       some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */
    lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
@@ -1331,7 +1301,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
    }
    return 1;
  }
    }
    return 1;
  }
-@@ -211,6 +304,66 @@
+@@ -211,6 +304,66 @@ static int math_randomseed (lua_State *L
    return 0;
  }
  
    return 0;
  }
  
@@ -1398,7 +1368,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
  
  static const luaL_Reg mathlib[] = {
    {"abs",   math_abs},
  
  static const luaL_Reg mathlib[] = {
    {"abs",   math_abs},
-@@ -241,6 +394,18 @@
+@@ -241,6 +394,18 @@ static const luaL_Reg mathlib[] = {
    {"sqrt",  math_sqrt},
    {"tanh",   math_tanh},
    {"tan",   math_tan},
    {"sqrt",  math_sqrt},
    {"tanh",   math_tanh},
    {"tan",   math_tan},
@@ -1417,7 +1387,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
    {NULL, NULL}
  };
  
    {NULL, NULL}
  };
  
-@@ -252,8 +417,10 @@
+@@ -252,8 +417,10 @@ LUALIB_API int luaopen_math (lua_State *
    luaL_register(L, LUA_MATHLIBNAME, mathlib);
    lua_pushnumber(L, PI);
    lua_setfield(L, -2, "pi");
    luaL_register(L, LUA_MATHLIBNAME, mathlib);
    lua_pushnumber(L, PI);
    lua_setfield(L, -2, "pi");
@@ -1429,11 +1399,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lmathlib.c lua-5.1
  #if defined(LUA_COMPAT_MOD)
    lua_getfield(L, -1, "fmod");
    lua_setfield(L, -2, "mod");
  #if defined(LUA_COMPAT_MOD)
    lua_getfield(L, -1, "fmod");
    lua_setfield(L, -2, "mod");
-Binary files ../lua-5.1.3/src/lmathlib.o and lua-5.1.3-patched/src/lmathlib.o differ
-Binary files ../lua-5.1.3/src/lmem.o and lua-5.1.3-patched/src/lmem.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum.c lua-5.1.3-patched/src/lnum.c
---- ../lua-5.1.3/src/lnum.c    1970-01-01 02:00:00.000000000 +0200
-+++ lua-5.1.3-patched/src/lnum.c       2008-03-26 11:32:25.000000000 +0200
+--- /dev/null
++++ b/src/lnum.c
 @@ -0,0 +1,312 @@
 +/*
 +** $Id: lnum.c,v ... $
 @@ -0,0 +1,312 @@
 +/*
 +** $Id: lnum.c,v ... $
@@ -1747,9 +1714,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum.c lua-5.1.3-p
 +  return 0;
 +}
 +
 +  return 0;
 +}
 +
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum.h lua-5.1.3-patched/src/lnum.h
---- ../lua-5.1.3/src/lnum.h    1970-01-01 02:00:00.000000000 +0200
-+++ lua-5.1.3-patched/src/lnum.h       2008-03-19 11:35:51.000000000 +0200
+--- /dev/null
++++ b/src/lnum.h
 @@ -0,0 +1,116 @@
 +/*
 +** $Id: lnum.h,v ... $
 @@ -0,0 +1,116 @@
 +/*
 +** $Id: lnum.h,v ... $
@@ -1867,10 +1833,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum.h lua-5.1.3-p
 +{ lua_Integer _i; if (tt_integer_valued(o,&_i)) setivalue(o,_i); }
 +
 +#endif
 +{ lua_Integer _i; if (tt_integer_valued(o,&_i)) setivalue(o,_i); }
 +
 +#endif
-Binary files ../lua-5.1.3/src/lnum.o and lua-5.1.3-patched/src/lnum.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum_config.h lua-5.1.3-patched/src/lnum_config.h
---- ../lua-5.1.3/src/lnum_config.h     1970-01-01 02:00:00.000000000 +0200
-+++ lua-5.1.3-patched/src/lnum_config.h        2008-03-26 11:32:25.000000000 +0200
+--- /dev/null
++++ b/src/lnum_config.h
 @@ -0,0 +1,221 @@
 +/*
 +** $Id: lnum_config.h,v ... $
 @@ -0,0 +1,221 @@
 +/*
 +** $Id: lnum_config.h,v ... $
@@ -1885,7 +1849,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum_config.h lua-
 +** Default number modes
 +*/
 +#if (!defined LNUM_DOUBLE) && (!defined LNUM_FLOAT) && (!defined LNUM_LDOUBLE)
 +** Default number modes
 +*/
 +#if (!defined LNUM_DOUBLE) && (!defined LNUM_FLOAT) && (!defined LNUM_LDOUBLE)
-+# define LNUM_DOUBLE
++# define LNUM_FLOAT
 +#endif
 +#if (!defined LNUM_INT16) && (!defined LNUM_INT32) && (!defined LNUM_INT64)
 +# define LNUM_INT32
 +#endif
 +#if (!defined LNUM_INT16) && (!defined LNUM_INT32) && (!defined LNUM_INT64)
 +# define LNUM_INT32
@@ -2093,10 +2057,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lnum_config.h lua-
 +
 +#endif
 +
 +
 +#endif
 +
-Binary files ../lua-5.1.3/src/loadlib.o and lua-5.1.3-patched/src/loadlib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.c lua-5.1.3-patched/src/lobject.c
---- ../lua-5.1.3/src/lobject.c 2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lobject.c    2008-03-14 11:08:49.000000000 +0200
+--- a/src/lobject.c
++++ b/src/lobject.c
 @@ -21,7 +21,8 @@
  #include "lstate.h"
  #include "lstring.h"
 @@ -21,7 +21,8 @@
  #include "lstate.h"
  #include "lstring.h"
@@ -2107,7 +2069,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.c lua-5.1.
  
  
  const TValue luaO_nilobject_ = {{NULL}, LUA_TNIL};
  
  
  const TValue luaO_nilobject_ = {{NULL}, LUA_TNIL};
-@@ -70,12 +71,31 @@
+@@ -70,12 +71,31 @@ int luaO_log2 (unsigned int x) {
  
  
  int luaO_rawequalObj (const TValue *t1, const TValue *t2) {
  
  
  int luaO_rawequalObj (const TValue *t1, const TValue *t2) {
@@ -2141,7 +2103,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.c lua-5.1.
      case LUA_TBOOLEAN:
        return bvalue(t1) == bvalue(t2);  /* boolean true must be 1 !! */
      case LUA_TLIGHTUSERDATA:
      case LUA_TBOOLEAN:
        return bvalue(t1) == bvalue(t2);  /* boolean true must be 1 !! */
      case LUA_TLIGHTUSERDATA:
-@@ -86,21 +106,6 @@
+@@ -86,21 +106,6 @@ int luaO_rawequalObj (const TValue *t1, 
    }
  }
  
    }
  }
  
@@ -2163,7 +2125,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.c lua-5.1.
  static void pushstr (lua_State *L, const char *str) {
    setsvalue2s(L, L->top, luaS_new(L, str));
    incr_top(L);
  static void pushstr (lua_State *L, const char *str) {
    setsvalue2s(L, L->top, luaS_new(L, str));
    incr_top(L);
-@@ -131,7 +136,11 @@
+@@ -131,7 +136,11 @@ const char *luaO_pushvfstring (lua_State
          break;
        }
        case 'd': {
          break;
        }
        case 'd': {
@@ -2176,14 +2138,13 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.c lua-5.1.
          incr_top(L);
          break;
        }
          incr_top(L);
          break;
        }
-@@ -212,3 +221,4 @@
+@@ -212,3 +221,4 @@ void luaO_chunkid (char *out, const char
      }
    }
  }
 +
      }
    }
  }
 +
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.3-patched/src/lobject.h
---- ../lua-5.1.3/src/lobject.h 2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lobject.h    2008-03-19 11:40:13.000000000 +0200
+--- a/src/lobject.h
++++ b/src/lobject.h
 @@ -17,7 +17,11 @@
  
  
 @@ -17,7 +17,11 @@
  
  
@@ -2197,7 +2158,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  
  #define NUM_TAGS      (LAST_TAG+1)
  
  
  #define NUM_TAGS      (LAST_TAG+1)
  
-@@ -59,7 +63,12 @@
+@@ -59,7 +63,12 @@ typedef struct GCheader {
  typedef union {
    GCObject *gc;
    void *p;
  typedef union {
    GCObject *gc;
    void *p;
@@ -2210,7 +2171,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
    int b;
  } Value;
  
    int b;
  } Value;
  
-@@ -77,7 +86,11 @@
+@@ -77,7 +86,11 @@ typedef struct lua_TValue {
  
  /* Macros to test type */
  #define ttisnil(o)    (ttype(o) == LUA_TNIL)
  
  /* Macros to test type */
  #define ttisnil(o)    (ttype(o) == LUA_TNIL)
@@ -2223,7 +2184,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  #define ttisstring(o) (ttype(o) == LUA_TSTRING)
  #define ttistable(o)  (ttype(o) == LUA_TTABLE)
  #define ttisfunction(o)       (ttype(o) == LUA_TFUNCTION)
  #define ttisstring(o) (ttype(o) == LUA_TSTRING)
  #define ttistable(o)  (ttype(o) == LUA_TTABLE)
  #define ttisfunction(o)       (ttype(o) == LUA_TFUNCTION)
-@@ -90,7 +103,25 @@
+@@ -90,7 +103,25 @@ typedef struct lua_TValue {
  #define ttype(o)      ((o)->tt)
  #define gcvalue(o)    check_exp(iscollectable(o), (o)->value.gc)
  #define pvalue(o)     check_exp(ttislightuserdata(o), (o)->value.p)
  #define ttype(o)      ((o)->tt)
  #define gcvalue(o)    check_exp(iscollectable(o), (o)->value.gc)
  #define pvalue(o)     check_exp(ttislightuserdata(o), (o)->value.p)
@@ -2250,7 +2211,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  #define rawtsvalue(o) check_exp(ttisstring(o), &(o)->value.gc->ts)
  #define tsvalue(o)    (&rawtsvalue(o)->tsv)
  #define rawuvalue(o)  check_exp(ttisuserdata(o), &(o)->value.gc->u)
  #define rawtsvalue(o) check_exp(ttisstring(o), &(o)->value.gc->ts)
  #define tsvalue(o)    (&rawtsvalue(o)->tsv)
  #define rawuvalue(o)  check_exp(ttisuserdata(o), &(o)->value.gc->u)
-@@ -116,8 +147,27 @@
+@@ -116,8 +147,27 @@ typedef struct lua_TValue {
  /* Macros to set values */
  #define setnilvalue(obj) ((obj)->tt=LUA_TNIL)
  
  /* Macros to set values */
  #define setnilvalue(obj) ((obj)->tt=LUA_TNIL)
  
@@ -2280,7 +2241,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  
  #define setpvalue(obj,x) \
    { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; }
  
  #define setpvalue(obj,x) \
    { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; }
-@@ -155,9 +205,6 @@
+@@ -155,9 +205,6 @@ typedef struct lua_TValue {
      i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \
      checkliveness(G(L),i_o); }
  
      i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \
      checkliveness(G(L),i_o); }
  
@@ -2290,7 +2251,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  #define setobj(L,obj1,obj2) \
    { const TValue *o2=(obj2); TValue *o1=(obj1); \
      o1->value = o2->value; o1->tt=o2->tt; \
  #define setobj(L,obj1,obj2) \
    { const TValue *o2=(obj2); TValue *o1=(obj1); \
      o1->value = o2->value; o1->tt=o2->tt; \
-@@ -185,8 +232,11 @@
+@@ -185,8 +232,11 @@ typedef struct lua_TValue {
  
  #define setttype(obj, tt) (ttype(obj) = (tt))
  
  
  #define setttype(obj, tt) (ttype(obj) = (tt))
  
@@ -2304,7 +2265,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
  
  
  
  
  
  
-@@ -370,12 +420,10 @@
+@@ -370,12 +420,10 @@ LUAI_FUNC int luaO_log2 (unsigned int x)
  LUAI_FUNC int luaO_int2fb (unsigned int x);
  LUAI_FUNC int luaO_fb2int (int x);
  LUAI_FUNC int luaO_rawequalObj (const TValue *t1, const TValue *t2);
  LUAI_FUNC int luaO_int2fb (unsigned int x);
  LUAI_FUNC int luaO_fb2int (int x);
  LUAI_FUNC int luaO_rawequalObj (const TValue *t1, const TValue *t2);
@@ -2317,12 +2278,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lobject.h lua-5.1.
 -
  #endif
  
 -
  #endif
  
-Binary files ../lua-5.1.3/src/lobject.o and lua-5.1.3-patched/src/lobject.o differ
-Binary files ../lua-5.1.3/src/lopcodes.o and lua-5.1.3-patched/src/lopcodes.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/loslib.c lua-5.1.3-patched/src/loslib.c
---- ../lua-5.1.3/src/loslib.c  2008-01-18 18:38:18.000000000 +0200
-+++ lua-5.1.3-patched/src/loslib.c     2008-03-19 11:02:22.000000000 +0200
-@@ -186,15 +186,30 @@
+--- a/src/loslib.c
++++ b/src/loslib.c
+@@ -186,15 +186,30 @@ static int os_time (lua_State *L) {
    }
    if (t == (time_t)(-1))
      lua_pushnil(L);
    }
    if (t == (time_t)(-1))
      lua_pushnil(L);
@@ -2355,10 +2313,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/loslib.c lua-5.1.3
    return 1;
  }
  
    return 1;
  }
  
-Binary files ../lua-5.1.3/src/loslib.o and lua-5.1.3-patched/src/loslib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.c lua-5.1.3-patched/src/lparser.c
---- ../lua-5.1.3/src/lparser.c 2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/lparser.c    2008-03-06 21:58:41.000000000 +0200
+--- a/src/lparser.c
++++ b/src/lparser.c
 @@ -33,7 +33,6 @@
  
  #define luaY_checklimit(fs,v,l,m)     if ((v)>(l)) errorlimit(fs,l,m)
 @@ -33,7 +33,6 @@
  
  #define luaY_checklimit(fs,v,l,m)     if ((v)>(l)) errorlimit(fs,l,m)
@@ -2367,7 +2323,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.c lua-5.1.
  /*
  ** nodes for block list (list of active blocks)
  */
  /*
  ** nodes for block list (list of active blocks)
  */
-@@ -72,7 +71,7 @@
+@@ -72,7 +71,7 @@ static void errorlimit (FuncState *fs, i
    const char *msg = (fs->f->linedefined == 0) ?
      luaO_pushfstring(fs->L, "main function has more than %d %s", limit, what) :
      luaO_pushfstring(fs->L, "function at line %d has more than %d %s",
    const char *msg = (fs->f->linedefined == 0) ?
      luaO_pushfstring(fs->L, "main function has more than %d %s", limit, what) :
      luaO_pushfstring(fs->L, "function at line %d has more than %d %s",
@@ -2376,7 +2332,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.c lua-5.1.
    luaX_lexerror(fs->ls, msg, 0);
  }
  
    luaX_lexerror(fs->ls, msg, 0);
  }
  
-@@ -733,6 +732,18 @@
+@@ -733,6 +732,18 @@ static void simpleexp (LexState *ls, exp
        v->u.nval = ls->t.seminfo.r;
        break;
      }
        v->u.nval = ls->t.seminfo.r;
        break;
      }
@@ -2395,7 +2351,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.c lua-5.1.
      case TK_STRING: {
        codestring(ls, v, ls->t.seminfo.ts);
        break;
      case TK_STRING: {
        codestring(ls, v, ls->t.seminfo.ts);
        break;
-@@ -1079,7 +1090,7 @@
+@@ -1079,7 +1090,7 @@ static void fornum (LexState *ls, TStrin
    if (testnext(ls, ','))
      exp1(ls);  /* optional step */
    else {  /* default step = 1 */
    if (testnext(ls, ','))
      exp1(ls);  /* optional step */
    else {  /* default step = 1 */
@@ -2404,10 +2360,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.c lua-5.1.
      luaK_reserveregs(fs, 1);
    }
    forbody(ls, base, line, 1, 1);
      luaK_reserveregs(fs, 1);
    }
    forbody(ls, base, line, 1, 1);
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.h lua-5.1.3-patched/src/lparser.h
---- ../lua-5.1.3/src/lparser.h 2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lparser.h    2008-03-06 22:01:11.000000000 +0200
-@@ -31,7 +31,11 @@
+--- a/src/lparser.h
++++ b/src/lparser.h
+@@ -31,7 +31,11 @@ typedef enum {
    VRELOCABLE, /* info = instruction pc */
    VNONRELOC,  /* info = result register */
    VCALL,      /* info = instruction pc */
    VRELOCABLE, /* info = instruction pc */
    VNONRELOC,  /* info = result register */
    VCALL,      /* info = instruction pc */
@@ -2420,7 +2375,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.h lua-5.1.
  } expkind;
  
  typedef struct expdesc {
  } expkind;
  
  typedef struct expdesc {
-@@ -39,6 +43,7 @@
+@@ -39,6 +43,7 @@ typedef struct expdesc {
    union {
      struct { int info, aux; } s;
      lua_Number nval;
    union {
      struct { int info, aux; } s;
      lua_Number nval;
@@ -2428,13 +2383,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lparser.h lua-5.1.
    } u;
    int t;  /* patch list of `exit when true' */
    int f;  /* patch list of `exit when false' */
    } u;
    int t;  /* patch list of `exit when true' */
    int f;  /* patch list of `exit when false' */
-Binary files ../lua-5.1.3/src/lparser.o and lua-5.1.3-patched/src/lparser.o differ
-Binary files ../lua-5.1.3/src/lstate.o and lua-5.1.3-patched/src/lstate.o differ
-Binary files ../lua-5.1.3/src/lstring.o and lua-5.1.3-patched/src/lstring.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.3-patched/src/lstrlib.c
---- ../lua-5.1.3/src/lstrlib.c 2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/lstrlib.c    2008-03-12 23:15:22.000000000 +0200
-@@ -42,8 +42,8 @@
+--- a/src/lstrlib.c
++++ b/src/lstrlib.c
+@@ -43,8 +43,8 @@ static ptrdiff_t posrelat (ptrdiff_t pos
  static int str_sub (lua_State *L) {
    size_t l;
    const char *s = luaL_checklstring(L, 1, &l);
  static int str_sub (lua_State *L) {
    size_t l;
    const char *s = luaL_checklstring(L, 1, &l);
@@ -2445,7 +2396,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
    if (start < 1) start = 1;
    if (end > (ptrdiff_t)l) end = (ptrdiff_t)l;
    if (start <= end)
    if (start < 1) start = 1;
    if (end > (ptrdiff_t)l) end = (ptrdiff_t)l;
    if (start <= end)
-@@ -105,8 +105,8 @@
+@@ -106,8 +106,8 @@ static int str_rep (lua_State *L) {
  static int str_byte (lua_State *L) {
    size_t l;
    const char *s = luaL_checklstring(L, 1, &l);
  static int str_byte (lua_State *L) {
    size_t l;
    const char *s = luaL_checklstring(L, 1, &l);
@@ -2456,7 +2407,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
    int n, i;
    if (posi <= 0) posi = 1;
    if ((size_t)pose > l) pose = l;
    int n, i;
    if (posi <= 0) posi = 1;
    if ((size_t)pose > l) pose = l;
-@@ -495,7 +495,7 @@
+@@ -496,7 +496,7 @@ static int str_find_aux (lua_State *L, i
    size_t l1, l2;
    const char *s = luaL_checklstring(L, 1, &l1);
    const char *p = luaL_checklstring(L, 2, &l2);
    size_t l1, l2;
    const char *s = luaL_checklstring(L, 1, &l1);
    const char *p = luaL_checklstring(L, 2, &l2);
@@ -2465,7 +2416,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
    if (init < 0) init = 0;
    else if ((size_t)(init) > l1) init = (ptrdiff_t)l1;
    if (find && (lua_toboolean(L, 4) ||  /* explicit request? */
    if (init < 0) init = 0;
    else if ((size_t)(init) > l1) init = (ptrdiff_t)l1;
    if (find && (lua_toboolean(L, 4) ||  /* explicit request? */
-@@ -689,7 +689,7 @@
+@@ -690,7 +690,7 @@ static int str_gsub (lua_State *L) {
  ** maximum size of each format specification (such as '%-099.99d')
  ** (+10 accounts for %99.99x plus margin of error)
  */
  ** maximum size of each format specification (such as '%-099.99d')
  ** (+10 accounts for %99.99x plus margin of error)
  */
@@ -2474,7 +2425,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
  
  
  static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
  
  
  static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
-@@ -746,9 +746,9 @@
+@@ -747,9 +747,9 @@ static const char *scanformat (lua_State
  static void addintlen (char *form) {
    size_t l = strlen(form);
    char spec = form[l - 1];
  static void addintlen (char *form) {
    size_t l = strlen(form);
    char spec = form[l - 1];
@@ -2487,7 +2438,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
  }
  
  
  }
  
  
-@@ -776,12 +776,12 @@
+@@ -777,12 +777,12 @@ static int str_format (lua_State *L) {
          }
          case 'd':  case 'i': {
            addintlen(form);
          }
          case 'd':  case 'i': {
            addintlen(form);
@@ -2502,10 +2453,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lstrlib.c lua-5.1.
            break;
          }
          case 'e':  case 'E': case 'f':
            break;
          }
          case 'e':  case 'E': case 'f':
-Binary files ../lua-5.1.3/src/lstrlib.o and lua-5.1.3-patched/src/lstrlib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3-patched/src/ltable.c
---- ../lua-5.1.3/src/ltable.c  2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/ltable.c     2008-03-26 13:04:20.000000000 +0200
+--- a/src/ltable.c
++++ b/src/ltable.c
 @@ -33,6 +33,7 @@
  #include "lobject.h"
  #include "lstate.h"
 @@ -33,6 +33,7 @@
  #include "lobject.h"
  #include "lstate.h"
@@ -2541,7 +2490,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
  #define dummynode             (&dummynode_)
  
  static const Node dummynode_ = {
  #define dummynode             (&dummynode_)
  
  static const Node dummynode_ = {
-@@ -80,27 +71,46 @@
+@@ -80,27 +71,46 @@ static const Node dummynode_ = {
  
  /*
  ** hash for lua_Numbers
  
  /*
  ** hash for lua_Numbers
@@ -2597,7 +2546,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      case LUA_TSTRING:
        return hashstr(t, rawtsvalue(key));
      case LUA_TBOOLEAN:
      case LUA_TSTRING:
        return hashstr(t, rawtsvalue(key));
      case LUA_TBOOLEAN:
-@@ -116,16 +126,20 @@
+@@ -116,16 +126,20 @@ static Node *mainposition (const Table *
  /*
  ** returns the index for `key' if `key' is an appropriate key to live in
  ** the array part of the table, -1 otherwise.
  /*
  ** returns the index for `key' if `key' is an appropriate key to live in
  ** the array part of the table, -1 otherwise.
@@ -2626,7 +2575,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
  }
  
  
  }
  
  
-@@ -137,8 +151,8 @@
+@@ -137,8 +151,8 @@ static int arrayindex (const TValue *key
  static int findindex (lua_State *L, Table *t, StkId key) {
    int i;
    if (ttisnil(key)) return -1;  /* first iteration */
  static int findindex (lua_State *L, Table *t, StkId key) {
    int i;
    if (ttisnil(key)) return -1;  /* first iteration */
@@ -2637,7 +2586,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      return i-1;  /* yes; that's the index (corrected to C) */
    else {
      Node *n = mainposition(t, key);
      return i-1;  /* yes; that's the index (corrected to C) */
    else {
      Node *n = mainposition(t, key);
-@@ -163,7 +177,7 @@
+@@ -163,7 +177,7 @@ int luaH_next (lua_State *L, Table *t, S
    int i = findindex(L, t, key);  /* find original element */
    for (i++; i < t->sizearray; i++) {  /* try first array part */
      if (!ttisnil(&t->array[i])) {  /* a non-nil value? */
    int i = findindex(L, t, key);  /* find original element */
    for (i++; i < t->sizearray; i++) {  /* try first array part */
      if (!ttisnil(&t->array[i])) {  /* a non-nil value? */
@@ -2646,7 +2595,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
        setobj2s(L, key+1, &t->array[i]);
        return 1;
      }
        setobj2s(L, key+1, &t->array[i]);
        return 1;
      }
-@@ -209,8 +223,8 @@
+@@ -209,8 +223,8 @@ static int computesizes (int nums[], int
  
  
  static int countint (const TValue *key, int *nums) {
  
  
  static int countint (const TValue *key, int *nums) {
@@ -2657,7 +2606,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      nums[ceillog2(k)]++;  /* count as such */
      return 1;
    }
      nums[ceillog2(k)]++;  /* count as such */
      return 1;
    }
-@@ -308,7 +322,7 @@
+@@ -308,7 +322,7 @@ static void resize (lua_State *L, Table 
      /* re-insert elements from vanishing slice */
      for (i=nasize; i<oldasize; i++) {
        if (!ttisnil(&t->array[i]))
      /* re-insert elements from vanishing slice */
      for (i=nasize; i<oldasize; i++) {
        if (!ttisnil(&t->array[i]))
@@ -2666,7 +2615,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      }
      /* shrink array */
      luaM_reallocvector(L, t->array, oldasize, nasize, TValue);
      }
      /* shrink array */
      luaM_reallocvector(L, t->array, oldasize, nasize, TValue);
-@@ -409,7 +423,9 @@
+@@ -409,7 +423,9 @@ static TValue *newkey (lua_State *L, Tab
      othern = mainposition(t, key2tval(mp));
      if (othern != mp) {  /* is colliding node out of its main position? */
        /* yes; move colliding node into free position */
      othern = mainposition(t, key2tval(mp));
      if (othern != mp) {  /* is colliding node out of its main position? */
        /* yes; move colliding node into free position */
@@ -2677,7 +2626,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
        gnext(othern) = n;  /* redo the chain with `n' in place of `mp' */
        *n = *mp;  /* copy colliding node into free pos. (mp->next also goes) */
        gnext(mp) = NULL;  /* now `mp' is free */
        gnext(othern) = n;  /* redo the chain with `n' in place of `mp' */
        *n = *mp;  /* copy colliding node into free pos. (mp->next also goes) */
        gnext(mp) = NULL;  /* now `mp' is free */
-@@ -432,17 +448,18 @@
+@@ -432,17 +448,18 @@ static TValue *newkey (lua_State *L, Tab
  /*
  ** search function for integers
  */
  /*
  ** search function for integers
  */
@@ -2701,7 +2650,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      } while (n);
      return luaO_nilobject;
    }
      } while (n);
      return luaO_nilobject;
    }
-@@ -470,14 +487,12 @@
+@@ -470,14 +487,12 @@ const TValue *luaH_get (Table *t, const 
    switch (ttype(key)) {
      case LUA_TNIL: return luaO_nilobject;
      case LUA_TSTRING: return luaH_getstr(t, rawtsvalue(key));
    switch (ttype(key)) {
      case LUA_TNIL: return luaO_nilobject;
      case LUA_TSTRING: return luaH_getstr(t, rawtsvalue(key));
@@ -2721,7 +2670,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      default: {
        Node *n = mainposition(t, key);
        do {  /* check whether `key' is somewhere in the chain */
      default: {
        Node *n = mainposition(t, key);
        do {  /* check whether `key' is somewhere in the chain */
-@@ -498,20 +513,25 @@
+@@ -498,20 +513,25 @@ TValue *luaH_set (lua_State *L, Table *t
      return cast(TValue *, p);
    else {
      if (ttisnil(key)) luaG_runerror(L, "table index is nil");
      return cast(TValue *, p);
    else {
      if (ttisnil(key)) luaG_runerror(L, "table index is nil");
@@ -2752,7 +2701,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      return newkey(L, t, &k);
    }
  }
      return newkey(L, t, &k);
    }
  }
-@@ -533,20 +553,21 @@
+@@ -533,20 +553,21 @@ static int unbound_search (Table *t, uns
    unsigned int i = j;  /* i is zero or a present index */
    j++;
    /* find `i' and `j' such that i is present and j is not */
    unsigned int i = j;  /* i is zero or a present index */
    j++;
    /* find `i' and `j' such that i is present and j is not */
@@ -2779,9 +2728,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.c lua-5.1.3
      else i = m;
    }
    return i;
      else i = m;
    }
    return i;
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.h lua-5.1.3-patched/src/ltable.h
---- ../lua-5.1.3/src/ltable.h  2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/ltable.h     2008-03-16 20:49:18.000000000 +0200
+--- a/src/ltable.h
++++ b/src/ltable.h
 @@ -18,8 +18,8 @@
  #define key2tval(n)   (&(n)->i_key.tvk)
  
 @@ -18,8 +18,8 @@
  #define key2tval(n)   (&(n)->i_key.tvk)
  
@@ -2793,11 +2741,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltable.h lua-5.1.3
  LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key);
  LUAI_FUNC TValue *luaH_setstr (lua_State *L, Table *t, TString *key);
  LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key);
  LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key);
  LUAI_FUNC TValue *luaH_setstr (lua_State *L, Table *t, TString *key);
  LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key);
-Binary files ../lua-5.1.3/src/ltable.o and lua-5.1.3-patched/src/ltable.o differ
-Binary files ../lua-5.1.3/src/ltablib.o and lua-5.1.3-patched/src/ltablib.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltm.c lua-5.1.3-patched/src/ltm.c
---- ../lua-5.1.3/src/ltm.c     2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/ltm.c        2008-03-06 22:47:33.000000000 +0200
+--- a/src/ltm.c
++++ b/src/ltm.c
 @@ -19,7 +19,6 @@
  #include "ltm.h"
  
 @@ -19,7 +19,6 @@
  #include "ltm.h"
  
@@ -2806,7 +2751,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltm.c lua-5.1.3-pa
  const char *const luaT_typenames[] = {
    "nil", "boolean", "userdata", "number",
    "string", "table", "function", "userdata", "thread",
  const char *const luaT_typenames[] = {
    "nil", "boolean", "userdata", "number",
    "string", "table", "function", "userdata", "thread",
-@@ -67,6 +66,9 @@
+@@ -67,6 +66,9 @@ const TValue *luaT_gettmbyobj (lua_State
      case LUA_TUSERDATA:
        mt = uvalue(o)->metatable;
        break;
      case LUA_TUSERDATA:
        mt = uvalue(o)->metatable;
        break;
@@ -2816,10 +2761,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/ltm.c lua-5.1.3-pa
      default:
        mt = G(L)->mt[ttype(o)];
    }
      default:
        mt = G(L)->mt[ttype(o)];
    }
-Binary files ../lua-5.1.3/src/ltm.o and lua-5.1.3-patched/src/ltm.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.c lua-5.1.3-patched/src/lua.c
---- ../lua-5.1.3/src/lua.c     2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/lua.c        2008-03-26 11:32:25.000000000 +0200
+--- a/src/lua.c
++++ b/src/lua.c
 @@ -16,7 +16,7 @@
  
  #include "lauxlib.h"
 @@ -16,7 +16,7 @@
  
  #include "lauxlib.h"
@@ -2829,7 +2772,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.c lua-5.1.3-pa
  
  
  static lua_State *globalL = NULL;
  
  
  static lua_State *globalL = NULL;
-@@ -382,6 +382,15 @@
+@@ -382,6 +382,15 @@ int main (int argc, char **argv) {
      l_message(argv[0], "cannot create state: not enough memory");
      return EXIT_FAILURE;
    }
      l_message(argv[0], "cannot create state: not enough memory");
      return EXIT_FAILURE;
    }
@@ -2845,19 +2788,18 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.c lua-5.1.3-pa
    s.argc = argc;
    s.argv = argv;
    status = lua_cpcall(L, &pmain, &s);
    s.argc = argc;
    s.argv = argv;
    status = lua_cpcall(L, &pmain, &s);
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.h lua-5.1.3-patched/src/lua.h
---- ../lua-5.1.3/src/lua.h     2008-01-03 17:41:15.000000000 +0200
-+++ lua-5.1.3-patched/src/lua.h        2008-03-19 11:19:34.000000000 +0200
+--- a/src/lua.h
++++ b/src/lua.h
 @@ -19,7 +19,7 @@
  #define LUA_VERSION   "Lua 5.1"
 @@ -19,7 +19,7 @@
  #define LUA_VERSION   "Lua 5.1"
- #define LUA_RELEASE   "Lua 5.1.3"
+ #define LUA_RELEASE   "Lua 5.1.4"
  #define LUA_VERSION_NUM       501
 -#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio"
 +#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" " (" LUA_LNUM ")"
  #define LUA_AUTHORS   "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
  
  
  #define LUA_VERSION_NUM       501
 -#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio"
 +#define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" " (" LUA_LNUM ")"
  #define LUA_AUTHORS   "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
  
  
-@@ -71,6 +71,16 @@
+@@ -71,6 +71,16 @@ typedef void * (*lua_Alloc) (void *ud, v
  */
  #define LUA_TNONE             (-1)
  
  */
  #define LUA_TNONE             (-1)
  
@@ -2874,7 +2816,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.h lua-5.1.3-pa
  #define LUA_TNIL              0
  #define LUA_TBOOLEAN          1
  #define LUA_TLIGHTUSERDATA    2
  #define LUA_TNIL              0
  #define LUA_TBOOLEAN          1
  #define LUA_TLIGHTUSERDATA    2
-@@ -139,6 +149,8 @@
+@@ -139,6 +149,8 @@ LUA_API int             (lua_isuserdata)
  LUA_API int             (lua_type) (lua_State *L, int idx);
  LUA_API const char     *(lua_typename) (lua_State *L, int tp);
  
  LUA_API int             (lua_type) (lua_State *L, int idx);
  LUA_API const char     *(lua_typename) (lua_State *L, int tp);
  
@@ -2883,7 +2825,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.h lua-5.1.3-pa
  LUA_API int            (lua_equal) (lua_State *L, int idx1, int idx2);
  LUA_API int            (lua_rawequal) (lua_State *L, int idx1, int idx2);
  LUA_API int            (lua_lessthan) (lua_State *L, int idx1, int idx2);
  LUA_API int            (lua_equal) (lua_State *L, int idx1, int idx2);
  LUA_API int            (lua_rawequal) (lua_State *L, int idx1, int idx2);
  LUA_API int            (lua_lessthan) (lua_State *L, int idx1, int idx2);
-@@ -244,6 +256,19 @@
+@@ -244,6 +256,19 @@ LUA_API lua_Alloc (lua_getallocf) (lua_S
  LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
  
  
  LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
  
  
@@ -2903,7 +2845,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.h lua-5.1.3-pa
  
  /* 
  ** ===============================================================
  
  /* 
  ** ===============================================================
-@@ -268,7 +293,12 @@
+@@ -268,7 +293,12 @@ LUA_API void lua_setallocf (lua_State *L
  #define lua_isboolean(L,n)    (lua_type(L, (n)) == LUA_TBOOLEAN)
  #define lua_isthread(L,n)     (lua_type(L, (n)) == LUA_TTHREAD)
  #define lua_isnone(L,n)               (lua_type(L, (n)) == LUA_TNONE)
  #define lua_isboolean(L,n)    (lua_type(L, (n)) == LUA_TBOOLEAN)
  #define lua_isthread(L,n)     (lua_type(L, (n)) == LUA_TTHREAD)
  #define lua_isnone(L,n)               (lua_type(L, (n)) == LUA_TNONE)
@@ -2917,17 +2859,13 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lua.h lua-5.1.3-pa
  
  #define lua_pushliteral(L, s) \
        lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
  
  #define lua_pushliteral(L, s) \
        lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
-@@ -386,3 +416,4 @@
+@@ -386,3 +416,4 @@ struct lua_Debug {
  
  
  #endif
 +
  
  
  #endif
 +
-Binary files ../lua-5.1.3/src/lua.o and lua-5.1.3-patched/src/lua.o differ
-Binary files ../lua-5.1.3/src/luac and lua-5.1.3-patched/src/luac differ
-Binary files ../lua-5.1.3/src/luac.o and lua-5.1.3-patched/src/luac.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/luaconf.h lua-5.1.3-patched/src/luaconf.h
---- ../lua-5.1.3/src/luaconf.h 2008-01-18 19:07:48.000000000 +0200
-+++ lua-5.1.3-patched/src/luaconf.h    2008-03-24 20:28:57.000000000 +0200
+--- a/src/luaconf.h
++++ b/src/luaconf.h
 @@ -10,7 +10,9 @@
  
  #include <limits.h>
 @@ -10,7 +10,9 @@
  
  #include <limits.h>
@@ -3123,7 +3061,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/luaconf.h lua-5.1.
  /*
  @@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment.
  ** CHANGE it if your system requires alignments larger than double. (For
  /*
  @@ LUAI_USER_ALIGNMENT_T is a type that requires maximum alignment.
  ** CHANGE it if your system requires alignments larger than double. (For
-@@ -728,28 +652,6 @@
+@@ -728,28 +652,6 @@ union luai_Cast { double l_d; long l_l; 
  #define luai_userstateyield(L,n)      ((void)L)
  
  
  #define luai_userstateyield(L,n)      ((void)L)
  
  
@@ -3152,10 +3090,9 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/luaconf.h lua-5.1.
  /* =================================================================== */
  
  /*
  /* =================================================================== */
  
  /*
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lundump.c lua-5.1.3-patched/src/lundump.c
---- ../lua-5.1.3/src/lundump.c 2008-01-18 18:39:11.000000000 +0200
-+++ lua-5.1.3-patched/src/lundump.c    2008-03-26 04:33:51.000000000 +0200
-@@ -74,6 +74,13 @@
+--- a/src/lundump.c
++++ b/src/lundump.c
+@@ -73,6 +73,13 @@ static lua_Number LoadNumber(LoadState* 
   return x;
  }
  
   return x;
  }
  
@@ -3169,7 +3106,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lundump.c lua-5.1.
  static TString* LoadString(LoadState* S)
  {
   size_t size;
  static TString* LoadString(LoadState* S)
  {
   size_t size;
-@@ -120,6 +127,9 @@
+@@ -119,6 +126,9 @@ static void LoadConstants(LoadState* S, 
     case LUA_TNUMBER:
        setnvalue(o,LoadNumber(S));
        break;
     case LUA_TNUMBER:
        setnvalue(o,LoadNumber(S));
        break;
@@ -3179,7 +3116,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lundump.c lua-5.1.
     case LUA_TSTRING:
        setsvalue2n(S->L,o,LoadString(S));
        break;
     case LUA_TSTRING:
        setsvalue2n(S->L,o,LoadString(S));
        break;
-@@ -221,5 +231,22 @@
+@@ -223,5 +233,22 @@ void luaU_header (char* h)
   *h++=(char)sizeof(size_t);
   *h++=(char)sizeof(Instruction);
   *h++=(char)sizeof(lua_Number);
   *h++=(char)sizeof(size_t);
   *h++=(char)sizeof(Instruction);
   *h++=(char)sizeof(lua_Number);
@@ -3203,10 +3140,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lundump.c lua-5.1.
 +#endif
 +    );
  }
 +#endif
 +    );
  }
-Binary files ../lua-5.1.3/src/lundump.o and lua-5.1.3-patched/src/lundump.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-patched/src/lvm.c
---- ../lua-5.1.3/src/lvm.c     2007-12-28 17:32:23.000000000 +0200
-+++ lua-5.1.3-patched/src/lvm.c        2008-03-14 11:13:17.000000000 +0200
+--- a/src/lvm.c
++++ b/src/lvm.c
 @@ -25,22 +25,35 @@
  #include "ltable.h"
  #include "ltm.h"
 @@ -25,22 +25,35 @@
  #include "ltable.h"
  #include "ltm.h"
@@ -3253,7 +3188,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
  }
  
  
  }
  
  
-@@ -49,8 +62,7 @@
+@@ -49,8 +62,7 @@ int luaV_tostring (lua_State *L, StkId o
      return 0;
    else {
      char s[LUAI_MAXNUMBER2STR];
      return 0;
    else {
      char s[LUAI_MAXNUMBER2STR];
@@ -3263,7 +3198,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
      setsvalue2s(L, obj, luaS_new(L, s));
      return 1;
    }
      setsvalue2s(L, obj, luaS_new(L, s));
      return 1;
    }
-@@ -218,59 +230,127 @@
+@@ -218,59 +230,127 @@ static int l_strcmp (const TString *ls, 
  }
  
  
  }
  
  
@@ -3416,7 +3351,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
    return !l_isfalse(L->top);
  }
  
    return !l_isfalse(L->top);
  }
  
-@@ -310,30 +390,6 @@
+@@ -310,30 +390,6 @@ void luaV_concat (lua_State *L, int tota
  }
  
  
  }
  
  
@@ -3447,7 +3382,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
  /*
  ** some macros for common tasks in `luaV_execute'
  */
  /*
  ** some macros for common tasks in `luaV_execute'
  */
-@@ -357,17 +413,154 @@
+@@ -357,17 +413,154 @@ static void Arith (lua_State *L, StkId r
  #define Protect(x)    { L->savedpc = pc; {x;}; base = L->base; }
  
  
  #define Protect(x)    { L->savedpc = pc; {x;}; base = L->base; }
  
  
@@ -3611,7 +3546,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
  
  
  void luaV_execute (lua_State *L, int nexeccalls) {
  
  
  void luaV_execute (lua_State *L, int nexeccalls) {
-@@ -468,38 +661,45 @@
+@@ -468,38 +661,45 @@ void luaV_execute (lua_State *L, int nex
          continue;
        }
        case OP_ADD: {
          continue;
        }
        case OP_ADD: {
@@ -3670,7 +3605,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
          continue;
        }
        case OP_NOT: {
          continue;
        }
        case OP_NOT: {
-@@ -511,11 +711,11 @@
+@@ -511,11 +711,11 @@ void luaV_execute (lua_State *L, int nex
          const TValue *rb = RB(i);
          switch (ttype(rb)) {
            case LUA_TTABLE: {
          const TValue *rb = RB(i);
          switch (ttype(rb)) {
            case LUA_TTABLE: {
@@ -3684,7 +3619,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
              break;
            }
            default: {  /* try metamethod */
              break;
            }
            default: {  /* try metamethod */
-@@ -648,14 +848,30 @@
+@@ -648,14 +848,30 @@ void luaV_execute (lua_State *L, int nex
          }
        }
        case OP_FORLOOP: {
          }
        }
        case OP_FORLOOP: {
@@ -3723,7 +3658,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
          }
          continue;
        }
          }
          continue;
        }
-@@ -664,13 +880,21 @@
+@@ -664,13 +880,21 @@ void luaV_execute (lua_State *L, int nex
          const TValue *plimit = ra+1;
          const TValue *pstep = ra+2;
          L->savedpc = pc;  /* next steps may throw errors */
          const TValue *plimit = ra+1;
          const TValue *pstep = ra+2;
          L->savedpc = pc;  /* next steps may throw errors */
@@ -3746,7 +3681,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
          dojump(L, pc, GETARG_sBx(i));
          continue;
        }
          dojump(L, pc, GETARG_sBx(i));
          continue;
        }
-@@ -707,7 +931,7 @@
+@@ -707,7 +931,7 @@ void luaV_execute (lua_State *L, int nex
            luaH_resizearray(L, h, last);  /* pre-alloc it at once */
          for (; n > 0; n--) {
            TValue *val = ra+n;
            luaH_resizearray(L, h, last);  /* pre-alloc it at once */
          for (; n > 0; n--) {
            TValue *val = ra+n;
@@ -3755,9 +3690,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.c lua-5.1.3-pa
            luaC_barriert(L, h, val);
          }
          continue;
            luaC_barriert(L, h, val);
          }
          continue;
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.h lua-5.1.3-patched/src/lvm.h
---- ../lua-5.1.3/src/lvm.h     2007-12-27 15:02:25.000000000 +0200
-+++ lua-5.1.3-patched/src/lvm.h        2008-03-19 10:49:34.000000000 +0200
+--- a/src/lvm.h
++++ b/src/lvm.h
 @@ -15,11 +15,9 @@
  
  #define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o)))
 @@ -15,11 +15,9 @@
  
  #define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o)))
@@ -3772,11 +3706,8 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/lvm.h lua-5.1.3-pa
  
  
  LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
  
  
  LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
-Binary files ../lua-5.1.3/src/lvm.o and lua-5.1.3-patched/src/lvm.o differ
-Binary files ../lua-5.1.3/src/lzio.o and lua-5.1.3-patched/src/lzio.o differ
-diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/print.c lua-5.1.3-patched/src/print.c
---- ../lua-5.1.3/src/print.c   2007-03-26 03:17:38.000000000 +0300
-+++ lua-5.1.3-patched/src/print.c      2008-03-19 11:04:51.000000000 +0200
+--- a/src/print.c
++++ b/src/print.c
 @@ -14,6 +14,7 @@
  #include "lobject.h"
  #include "lopcodes.h"
 @@ -14,6 +14,7 @@
  #include "lobject.h"
  #include "lopcodes.h"
@@ -3785,7 +3716,7 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/print.c lua-5.1.3-
  
  #define PrintFunction luaU_print
  
  
  #define PrintFunction luaU_print
  
-@@ -59,8 +60,16 @@
+@@ -59,8 +60,16 @@ static void PrintConstant(const Proto* f
    case LUA_TBOOLEAN:
        printf(bvalue(o) ? "true" : "false");
        break;
    case LUA_TBOOLEAN:
        printf(bvalue(o) ? "true" : "false");
        break;
@@ -3803,4 +3734,3 @@ diff -urN --exclude=.svn --exclude=.DS_Store ../lua-5.1.3/src/print.c lua-5.1.3-
        break;
    case LUA_TSTRING:
        PrintString(rawtsvalue(o));
        break;
    case LUA_TSTRING:
        PrintString(rawtsvalue(o));
-Binary files ../lua-5.1.3/src/print.o and lua-5.1.3-patched/src/print.o differ
Personal OpenWRT clone
This page took 0.08446 seconds and 4 git commands to generate.