package/lua: refresh patches
SVN-Revision: 20470
This commit is contained in:
		
										
											
												File diff suppressed because it is too large
												Load Diff
											
										
									
								
							@@ -1,8 +1,6 @@
 | 
			
		||||
Index: lua-5.1.3/src/lua.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.3.orig/src/lua.h	2008-06-29 11:45:55.000000000 +0200
 | 
			
		||||
+++ lua-5.1.3/src/lua.h	2008-06-29 11:46:28.000000000 +0200
 | 
			
		||||
@@ -79,7 +79,7 @@
 | 
			
		||||
--- a/src/lua.h
 | 
			
		||||
+++ b/src/lua.h
 | 
			
		||||
@@ -79,7 +79,7 @@ typedef void * (*lua_Alloc) (void *ud, v
 | 
			
		||||
  *     not acceptable for 5.1, maybe 5.2 onwards?
 | 
			
		||||
  *  9: greater than existing (5.1) type values.
 | 
			
		||||
 */
 | 
			
		||||
 
 | 
			
		||||
@@ -1,8 +1,6 @@
 | 
			
		||||
Index: lua-5.1.4/Makefile
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/Makefile	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/Makefile	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
@@ -42,8 +42,8 @@
 | 
			
		||||
--- a/Makefile
 | 
			
		||||
+++ b/Makefile
 | 
			
		||||
@@ -42,8 +42,8 @@ PLATS= aix ansi bsd freebsd generic linu
 | 
			
		||||
 
 | 
			
		||||
 # What to install.
 | 
			
		||||
 TO_BIN= lua luac
 | 
			
		||||
@@ -13,7 +11,7 @@ Index: lua-5.1.4/Makefile
 | 
			
		||||
 TO_MAN= lua.1 luac.1
 | 
			
		||||
 
 | 
			
		||||
 # Lua version and release.
 | 
			
		||||
@@ -63,6 +63,7 @@
 | 
			
		||||
@@ -63,6 +63,7 @@ install: dummy
 | 
			
		||||
 	cd src && $(INSTALL_EXEC) $(TO_BIN) $(INSTALL_BIN)
 | 
			
		||||
 	cd src && $(INSTALL_DATA) $(TO_INC) $(INSTALL_INC)
 | 
			
		||||
 	cd src && $(INSTALL_DATA) $(TO_LIB) $(INSTALL_LIB)
 | 
			
		||||
@@ -21,11 +19,9 @@ Index: lua-5.1.4/Makefile
 | 
			
		||||
 	cd doc && $(INSTALL_DATA) $(TO_MAN) $(INSTALL_MAN)
 | 
			
		||||
 
 | 
			
		||||
 ranlib:
 | 
			
		||||
Index: lua-5.1.4/src/ldo.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/ldo.h	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/ldo.h	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
@@ -46,7 +46,7 @@
 | 
			
		||||
--- a/src/ldo.h
 | 
			
		||||
+++ b/src/ldo.h
 | 
			
		||||
@@ -46,7 +46,7 @@ LUAI_FUNC int luaD_pcall (lua_State *L, 
 | 
			
		||||
 LUAI_FUNC int luaD_poscall (lua_State *L, StkId firstResult);
 | 
			
		||||
 LUAI_FUNC void luaD_reallocCI (lua_State *L, int newsize);
 | 
			
		||||
 LUAI_FUNC void luaD_reallocstack (lua_State *L, int newsize);
 | 
			
		||||
@@ -34,10 +30,8 @@ Index: lua-5.1.4/src/ldo.h
 | 
			
		||||
 
 | 
			
		||||
 LUAI_FUNC void luaD_throw (lua_State *L, int errcode);
 | 
			
		||||
 LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud);
 | 
			
		||||
Index: lua-5.1.4/src/lfunc.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lfunc.h	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lfunc.h	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
--- a/src/lfunc.h
 | 
			
		||||
+++ b/src/lfunc.h
 | 
			
		||||
@@ -18,7 +18,7 @@
 | 
			
		||||
                          cast(int, sizeof(TValue *)*((n)-1)))
 | 
			
		||||
 
 | 
			
		||||
@@ -47,10 +41,8 @@ Index: lua-5.1.4/src/lfunc.h
 | 
			
		||||
 LUAI_FUNC Closure *luaF_newCclosure (lua_State *L, int nelems, Table *e);
 | 
			
		||||
 LUAI_FUNC Closure *luaF_newLclosure (lua_State *L, int nelems, Table *e);
 | 
			
		||||
 LUAI_FUNC UpVal *luaF_newupval (lua_State *L);
 | 
			
		||||
Index: lua-5.1.4/src/lmem.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lmem.h	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lmem.h	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
--- a/src/lmem.h
 | 
			
		||||
+++ b/src/lmem.h
 | 
			
		||||
@@ -38,9 +38,9 @@
 | 
			
		||||
    ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t))))
 | 
			
		||||
 
 | 
			
		||||
@@ -63,10 +55,8 @@ Index: lua-5.1.4/src/lmem.h
 | 
			
		||||
 LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size,
 | 
			
		||||
                                size_t size_elem, int limit,
 | 
			
		||||
                                const char *errormsg);
 | 
			
		||||
Index: lua-5.1.4/src/lstring.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lstring.h	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lstring.h	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
--- a/src/lstring.h
 | 
			
		||||
+++ b/src/lstring.h
 | 
			
		||||
@@ -25,7 +25,7 @@
 | 
			
		||||
 
 | 
			
		||||
 LUAI_FUNC void luaS_resize (lua_State *L, int newsize);
 | 
			
		||||
@@ -76,11 +66,9 @@ Index: lua-5.1.4/src/lstring.h
 | 
			
		||||
 
 | 
			
		||||
 
 | 
			
		||||
 #endif
 | 
			
		||||
Index: lua-5.1.4/src/lundump.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lundump.h	2008-08-24 16:46:37.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lundump.h	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
@@ -17,7 +17,7 @@
 | 
			
		||||
--- a/src/lundump.h
 | 
			
		||||
+++ b/src/lundump.h
 | 
			
		||||
@@ -17,7 +17,7 @@ LUAI_FUNC Proto* luaU_undump (lua_State*
 | 
			
		||||
 LUAI_FUNC void luaU_header (char* h);
 | 
			
		||||
 
 | 
			
		||||
 /* dump one chunk; from ldump.c */
 | 
			
		||||
@@ -89,11 +77,9 @@ Index: lua-5.1.4/src/lundump.h
 | 
			
		||||
 
 | 
			
		||||
 #ifdef luac_c
 | 
			
		||||
 /* print one chunk; from print.c */
 | 
			
		||||
Index: lua-5.1.4/src/Makefile
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/Makefile	2008-08-24 16:48:20.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/Makefile	2008-08-24 16:48:42.000000000 +0200
 | 
			
		||||
@@ -23,6 +23,7 @@
 | 
			
		||||
--- a/src/Makefile
 | 
			
		||||
+++ b/src/Makefile
 | 
			
		||||
@@ -23,6 +23,7 @@ MYLIBS=
 | 
			
		||||
 PLATS= aix ansi bsd freebsd generic linux macosx mingw posix solaris
 | 
			
		||||
 
 | 
			
		||||
 LUA_A=	liblua.a
 | 
			
		||||
@@ -101,7 +87,7 @@ Index: lua-5.1.4/src/Makefile
 | 
			
		||||
 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  \
 | 
			
		||||
 	lundump.o lvm.o lzio.o lnum.o
 | 
			
		||||
@@ -33,11 +34,12 @@
 | 
			
		||||
@@ -33,11 +34,12 @@ LUA_T=	lua
 | 
			
		||||
 LUA_O=	lua.o
 | 
			
		||||
 
 | 
			
		||||
 LUAC_T=	luac
 | 
			
		||||
@@ -116,7 +102,7 @@ Index: lua-5.1.4/src/Makefile
 | 
			
		||||
 
 | 
			
		||||
 default: $(PLAT)
 | 
			
		||||
 
 | 
			
		||||
@@ -47,14 +49,23 @@
 | 
			
		||||
@@ -47,14 +49,23 @@ o:	$(ALL_O)
 | 
			
		||||
 
 | 
			
		||||
 a:	$(ALL_A)
 | 
			
		||||
 
 | 
			
		||||
@@ -143,7 +129,7 @@ Index: lua-5.1.4/src/Makefile
 | 
			
		||||
 	$(CC) -o $@ $(MYLDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS)
 | 
			
		||||
 
 | 
			
		||||
 clean:
 | 
			
		||||
@@ -96,7 +107,7 @@
 | 
			
		||||
@@ -96,7 +107,7 @@ generic:
 | 
			
		||||
 	$(MAKE) all MYCFLAGS=
 | 
			
		||||
 
 | 
			
		||||
 linux:
 | 
			
		||||
 
 | 
			
		||||
@@ -1,8 +1,6 @@
 | 
			
		||||
Index: lua-5.1.4/src/ldump.c
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/ldump.c	2008-08-24 16:48:20.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/ldump.c	2008-08-24 16:48:52.000000000 +0200
 | 
			
		||||
@@ -67,12 +67,12 @@
 | 
			
		||||
--- a/src/ldump.c
 | 
			
		||||
+++ b/src/ldump.c
 | 
			
		||||
@@ -67,12 +67,12 @@ static void DumpString(const TString* s,
 | 
			
		||||
 {
 | 
			
		||||
  if (s==NULL || getstr(s)==NULL)
 | 
			
		||||
  {
 | 
			
		||||
@@ -17,11 +15,9 @@ Index: lua-5.1.4/src/ldump.c
 | 
			
		||||
   DumpVar(size,D);
 | 
			
		||||
   DumpBlock(getstr(s),size,D);
 | 
			
		||||
  }
 | 
			
		||||
Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lundump.c	2008-08-24 16:48:20.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lundump.c	2008-08-24 16:48:52.000000000 +0200
 | 
			
		||||
@@ -25,6 +25,7 @@
 | 
			
		||||
--- a/src/lundump.c
 | 
			
		||||
+++ b/src/lundump.c
 | 
			
		||||
@@ -25,6 +25,7 @@ typedef struct {
 | 
			
		||||
  ZIO* Z;
 | 
			
		||||
  Mbuffer* b;
 | 
			
		||||
  const char* name;
 | 
			
		||||
@@ -29,7 +25,7 @@ Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
 } LoadState;
 | 
			
		||||
 
 | 
			
		||||
 #ifdef LUAC_TRUST_BINARIES
 | 
			
		||||
@@ -40,7 +41,6 @@
 | 
			
		||||
@@ -40,7 +41,6 @@ static void error(LoadState* S, const ch
 | 
			
		||||
 }
 | 
			
		||||
 #endif
 | 
			
		||||
 
 | 
			
		||||
@@ -37,7 +33,7 @@ Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
 #define	LoadByte(S)		(lu_byte)LoadChar(S)
 | 
			
		||||
 #define LoadVar(S,x)		LoadMem(S,&x,1,sizeof(x))
 | 
			
		||||
 #define LoadVector(S,b,n,size)	LoadMem(S,b,n,size)
 | 
			
		||||
@@ -51,6 +51,49 @@
 | 
			
		||||
@@ -51,6 +51,49 @@ static void LoadBlock(LoadState* S, void
 | 
			
		||||
  IF (r!=0, "unexpected end");
 | 
			
		||||
 }
 | 
			
		||||
 
 | 
			
		||||
@@ -87,7 +83,7 @@ Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
 static int LoadChar(LoadState* S)
 | 
			
		||||
 {
 | 
			
		||||
  char x;
 | 
			
		||||
@@ -82,7 +125,7 @@
 | 
			
		||||
@@ -82,7 +125,7 @@ static lua_Integer LoadInteger(LoadState
 | 
			
		||||
 
 | 
			
		||||
 static TString* LoadString(LoadState* S)
 | 
			
		||||
 {
 | 
			
		||||
@@ -96,7 +92,7 @@ Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
  LoadVar(S,size);
 | 
			
		||||
  if (size==0)
 | 
			
		||||
   return NULL;
 | 
			
		||||
@@ -196,6 +239,7 @@
 | 
			
		||||
@@ -196,6 +239,7 @@ static void LoadHeader(LoadState* S)
 | 
			
		||||
  char s[LUAC_HEADERSIZE];
 | 
			
		||||
  luaU_header(h);
 | 
			
		||||
  LoadBlock(S,s,LUAC_HEADERSIZE);
 | 
			
		||||
@@ -104,7 +100,7 @@ Index: lua-5.1.4/src/lundump.c
 | 
			
		||||
  IF (memcmp(h,s,LUAC_HEADERSIZE)!=0, "bad header");
 | 
			
		||||
 }
 | 
			
		||||
 
 | 
			
		||||
@@ -230,7 +274,7 @@
 | 
			
		||||
@@ -230,7 +274,7 @@ void luaU_header (char* h)
 | 
			
		||||
  *h++=(char)LUAC_FORMAT;
 | 
			
		||||
  *h++=(char)*(char*)&x;				/* endianness */
 | 
			
		||||
  *h++=(char)sizeof(int);
 | 
			
		||||
 
 | 
			
		||||
@@ -1,6 +1,5 @@
 | 
			
		||||
diff -ur lua-luci-5.1.3/src/luaconf.h lua-luci-5.1.3-new/src/luaconf.h
 | 
			
		||||
--- lua-luci-5.1.3/src/luaconf.h	2008-04-14 13:19:54.000000000 +0200
 | 
			
		||||
+++ lua-luci-5.1.3-new/src/luaconf.h	2008-04-14 13:19:17.000000000 +0200
 | 
			
		||||
--- a/src/luaconf.h
 | 
			
		||||
+++ b/src/luaconf.h
 | 
			
		||||
@@ -38,7 +38,6 @@
 | 
			
		||||
 #if defined(LUA_USE_LINUX)
 | 
			
		||||
 #define LUA_USE_POSIX
 | 
			
		||||
@@ -9,11 +8,9 @@ diff -ur lua-luci-5.1.3/src/luaconf.h lua-luci-5.1.3-new/src/luaconf.h
 | 
			
		||||
 #endif
 | 
			
		||||
 
 | 
			
		||||
 #if defined(LUA_USE_MACOSX)
 | 
			
		||||
Nur in lua-luci-5.1.3-new/src: luaconf.h.orig.
 | 
			
		||||
diff -ur lua-luci-5.1.3/src/Makefile lua-luci-5.1.3-new/src/Makefile
 | 
			
		||||
--- lua-luci-5.1.3/src/Makefile	2008-04-14 13:19:57.000000000 +0200
 | 
			
		||||
+++ lua-luci-5.1.3-new/src/Makefile	2008-04-14 13:19:17.000000000 +0200
 | 
			
		||||
@@ -17,6 +17,7 @@
 | 
			
		||||
--- a/src/Makefile
 | 
			
		||||
+++ b/src/Makefile
 | 
			
		||||
@@ -17,6 +17,7 @@ LIBS= -lm $(MYLIBS)
 | 
			
		||||
 MYCFLAGS=
 | 
			
		||||
 MYLDFLAGS=
 | 
			
		||||
 MYLIBS=
 | 
			
		||||
@@ -21,7 +18,7 @@ diff -ur lua-luci-5.1.3/src/Makefile lua-luci-5.1.3-new/src/Makefile
 | 
			
		||||
 
 | 
			
		||||
 # == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE =========
 | 
			
		||||
 
 | 
			
		||||
@@ -86,7 +87,7 @@
 | 
			
		||||
@@ -86,7 +87,7 @@ echo:
 | 
			
		||||
 	@echo "MYLIBS = $(MYLIBS)"
 | 
			
		||||
 
 | 
			
		||||
 # convenience targets for popular platforms
 | 
			
		||||
@@ -30,7 +27,7 @@ diff -ur lua-luci-5.1.3/src/Makefile lua-luci-5.1.3-new/src/Makefile
 | 
			
		||||
 none:
 | 
			
		||||
 	@echo "Please choose a platform:"
 | 
			
		||||
 	@echo "   $(PLATS)"
 | 
			
		||||
@@ -101,16 +102,16 @@
 | 
			
		||||
@@ -101,16 +102,16 @@ bsd:
 | 
			
		||||
 	$(MAKE) all MYCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" MYLIBS="-Wl,-E"
 | 
			
		||||
 
 | 
			
		||||
 freebsd:
 | 
			
		||||
@@ -50,4 +47,3 @@ diff -ur lua-luci-5.1.3/src/Makefile lua-luci-5.1.3-new/src/Makefile
 | 
			
		||||
 # use this on Mac OS X 10.3-
 | 
			
		||||
 #	$(MAKE) all MYCFLAGS=-DLUA_USE_MACOSX
 | 
			
		||||
 
 | 
			
		||||
Nur in lua-luci-5.1.3-new/src: Makefile.orig.
 | 
			
		||||
 
 | 
			
		||||
@@ -1,5 +1,5 @@
 | 
			
		||||
--- b/src/luaconf.h	2008-05-06 20:10:46.000000000 +0200
 | 
			
		||||
+++ a/src/luaconf.h	2008-05-06 20:10:27.000000000 +0200
 | 
			
		||||
--- a/src/luaconf.h
 | 
			
		||||
+++ b/src/luaconf.h
 | 
			
		||||
@@ -95,9 +95,9 @@
 | 
			
		||||
 	".\\?.dll;"  LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll"
 | 
			
		||||
 
 | 
			
		||||
 
 | 
			
		||||
@@ -1,8 +1,6 @@
 | 
			
		||||
Index: lua-5.1.4/src/Makefile
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/Makefile	2008-09-25 12:19:44.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/Makefile	2008-09-25 12:20:03.000000000 +0200
 | 
			
		||||
@@ -12,7 +12,7 @@
 | 
			
		||||
--- a/src/Makefile
 | 
			
		||||
+++ b/src/Makefile
 | 
			
		||||
@@ -12,7 +12,7 @@ CFLAGS= -O2 -Wall $(MYCFLAGS)
 | 
			
		||||
 AR= ar rcu
 | 
			
		||||
 RANLIB= ranlib
 | 
			
		||||
 RM= rm -f
 | 
			
		||||
@@ -11,7 +9,7 @@ Index: lua-5.1.4/src/Makefile
 | 
			
		||||
 
 | 
			
		||||
 MYCFLAGS=
 | 
			
		||||
 MYLDFLAGS=
 | 
			
		||||
@@ -29,7 +29,7 @@
 | 
			
		||||
@@ -29,7 +29,7 @@ CORE_O=	lapi.o lcode.o ldebug.o ldo.o ld
 | 
			
		||||
 	lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o ltm.o  \
 | 
			
		||||
 	lundump.o lvm.o lzio.o lnum.o
 | 
			
		||||
 LIB_O=	lauxlib.o lbaselib.o ldblib.o liolib.o lmathlib.o loslib.o ltablib.o \
 | 
			
		||||
@@ -20,11 +18,9 @@ Index: lua-5.1.4/src/Makefile
 | 
			
		||||
 
 | 
			
		||||
 LUA_T=	lua
 | 
			
		||||
 LUA_O=	lua.o
 | 
			
		||||
Index: lua-5.1.4/src/linit.c
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/linit.c	2008-09-25 12:19:02.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/linit.c	2008-09-25 12:19:32.000000000 +0200
 | 
			
		||||
@@ -23,6 +23,7 @@
 | 
			
		||||
--- a/src/linit.c
 | 
			
		||||
+++ b/src/linit.c
 | 
			
		||||
@@ -23,6 +23,7 @@ static const luaL_Reg lualibs[] = {
 | 
			
		||||
   {LUA_STRLIBNAME, luaopen_string},
 | 
			
		||||
   {LUA_MATHLIBNAME, luaopen_math},
 | 
			
		||||
   {LUA_DBLIBNAME, luaopen_debug},
 | 
			
		||||
@@ -32,10 +28,8 @@ Index: lua-5.1.4/src/linit.c
 | 
			
		||||
   {NULL, NULL}
 | 
			
		||||
 };
 | 
			
		||||
 
 | 
			
		||||
Index: lua-5.1.4/src/lposix.c
 | 
			
		||||
===================================================================
 | 
			
		||||
--- /dev/null	1970-01-01 00:00:00.000000000 +0000
 | 
			
		||||
+++ lua-5.1.4/src/lposix.c	2008-09-25 12:16:29.000000000 +0200
 | 
			
		||||
--- /dev/null
 | 
			
		||||
+++ b/src/lposix.c
 | 
			
		||||
@@ -0,0 +1,1139 @@
 | 
			
		||||
+/*
 | 
			
		||||
+* lposix.c
 | 
			
		||||
@@ -1176,11 +1170,9 @@ Index: lua-5.1.4/src/lposix.c
 | 
			
		||||
+}
 | 
			
		||||
+
 | 
			
		||||
+/*EOF*/
 | 
			
		||||
Index: lua-5.1.4/src/lualib.h
 | 
			
		||||
===================================================================
 | 
			
		||||
--- lua-5.1.4.orig/src/lualib.h	2008-09-25 12:18:14.000000000 +0200
 | 
			
		||||
+++ lua-5.1.4/src/lualib.h	2008-09-25 12:18:53.000000000 +0200
 | 
			
		||||
@@ -39,6 +39,9 @@
 | 
			
		||||
--- a/src/lualib.h
 | 
			
		||||
+++ b/src/lualib.h
 | 
			
		||||
@@ -39,6 +39,9 @@ LUALIB_API int (luaopen_debug) (lua_Stat
 | 
			
		||||
 #define LUA_LOADLIBNAME	"package"
 | 
			
		||||
 LUALIB_API int (luaopen_package) (lua_State *L);
 | 
			
		||||
 
 | 
			
		||||
@@ -1190,10 +1182,8 @@ Index: lua-5.1.4/src/lualib.h
 | 
			
		||||
 
 | 
			
		||||
 /* open all previous libraries */
 | 
			
		||||
 LUALIB_API void (luaL_openlibs) (lua_State *L); 
 | 
			
		||||
Index: lua-5.1.4/src/modemuncher.c
 | 
			
		||||
===================================================================
 | 
			
		||||
--- /dev/null	1970-01-01 00:00:00.000000000 +0000
 | 
			
		||||
+++ lua-5.1.4/src/modemuncher.c	2008-09-25 12:16:29.000000000 +0200
 | 
			
		||||
--- /dev/null
 | 
			
		||||
+++ b/src/modemuncher.c
 | 
			
		||||
@@ -0,0 +1,261 @@
 | 
			
		||||
+/* 
 | 
			
		||||
+	Mode Muncher -- modemuncher.c
 | 
			
		||||
 
 | 
			
		||||
@@ -205,7 +205,7 @@
 | 
			
		||||
   lua_unlock(L);
 | 
			
		||||
   return res;
 | 
			
		||||
 }
 | 
			
		||||
@@ -1040,20 +1046,21 @@ LUA_API int lua_next (lua_State *L, int 
 | 
			
		||||
@@ -1040,8 +1046,9 @@ LUA_API int lua_next (lua_State *L, int 
 | 
			
		||||
   if (more) {
 | 
			
		||||
     api_incr_top(L);
 | 
			
		||||
   }
 | 
			
		||||
@@ -217,11 +217,7 @@
 | 
			
		||||
   lua_unlock(L);
 | 
			
		||||
   return more;
 | 
			
		||||
 }
 | 
			
		||||
 
 | 
			
		||||
 
 | 
			
		||||
 LUA_API void lua_concat (lua_State *L, int n) {
 | 
			
		||||
   lua_lock(L);
 | 
			
		||||
   api_checknelems(L, n);
 | 
			
		||||
@@ -1053,7 +1060,7 @@ LUA_API void lua_concat (lua_State *L, i
 | 
			
		||||
   if (n >= 2) {
 | 
			
		||||
     luaC_checkGC(L);
 | 
			
		||||
     luaV_concat(L, n, cast_int(L->top - L->base) - 1);
 | 
			
		||||
@@ -230,7 +226,7 @@
 | 
			
		||||
   }
 | 
			
		||||
   else if (n == 0) {  /* push empty string */
 | 
			
		||||
     setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));
 | 
			
		||||
@@ -1139,6 +1147,7 @@ LUA_API const char *lua_setupvalue (lua_
 | 
			
		||||
@@ -1139,6 +1146,7 @@ LUA_API const char *lua_setupvalue (lua_
 | 
			
		||||
   if (name) {
 | 
			
		||||
     L->top--;
 | 
			
		||||
     setobj(L, val, L->top);
 | 
			
		||||
@@ -238,7 +234,7 @@
 | 
			
		||||
     luaC_barrier(L, clvalue(fi), L->top);
 | 
			
		||||
   }
 | 
			
		||||
   lua_unlock(L);
 | 
			
		||||
@@ -1160,7 +1169,7 @@ LUA_API const char *lua_setupvalue (lua_
 | 
			
		||||
@@ -1160,7 +1168,7 @@ LUA_API const char *lua_setupvalue (lua_
 | 
			
		||||
 int lua_pushvalue_as_number (lua_State *L, int idx)
 | 
			
		||||
 {
 | 
			
		||||
   const TValue *o = index2adr(L, idx);
 | 
			
		||||
@@ -518,7 +514,7 @@
 | 
			
		||||
     }
 | 
			
		||||
   }
 | 
			
		||||
   return p;
 | 
			
		||||
@@ -543,7 +551,7 @@ static void atomic (lua_State *L) {
 | 
			
		||||
@@ -543,7 +546,7 @@ static void atomic (lua_State *L) {
 | 
			
		||||
   udsize = luaC_separateudata(L, 0);  /* separate userdata to be finalized */
 | 
			
		||||
   marktmu(g);  /* mark `preserved' userdata */
 | 
			
		||||
   udsize += propagateall(g);  /* remark, to propagate `preserveness' */
 | 
			
		||||
@@ -527,7 +523,7 @@
 | 
			
		||||
   /* flip current white */
 | 
			
		||||
   g->currentwhite = cast_byte(otherwhite(g));
 | 
			
		||||
   g->sweepstrgc = 0;
 | 
			
		||||
@@ -685,8 +693,11 @@ void luaC_barrierback (lua_State *L, Tab
 | 
			
		||||
@@ -685,8 +688,11 @@ void luaC_barrierback (lua_State *L, Tab
 | 
			
		||||
 
 | 
			
		||||
 void luaC_link (lua_State *L, GCObject *o, lu_byte tt) {
 | 
			
		||||
   global_State *g = G(L);
 | 
			
		||||
@@ -977,7 +973,7 @@
 | 
			
		||||
   lua_Number d;
 | 
			
		||||
   lua_Integer i;
 | 
			
		||||
   
 | 
			
		||||
@@ -384,6 +386,7 @@ void luaV_concat (lua_State *L, int tota
 | 
			
		||||
@@ -384,6 +385,7 @@ void luaV_concat (lua_State *L, int tota
 | 
			
		||||
         size_t l = tsvalue(top-i)->len;
 | 
			
		||||
         memcpy(buffer+tl, svalue(top-i), l);
 | 
			
		||||
         tl += l;
 | 
			
		||||
@@ -985,7 +981,7 @@
 | 
			
		||||
       }
 | 
			
		||||
       setsvalue2s(L, top-n, luaS_newlstr(L, buffer, tl));
 | 
			
		||||
     }
 | 
			
		||||
@@ -420,7 +423,7 @@ void luaV_concat (lua_State *L, int tota
 | 
			
		||||
@@ -420,7 +422,7 @@ void luaV_concat (lua_State *L, int tota
 | 
			
		||||
  */
 | 
			
		||||
 static void Arith (lua_State *L, StkId ra, const TValue *rb,
 | 
			
		||||
                    const TValue *rc, TMS op) {
 | 
			
		||||
@@ -994,7 +990,7 @@
 | 
			
		||||
   const TValue *b, *c;
 | 
			
		||||
   lua_Number nb,nc;
 | 
			
		||||
 
 | 
			
		||||
@@ -663,7 +666,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -663,7 +665,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
       OPCODE_TARGET(LOADNIL) {
 | 
			
		||||
         TValue *rb = RB(i);
 | 
			
		||||
         do {
 | 
			
		||||
@@ -1003,7 +999,7 @@
 | 
			
		||||
         } while (rb >= ra);
 | 
			
		||||
         continue;
 | 
			
		||||
       }
 | 
			
		||||
@@ -673,7 +676,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -673,7 +675,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
         continue;
 | 
			
		||||
       }
 | 
			
		||||
       OPCODE_TARGET(GETGLOBAL) {
 | 
			
		||||
@@ -1012,7 +1008,7 @@
 | 
			
		||||
         TValue *rb = KBx(i);
 | 
			
		||||
         sethvalue(L, &g, cl->env);
 | 
			
		||||
         lua_assert(ttisstring(rb));
 | 
			
		||||
@@ -685,7 +688,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -685,7 +687,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
         continue;
 | 
			
		||||
       }
 | 
			
		||||
       OPCODE_TARGET(SETGLOBAL) {
 | 
			
		||||
@@ -1021,7 +1017,7 @@
 | 
			
		||||
         sethvalue(L, &g, cl->env);
 | 
			
		||||
         lua_assert(ttisstring(KBx(i)));
 | 
			
		||||
         Protect(luaV_settable(L, &g, KBx(i), ra));
 | 
			
		||||
@@ -895,7 +900,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -895,7 +897,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
         if (--nexeccalls == 0)  /* was previous function running `here'? */
 | 
			
		||||
           return;  /* no: return */
 | 
			
		||||
         else {  /* yes: continue its execution */
 | 
			
		||||
@@ -1030,7 +1026,7 @@
 | 
			
		||||
           lua_assert(isLua(L->ci));
 | 
			
		||||
           lua_assert(GET_OPCODE(*((L->ci)->savedpc - 1)) == OP_CALL);
 | 
			
		||||
           goto reentry;
 | 
			
		||||
@@ -986,6 +991,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -986,6 +988,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
         for (; n > 0; n--) {
 | 
			
		||||
           TValue *val = ra+n;
 | 
			
		||||
           setobj2t(L, luaH_setint(L, h, last--), val);
 | 
			
		||||
@@ -1038,7 +1034,7 @@
 | 
			
		||||
           luaC_barriert(L, h, val);
 | 
			
		||||
         }
 | 
			
		||||
         continue;
 | 
			
		||||
@@ -1030,7 +1036,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
@@ -1030,7 +1033,7 @@ void luaV_execute (lua_State *L, int nex
 | 
			
		||||
             setobjs2s(L, ra + j, ci->base - n + j);
 | 
			
		||||
           }
 | 
			
		||||
           else {
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user