projects
/
openwrt
/
staging
/
jow.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d0484c4
)
tools: refresh patches for tools lua, mtd-utils, ipkg-utils, squashfs, lzma, and...
author
Hauke Mehrtens
<hauke@hauke-m.de>
Sat, 21 Feb 2009 14:46:03 +0000
(14:46 +0000)
committer
Hauke Mehrtens
<hauke@hauke-m.de>
Sat, 21 Feb 2009 14:46:03 +0000
(14:46 +0000)
SVN-Revision: 14589
21 files changed:
tools/autoconf/patches/001-no_emacs_lib.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/100-build_clean.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/110-buildpackage.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/111-buildpackage_conffiles.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/120-build_tar.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/130-tar_wildcards.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/140-portability.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/150-uppercase_letters.patch
patch
|
blob
|
history
tools/ipkg-utils/patches/160-find.patch
patch
|
blob
|
history
tools/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
patch
|
blob
|
history
tools/lua/patches/015-lnum-ppc-compat.patch
patch
|
blob
|
history
tools/lua/patches/020-shared_liblua.patch
patch
|
blob
|
history
tools/lua/patches/030-archindependent-bytecode.patch
patch
|
blob
|
history
tools/lua/patches/100-no_readline.patch
patch
|
blob
|
history
tools/lua/patches/200-lua-path.patch
patch
|
blob
|
history
tools/lua/patches/300-opcode_performance.patch
patch
|
blob
|
history
tools/lzma/patches/100-lzma_zlib.patch
patch
|
blob
|
history
tools/lzma/patches/110-ranlib.patch
patch
|
blob
|
history
tools/mtd-utils/patches/100-gcc4_fix.patch
patch
|
blob
|
history
tools/mtd-utils/patches/110-portability_fix.patch
patch
|
blob
|
history
tools/squashfs/patches/100-lzma.patch
patch
|
blob
|
history
diff --git
a/tools/autoconf/patches/001-no_emacs_lib.patch
b/tools/autoconf/patches/001-no_emacs_lib.patch
index fabccdb383e7a1c3ca881e52237456fd11880f78..435fb92ee44544839441ecd991c2243115415c08 100644
(file)
--- a/
tools/autoconf/patches/001-no_emacs_lib.patch
+++ b/
tools/autoconf/patches/001-no_emacs_lib.patch
@@
-1,6
+1,5
@@
-diff -urN autoconf-2.62/lib/Makefile.am autoconf-2.62.new/lib/Makefile.am
---- autoconf-2.62/lib/Makefile.am 2008-04-04 19:17:16.000000000 +0200
-+++ autoconf-2.62.new/lib/Makefile.am 2008-09-09 16:51:40.000000000 +0200
+--- a/lib/Makefile.am
++++ b/lib/Makefile.am
@@ -16,7 +16,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
@@ -16,7 +16,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
@@
-10,10
+9,9
@@
diff -urN autoconf-2.62/lib/Makefile.am autoconf-2.62.new/lib/Makefile.am
nodist_pkgdata_DATA = autom4te.cfg
EXTRA_DIST = autom4te.in freeze.mk
nodist_pkgdata_DATA = autom4te.cfg
EXTRA_DIST = autom4te.in freeze.mk
-diff -urN autoconf-2.62/lib/Makefile.in autoconf-2.62.new/lib/Makefile.in
---- autoconf-2.62/lib/Makefile.in 2008-04-06 00:57:18.000000000 +0200
-+++ autoconf-2.62.new/lib/Makefile.in 2008-09-09 16:51:33.000000000 +0200
-@@ -165,7 +165,7 @@
+--- a/lib/Makefile.in
++++ b/lib/Makefile.in
+@@ -165,7 +165,7 @@ target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
diff --git
a/tools/ipkg-utils/patches/100-build_clean.patch
b/tools/ipkg-utils/patches/100-build_clean.patch
index 4cff731d5b0f5396a46c495ef7a4f613e5b0a6d1..7df272f74de7962377eb8e6be5e8c9553287dafd 100644
(file)
--- a/
tools/ipkg-utils/patches/100-build_clean.patch
+++ b/
tools/ipkg-utils/patches/100-build_clean.patch
@@
-1,7
+1,6
@@
-diff -ruN ipkg-utils-1.7-old/ipkg-build ipkg-utils-1.7-new/ipkg-build
---- ipkg-utils-1.7-old/ipkg-build 2004-08-24 04:56:12.000000000 +0200
-+++ ipkg-utils-1.7-new/ipkg-build 2004-08-24 04:55:49.000000000 +0200
-@@ -47,6 +47,19 @@
+--- a/ipkg-build
++++ b/ipkg-build
+@@ -47,6 +47,19 @@ pkg_appears_sane() {
PKG_ERROR=0
PKG_ERROR=0
@@
-21,7
+20,7
@@
diff -ruN ipkg-utils-1.7-old/ipkg-build ipkg-utils-1.7-new/ipkg-build
tilde_files=`find . -name '*~'`
if [ -n "$tilde_files" ]; then
if [ "$noclean" = "1" ]; then
tilde_files=`find . -name '*~'`
if [ -n "$tilde_files" ]; then
if [ "$noclean" = "1" ]; then
-@@ -134,8 +147,12 @@
+@@ -134,8 +147,12 @@
You probably want to chown these to a sy
for script in $CONTROL/preinst $CONTROL/postinst $CONTROL/prerm $CONTROL/postrm; do
if [ -f $script -a ! -x $script ]; then
for script in $CONTROL/preinst $CONTROL/postinst $CONTROL/prerm $CONTROL/postrm; do
if [ -f $script -a ! -x $script ]; then
diff --git
a/tools/ipkg-utils/patches/110-buildpackage.patch
b/tools/ipkg-utils/patches/110-buildpackage.patch
index d0a30489ae16424211944b74425b5b78a643de09..8e62ee70cf7241ccbdbb1c24e43151b1e16b0931 100644
(file)
--- a/
tools/ipkg-utils/patches/110-buildpackage.patch
+++ b/
tools/ipkg-utils/patches/110-buildpackage.patch
@@
-1,6
+1,5
@@
-diff -ruN ipkg-utils-1.7-old/ipkg-buildpackage ipkg-utils-1.7-new/ipkg-buildpackage
---- ipkg-utils-1.7-old/ipkg-buildpackage 2001-07-26 17:36:36.000000000 +0200
-+++ ipkg-utils-1.7-new/ipkg-buildpackage 2004-07-05 19:46:24.000000000 +0200
+--- a/ipkg-buildpackage
++++ b/ipkg-buildpackage
@@ -30,8 +30,9 @@
set -e
@@ -30,8 +30,9 @@
set -e
@@
-13,7
+12,7
@@
diff -ruN ipkg-utils-1.7-old/ipkg-buildpackage ipkg-utils-1.7-new/ipkg-buildpack
SCRIPTNAME=`basename $0`
SCRIPTNAME=`basename $0`
-@@ -212,7 +213,7 @@
+@@ -212,7 +213,7 @@
done
# build the ipk package
owd=`pwd`
cd ..
# build the ipk package
owd=`pwd`
cd ..
diff --git
a/tools/ipkg-utils/patches/111-buildpackage_conffiles.patch
b/tools/ipkg-utils/patches/111-buildpackage_conffiles.patch
index ac1b0c04cce848e5b9934d9ee6b139e4ea648e53..dacdaaefbdb187776d25be800727c8c0c52a17c9 100644
(file)
--- a/
tools/ipkg-utils/patches/111-buildpackage_conffiles.patch
+++ b/
tools/ipkg-utils/patches/111-buildpackage_conffiles.patch
@@
-1,6
+1,6
@@
----
ipkg-utils-1.7-old/ipkg-buildpackage 2008-05-21 07:18:21.000000000 +0200
-+++
ipkg-utils-1.7-new/ipkg-buildpackage 2008-05-21 03:22:19.000000000 +0200
-@@ -190,7 +190,7 @@
+---
a/ipkg-buildpackage
++++
b/ipkg-buildpackage
+@@ -190,7 +190,7 @@
fi
mkdir /tmp/${pkg}/CONTROL
files_required="control"
mkdir /tmp/${pkg}/CONTROL
files_required="control"
diff --git
a/tools/ipkg-utils/patches/120-build_tar.patch
b/tools/ipkg-utils/patches/120-build_tar.patch
index 299d68f4e4712f1e69810fabd46d274dc4ec1755..acf6b798539b58ac48eb63fb17a9926b8d355381 100644
(file)
--- a/
tools/ipkg-utils/patches/120-build_tar.patch
+++ b/
tools/ipkg-utils/patches/120-build_tar.patch
@@
-3,11
+3,9
@@
This patch from aorlinsk fixes an issue with order in options passed to tar
http://openwrt.org/forum/viewtopic.php?pid=8332#p8332
http://openwrt.org/forum/viewtopic.php?pid=8332#p8332
-Index: ipkg-utils-1.7/ipkg-build
-===================================================================
---- ipkg-utils-1.7.orig/ipkg-build 2007-06-30 14:19:16.519409000 +0200
-+++ ipkg-utils-1.7/ipkg-build 2007-06-30 14:20:12.722921500 +0200
-@@ -184,7 +184,7 @@
+--- a/ipkg-build
++++ b/ipkg-build
+@@ -184,7 +184,7 @@ while getopts "cg:ho:v" opt; do
g ) group=$OPTARG
ogargs="$ogargs --group=$group"
;;
g ) group=$OPTARG
ogargs="$ogargs --group=$group"
;;
@@
-16,7
+14,7
@@
Index: ipkg-utils-1.7/ipkg-build
;;
C ) noclean=1
;;
;;
C ) noclean=1
;;
-@@ -243,8 +243,8 @@
+@@ -243,8 +243,8 @@
tmp_dir=$dest_dir/IPKG_BUILD.$$
mkdir $tmp_dir
echo $CONTROL > $tmp_dir/tarX
mkdir $tmp_dir
echo $CONTROL > $tmp_dir/tarX
@@
-27,7
+25,7
@@
Index: ipkg-utils-1.7/ipkg-build
rm $tmp_dir/tarX
echo "2.0" > $tmp_dir/debian-binary
rm $tmp_dir/tarX
echo "2.0" > $tmp_dir/debian-binary
-@@ -254,7 +254,7 @@
+@@ -254,7 +254,7 @@
rm -f $pkg_file
if [ "$outer" = "ar" ] ; then
( cd $tmp_dir && ar -crf $pkg_file ./debian-binary ./data.tar.gz ./control.tar.gz )
else
if [ "$outer" = "ar" ] ; then
( cd $tmp_dir && ar -crf $pkg_file ./debian-binary ./data.tar.gz ./control.tar.gz )
else
diff --git
a/tools/ipkg-utils/patches/130-tar_wildcards.patch
b/tools/ipkg-utils/patches/130-tar_wildcards.patch
index 80a7d1db6183af51ac2ca76a44118c08679d7edd..ba949c10031a63aac99cdd767557e8476890c808 100644
(file)
--- a/
tools/ipkg-utils/patches/130-tar_wildcards.patch
+++ b/
tools/ipkg-utils/patches/130-tar_wildcards.patch
@@
-1,6
+1,6
@@
----
ipkg-utils-1.7/ipkg.py.orig 2006-06-29 14:16:00.000000000 +0200
-+++
ipkg-utils-1.7/ipkg.py 2006-06-29 14:36:01.000000000 +0200
-@@ -93,9 +93,9 @@
+---
a/ipkg.py
++++
b/ipkg.py
+@@ -93,9 +93,9 @@
class Package:
self.filename = os.path.basename(fn)
## sys.stderr.write(" extracting control.tar.gz from %s\n"% (fn,))
if self.isdeb:
self.filename = os.path.basename(fn)
## sys.stderr.write(" extracting control.tar.gz from %s\n"% (fn,))
if self.isdeb:
@@
-12,7
+12,7
@@
line = control.readline()
while 1:
if not line: break
line = control.readline()
while 1:
if not line: break
-@@ -122,7 +122,7 @@
+@@ -122,7 +122,7 @@
class Package:
if self.isdeb:
data = os.popen("ar p "+fn+" data.tar.gz | tar tfz -","r")
else:
if self.isdeb:
data = os.popen("ar p "+fn+" data.tar.gz | tar tfz -","r")
else:
diff --git
a/tools/ipkg-utils/patches/140-portability.patch
b/tools/ipkg-utils/patches/140-portability.patch
index ae71d7a896048103b10f518d41df482aaf0cefe3..417c4094d4db09eea5a26e187ab87b3351ebc924 100644
(file)
--- a/
tools/ipkg-utils/patches/140-portability.patch
+++ b/
tools/ipkg-utils/patches/140-portability.patch
@@
-1,8
+1,6
@@
-Index: ipkg-utils-1.7/ipkg-build
-===================================================================
---- ipkg-utils-1.7.orig/ipkg-build 2007-06-30 15:21:37.621213250 +0200
-+++ ipkg-utils-1.7/ipkg-build 2007-06-30 15:21:51.862103250 +0200
-@@ -11,6 +11,8 @@
+--- a/ipkg-build
++++ b/ipkg-build
+@@ -11,6 +11,8 @@ set -e
version=1.0
version=1.0
@@
-11,10
+9,8
@@
Index: ipkg-utils-1.7/ipkg-build
ipkg_extract_value() {
sed -e "s/^[^:]*:[[:space:]]*//"
}
ipkg_extract_value() {
sed -e "s/^[^:]*:[[:space:]]*//"
}
-Index: ipkg-utils-1.7/ipkg-make-index
-===================================================================
---- ipkg-utils-1.7.orig/ipkg-make-index 2007-06-30 15:21:37.225188500 +0200
-+++ ipkg-utils-1.7/ipkg-make-index 2007-06-30 15:21:51.866103500 +0200
+--- a/ipkg-make-index
++++ b/ipkg-make-index
@@ -1,4 +1,4 @@
-#!/usr/bin/python
+#!/usr/bin/env python
@@ -1,4 +1,4 @@
-#!/usr/bin/python
+#!/usr/bin/env python
diff --git
a/tools/ipkg-utils/patches/150-uppercase_letters.patch
b/tools/ipkg-utils/patches/150-uppercase_letters.patch
index c0baa1f223ba94cd67db75555a9d7a091a404e1c..cef200dcc86d6a5eec624dc4f9112a660131d036 100644
(file)
--- a/
tools/ipkg-utils/patches/150-uppercase_letters.patch
+++ b/
tools/ipkg-utils/patches/150-uppercase_letters.patch
@@
-1,8
+1,6
@@
-Index: ipkg-utils-1.7/ipkg-build
-===================================================================
---- ipkg-utils-1.7.orig/ipkg-build 2007-07-21 03:10:58.228362436 +0200
-+++ ipkg-utils-1.7/ipkg-build 2007-07-21 03:11:02.912629374 +0200
-@@ -133,7 +133,7 @@
+--- a/ipkg-build
++++ b/ipkg-build
+@@ -133,7 +133,7 @@ You probably want to chown these to a sy
disallowed_filename=`disallowed_field Filename`
[ "$?" -ne 0 ] && PKG_ERROR=1
disallowed_filename=`disallowed_field Filename`
[ "$?" -ne 0 ] && PKG_ERROR=1
@@
-11,11
+9,9
@@
Index: ipkg-utils-1.7/ipkg-build
echo "*** Error: Package name $name contains illegal characters, (other than [a-z0-9.+-])" >&2
PKG_ERROR=1;
fi
echo "*** Error: Package name $name contains illegal characters, (other than [a-z0-9.+-])" >&2
PKG_ERROR=1;
fi
-Index: ipkg-utils-1.7/ipkg-buildpackage
-===================================================================
---- ipkg-utils-1.7.orig/ipkg-buildpackage 2007-07-21 03:10:43.859543602 +0200
-+++ ipkg-utils-1.7/ipkg-buildpackage 2007-07-21 03:10:52.212019583 +0200
-@@ -69,7 +69,7 @@
+--- a/ipkg-buildpackage
++++ b/ipkg-buildpackage
+@@ -69,7 +69,7 @@ pkg_appears_sane_control() {
required_field Maintainer >/dev/null
required_field Description >/dev/null
required_field Maintainer >/dev/null
required_field Description >/dev/null
diff --git
a/tools/ipkg-utils/patches/160-find.patch
b/tools/ipkg-utils/patches/160-find.patch
index 04a2ad4410af7696f060edc1564f7e9c579518d4..45ef3c6517048ca507d7603cb8b7345ae8d15ecc 100644
(file)
--- a/
tools/ipkg-utils/patches/160-find.patch
+++ b/
tools/ipkg-utils/patches/160-find.patch
@@
-1,5
+1,5
@@
----
/tmp/ipkg-build 2008-08-01 09:36:41.000000000 +0200
-+++
ipkg-utils-1.7/ipkg-build 2008-08-06 15:04:52.000000000 +0200
+---
a/ipkg-build
++++
b/ipkg-build
@@ -10,7 +10,8 @@
set -e
@@ -10,7 +10,8 @@
set -e
@@
-10,7
+10,7
@@
TAR="${TAR:-$(which tar)}"
ipkg_extract_value() {
TAR="${TAR:-$(which tar)}"
ipkg_extract_value() {
-@@ -49,7 +50,7 @@
+@@ -49,7 +50,7 @@
pkg_appears_sane() {
PKG_ERROR=0
PKG_ERROR=0
@@
-19,7
+19,7
@@
if [ -n "$cvs_dirs" ]; then
if [ "$noclean" = "1" ]; then
echo "*** Warning: The following CVS directories where found.
if [ -n "$cvs_dirs" ]; then
if [ "$noclean" = "1" ]; then
echo "*** Warning: The following CVS directories where found.
-@@ -62,7 +63,7 @@
+@@ -62,7 +63,7 @@
You probably want to remove them: " >&2
fi
fi
fi
fi
@@
-28,7
+28,7
@@
if [ -n "$tilde_files" ]; then
if [ "$noclean" = "1" ]; then
echo "*** Warning: The following files have names ending in '~'.
if [ -n "$tilde_files" ]; then
if [ "$noclean" = "1" ]; then
echo "*** Warning: The following files have names ending in '~'.
-@@ -75,7 +76,7 @@
+@@ -75,7 +76,7 @@
You probably want to remove them: " >&2
fi
fi
fi
fi
diff --git
a/tools/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
b/tools/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
index 32c39f3b7c63c9954b90129fb0309c2e70903715..f8864a1841bd1d4eedb7c5fc840c6abacf5da94b 100644
(file)
--- a/
tools/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
+++ b/
tools/lua/patches/010-lua-5.1.3-lnum-full-260308.patch
@@
-1,8
+1,6
@@
-Index: lua-5.1.4/src/Makefile
-===================================================================
---- lua-5.1.4.orig/src/Makefile 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/Makefile 2008-08-24 16:48:20.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 \
@@
-11,7
+9,7
@@
Index: lua-5.1.4/src/Makefile
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
@@
-19,7
+17,7
@@
Index: lua-5.1.4/src/Makefile
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
@@
-38,10
+36,8
@@
Index: lua-5.1.4/src/Makefile
+print.c: lnum.h
+
# (end of Makefile)
+print.c: lnum.h
+
# (end of Makefile)
-Index: lua-5.1.4/src/lapi.c
-===================================================================
---- lua-5.1.4.orig/src/lapi.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lapi.c 2008-08-24 16:48:20.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"
@@
-51,7
+47,7
@@
Index: lua-5.1.4/src/lapi.c
const char lua_ident[] =
const char lua_ident[] =
-@@ -241,12 +241,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);
@@
-66,7
+62,7
@@
Index: lua-5.1.4/src/lapi.c
return (t == LUA_TNONE) ? "no value" : luaT_typenames[t];
}
return (t == LUA_TNONE) ? "no value" : luaT_typenames[t];
}
-@@ -264,6 +265,14 @@
+@@ -264,6 +265,14 @@
LUA_API int lua_isnumber (lua_State *L,
}
}
@@
-81,7
+77,7
@@
Index: lua-5.1.4/src/lapi.c
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);
-@@ -309,31 +318,66 @@
+@@ -309,31 +318,66 @@
LUA_API int lua_lessthan (lua_State *L,
}
}
@@
-158,7
+154,7
@@
Index: lua-5.1.4/src/lapi.c
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);
-@@ -364,6 +408,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));
@@
-166,7
+162,7
@@
Index: lua-5.1.4/src/lapi.c
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 */
-@@ -426,6 +471,8 @@
+@@ -426,6 +471,8 @@
LUA_API void lua_pushnil (lua_State *L)
}
}
@@
-175,7
+171,7
@@
Index: lua-5.1.4/src/lapi.c
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);
-@@ -434,12 +481,22 @@
+@@ -434,12 +481,22 @@
LUA_API void lua_pushnumber (lua_State *
}
}
@@
-200,7
+196,7
@@
Index: lua-5.1.4/src/lapi.c
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) {
-@@ -569,7 +626,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));
@@
-209,7
+205,7
@@
Index: lua-5.1.4/src/lapi.c
api_incr_top(L);
lua_unlock(L);
}
api_incr_top(L);
lua_unlock(L);
}
-@@ -597,6 +654,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;
@@
-219,7
+215,7
@@
Index: lua-5.1.4/src/lapi.c
default:
mt = G(L)->mt[ttype(obj)];
break;
default:
mt = G(L)->mt[ttype(obj)];
break;
-@@ -687,7 +747,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));
@@
-228,7
+224,7
@@
Index: lua-5.1.4/src/lapi.c
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);
-@@ -721,7 +781,7 @@
+@@ -721,7 +781,7 @@
LUA_API int lua_setmetatable (lua_State
break;
}
default: {
break;
}
default: {
@@
-237,7
+233,7
@@
Index: lua-5.1.4/src/lapi.c
break;
}
}
break;
}
}
-@@ -1085,3 +1145,32 @@
+@@ -1085,3 +1145,32 @@
LUA_API const char *lua_setupvalue (lua_
return name;
}
return name;
}
@@
-270,10
+266,8
@@
Index: lua-5.1.4/src/lapi.c
+ else lua_pushnumber( L, nvalue_fast(o) );
+ return 1;
+}
+ else lua_pushnumber( L, nvalue_fast(o) );
+ return 1;
+}
-Index: lua-5.1.4/src/lapi.h
-===================================================================
---- lua-5.1.4.orig/src/lapi.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lapi.h 2008-08-24 16:48:20.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);
@@
-281,10
+275,8
@@
Index: lua-5.1.4/src/lapi.h
+int lua_pushvalue_as_number (lua_State *L, int idx);
+
#endif
+int lua_pushvalue_as_number (lua_State *L, int idx);
+
#endif
-Index: lua-5.1.4/src/lauxlib.c
-===================================================================
---- lua-5.1.4.orig/src/lauxlib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lauxlib.c 2008-08-24 16:48:20.000000000 +0200
+--- a/src/lauxlib.c
++++ b/src/lauxlib.c
@@ -23,7 +23,7 @@
#include "lua.h"
@@ -23,7 +23,7 @@
#include "lua.h"
@@
-294,7
+286,7
@@
Index: lua-5.1.4/src/lauxlib.c
#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) {
@@
-303,7
+295,7
@@
Index: lua-5.1.4/src/lauxlib.c
}
}
-@@ -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);
@@
-314,7
+306,7
@@
Index: lua-5.1.4/src/lauxlib.c
return d;
}
return d;
}
-@@ -200,6 +200,16 @@
+@@ -200,6 +200,16 @@
LUALIB_API lua_Integer luaL_optinteger (
}
}
@@
-331,11
+323,9
@@
Index: lua-5.1.4/src/lauxlib.c
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;
-Index: lua-5.1.4/src/lauxlib.h
-===================================================================
---- lua-5.1.4.orig/src/lauxlib.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lauxlib.h 2008-08-24 16:48:20.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);
@@
-348,10
+338,8
@@
Index: lua-5.1.4/src/lauxlib.h
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);
-Index: lua-5.1.4/src/lbaselib.c
-===================================================================
---- lua-5.1.4.orig/src/lbaselib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lbaselib.c 2008-08-24 16:48:20.000000000 +0200
+--- a/src/lbaselib.c
++++ b/src/lbaselib.c
@@ -18,7 +18,9 @@
#include "lauxlib.h"
@@ -18,7 +18,9 @@
#include "lauxlib.h"
@@
-363,7
+351,7
@@
Index: lua-5.1.4/src/lbaselib.c
-@@ -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);
@@
-394,7
+382,7
@@
Index: lua-5.1.4/src/lbaselib.c
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);
@@
-403,7
+391,7
@@
Index: lua-5.1.4/src/lbaselib.c
/* 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: {
@@
-412,7
+400,7
@@
Index: lua-5.1.4/src/lbaselib.c
return 1;
}
}
return 1;
}
}
-@@ -631,6 +638,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 */
@@
-421,10
+409,8
@@
Index: lua-5.1.4/src/lbaselib.c
/* `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);
-Index: lua-5.1.4/src/lcode.c
-===================================================================
---- lua-5.1.4.orig/src/lcode.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lcode.c 2008-08-24 16:48:20.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"
@@
-446,7
+432,7
@@
Index: lua-5.1.4/src/lcode.c
}
}
-@@ -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;
@@
-467,7
+453,7
@@
Index: lua-5.1.4/src/lcode.c
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
}
}
@@
-489,7
+475,7
@@
Index: lua-5.1.4/src/lcode.c
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;
}
@@
-506,7
+492,7
@@
Index: lua-5.1.4/src/lcode.c
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) {
@@
-517,7
+503,7
@@
Index: lua-5.1.4/src/lcode.c
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) :
@@
-528,7
+514,7
@@
Index: lua-5.1.4/src/lcode.c
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) {
@@
-540,7
+526,7
@@
Index: lua-5.1.4/src/lcode.c
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;
}
@@
-552,7
+538,7
@@
Index: lua-5.1.4/src/lcode.c
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;
@@
-628,7
+614,7
@@
Index: lua-5.1.4/src/lcode.c
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;
@@
-638,11
+624,9
@@
Index: lua-5.1.4/src/lcode.c
switch (op) {
case OPR_MINUS: {
if (!isnumeral(e))
switch (op) {
case OPR_MINUS: {
if (!isnumeral(e))
-Index: lua-5.1.4/src/lcode.h
-===================================================================
---- lua-5.1.4.orig/src/lcode.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lcode.h 2008-08-24 16:48:20.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);
@@
-650,11
+634,9
@@
Index: lua-5.1.4/src/lcode.h
+LUAI_FUNC int luaK_integerK (FuncState *fs, lua_Integer r);
#endif
+LUAI_FUNC int luaK_integerK (FuncState *fs, lua_Integer r);
#endif
-Index: lua-5.1.4/src/ldebug.c
-===================================================================
---- lua-5.1.4.orig/src/ldebug.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/ldebug.c 2008-08-24 16:48:20.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++)
@@
-663,7
+645,7
@@
Index: lua-5.1.4/src/ldebug.c
sethvalue(L, L->top, t);
}
incr_top(L);
sethvalue(L, L->top, t);
}
incr_top(L);
-@@ -566,7 +566,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;
@@
-672,7
+654,7
@@
Index: lua-5.1.4/src/ldebug.c
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;
-@@ -594,8 +594,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) {
@@
-683,11
+665,9
@@
Index: lua-5.1.4/src/ldebug.c
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
-Index: lua-5.1.4/src/ldo.c
-===================================================================
---- lua-5.1.4.orig/src/ldo.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/ldo.c 2008-08-24 16:48:20.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 */
@@
-699,11
+679,9
@@
Index: lua-5.1.4/src/ldo.c
}
#endif
/* move fixed parameters to final position */
}
#endif
/* move fixed parameters to final position */
-Index: lua-5.1.4/src/ldump.c
-===================================================================
---- lua-5.1.4.orig/src/ldump.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/ldump.c 2008-08-24 16:48:20.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);
}
@@
-715,7
+693,7
@@
Index: lua-5.1.4/src/ldump.c
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:
@@
-728,10
+706,8
@@
Index: lua-5.1.4/src/ldump.c
case LUA_TSTRING:
DumpString(rawtsvalue(o),D);
break;
case LUA_TSTRING:
DumpString(rawtsvalue(o),D);
break;
-Index: lua-5.1.4/src/liolib.c
-===================================================================
---- lua-5.1.4.orig/src/liolib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/liolib.c 2008-08-24 16:48:20.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
@@
Index: lua-5.1.4/src/liolib.c
#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
@@
Index: lua-5.1.4/src/liolib.c
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
@@
Index: lua-5.1.4/src/liolib.c
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
@@
Index: lua-5.1.4/src/liolib.c
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
@@
Index: lua-5.1.4/src/liolib.c
}
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
@@
Index: lua-5.1.4/src/liolib.c
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);
}
-Index: lua-5.1.4/src/llex.c
-===================================================================
---- lua-5.1.4.orig/src/llex.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/llex.c 2008-08-24 16:48:20.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
@@
Index: lua-5.1.4/src/llex.c
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
@@
Index: lua-5.1.4/src/llex.c
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
@@
Index: lua-5.1.4/src/llex.c
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
@@
Index: lua-5.1.4/src/llex.c
}
}
-@@ -329,6 +343,7 @@
+@@ -329,6 +343,7 @@
static void read_string (LexState *ls, i
}
}
@@
-942,7
+916,7
@@
Index: lua-5.1.4/src/llex.c
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
@@
Index: lua-5.1.4/src/llex.c
}
}
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,11
+936,9
@@
Index: lua-5.1.4/src/llex.c
}
else if (isalpha(ls->current) || ls->current == '_') {
/* identifier or reserved word */
}
else if (isalpha(ls->current) || ls->current == '_') {
/* identifier or reserved word */
-Index: lua-5.1.4/src/llex.h
-===================================================================
---- lua-5.1.4.orig/src/llex.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/llex.h 2008-08-24 16:48:20.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,
@@
-994,11
+966,9
@@
Index: lua-5.1.4/src/llex.h
TString *ts;
} SemInfo; /* semantics information */
TString *ts;
} SemInfo; /* semantics information */
-Index: lua-5.1.4/src/llimits.h
-===================================================================
---- lua-5.1.4.orig/src/llimits.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/llimits.h 2008-08-24 16:48:20.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;
@@
-1006,7
+976,7
@@
Index: lua-5.1.4/src/llimits.h
/* 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))
@@
-1014,10
+984,8
@@
Index: lua-5.1.4/src/llimits.h
/*
** 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)
-Index: lua-5.1.4/src/lmathlib.c
-===================================================================
---- lua-5.1.4.orig/src/lmathlib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lmathlib.c 2008-08-24 16:48:20.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
*/
@@
-1262,7
+1230,7
@@
Index: lua-5.1.4/src/lmathlib.c
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;
@@
-1285,7
+1253,7
@@
Index: lua-5.1.4/src/lmathlib.c
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) {
@@
-1293,7
+1261,7
@@
Index: lua-5.1.4/src/lmathlib.c
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;
@@
-1333,7
+1301,7
@@
Index: lua-5.1.4/src/lmathlib.c
}
return 1;
}
}
return 1;
}
-@@ -211,6 +304,66 @@
+@@ -211,6 +304,66 @@
static int math_randomseed (lua_State *L
return 0;
}
return 0;
}
@@
-1400,7
+1368,7
@@
Index: lua-5.1.4/src/lmathlib.c
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},
@@
-1419,7
+1387,7
@@
Index: lua-5.1.4/src/lmathlib.c
{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");
@@
-1431,10
+1399,8
@@
Index: lua-5.1.4/src/lmathlib.c
#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");
-Index: lua-5.1.4/src/lnum.c
-===================================================================
---- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ lua-5.1.4/src/lnum.c 2008-08-24 16:48:20.000000000 +0200
+--- /dev/null
++++ b/src/lnum.c
@@ -0,0 +1,312 @@
+/*
+** $Id: lnum.c,v ... $
@@ -0,0 +1,312 @@
+/*
+** $Id: lnum.c,v ... $
@@
-1748,10
+1714,8
@@
Index: lua-5.1.4/src/lnum.c
+ return 0;
+}
+
+ return 0;
+}
+
-Index: lua-5.1.4/src/lnum.h
-===================================================================
---- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ lua-5.1.4/src/lnum.h 2008-08-24 16:48:20.000000000 +0200
+--- /dev/null
++++ b/src/lnum.h
@@ -0,0 +1,116 @@
+/*
+** $Id: lnum.h,v ... $
@@ -0,0 +1,116 @@
+/*
+** $Id: lnum.h,v ... $
@@
-1869,10
+1833,8
@@
Index: lua-5.1.4/src/lnum.h
+{ 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
-Index: lua-5.1.4/src/lnum_config.h
-===================================================================
---- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ lua-5.1.4/src/lnum_config.h 2008-08-24 16:48:20.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 ... $
@@
-2095,10
+2057,8
@@
Index: lua-5.1.4/src/lnum_config.h
+
+#endif
+
+
+#endif
+
-Index: lua-5.1.4/src/lobject.c
-===================================================================
---- lua-5.1.4.orig/src/lobject.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lobject.c 2008-08-24 16:48:20.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"
@@
-2109,7
+2069,7
@@
Index: lua-5.1.4/src/lobject.c
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) {
@@
-2143,7
+2103,7
@@
Index: lua-5.1.4/src/lobject.c
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,
}
}
}
}
@@
-2165,7
+2125,7
@@
Index: lua-5.1.4/src/lobject.c
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': {
@@
-2178,15
+2138,13
@@
Index: lua-5.1.4/src/lobject.c
incr_top(L);
break;
}
incr_top(L);
break;
}
-@@ -212,3 +221,4 @@
+@@ -212,3 +221,4 @@
void luaO_chunkid (char *out, const char
}
}
}
+
}
}
}
+
-Index: lua-5.1.4/src/lobject.h
-===================================================================
---- lua-5.1.4.orig/src/lobject.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lobject.h 2008-08-24 16:48:20.000000000 +0200
+--- a/src/lobject.h
++++ b/src/lobject.h
@@ -17,7 +17,11 @@
@@ -17,7 +17,11 @@
@@
-2200,7
+2158,7
@@
Index: lua-5.1.4/src/lobject.h
#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;
@@
-2213,7
+2171,7
@@
Index: lua-5.1.4/src/lobject.h
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)
@@
-2226,7
+2184,7
@@
Index: lua-5.1.4/src/lobject.h
#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)
@@
-2253,7
+2211,7
@@
Index: lua-5.1.4/src/lobject.h
#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)
@@
-2283,7
+2241,7
@@
Index: lua-5.1.4/src/lobject.h
#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); }
@@
-2293,7
+2251,7
@@
Index: lua-5.1.4/src/lobject.h
#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))
@@
-2307,7
+2265,7
@@
Index: lua-5.1.4/src/lobject.h
-@@ -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);
@@
-2320,11
+2278,9
@@
Index: lua-5.1.4/src/lobject.h
-
#endif
-
#endif
-Index: lua-5.1.4/src/loslib.c
-===================================================================
---- lua-5.1.4.orig/src/loslib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/loslib.c 2008-08-24 16:48:20.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);
@@
-2357,10
+2313,8
@@
Index: lua-5.1.4/src/loslib.c
return 1;
}
return 1;
}
-Index: lua-5.1.4/src/lparser.c
-===================================================================
---- lua-5.1.4.orig/src/lparser.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lparser.c 2008-08-24 16:48:20.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)
@@
-2369,7
+2323,7
@@
Index: lua-5.1.4/src/lparser.c
/*
** 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",
@@
-2378,7
+2332,7
@@
Index: lua-5.1.4/src/lparser.c
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;
}
@@
-2397,7
+2351,7
@@
Index: lua-5.1.4/src/lparser.c
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 */
@@
-2406,11
+2360,9
@@
Index: lua-5.1.4/src/lparser.c
luaK_reserveregs(fs, 1);
}
forbody(ls, base, line, 1, 1);
luaK_reserveregs(fs, 1);
}
forbody(ls, base, line, 1, 1);
-Index: lua-5.1.4/src/lparser.h
-===================================================================
---- lua-5.1.4.orig/src/lparser.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lparser.h 2008-08-24 16:48:20.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 */
@@
-2423,7
+2375,7
@@
Index: lua-5.1.4/src/lparser.h
} 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;
@@
-2431,11
+2383,9
@@
Index: lua-5.1.4/src/lparser.h
} 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' */
-Index: lua-5.1.4/src/lstrlib.c
-===================================================================
---- lua-5.1.4.orig/src/lstrlib.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/lstrlib.c 2008-08-24 16:48:20.000000000 +0200
-@@ -43,8 +43,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);
@@
-2446,7
+2396,7
@@
Index: lua-5.1.4/src/lstrlib.c
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)
-@@ -106,8 +106,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);
@@
-2457,7
+2407,7
@@
Index: lua-5.1.4/src/lstrlib.c
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;
-@@ -496,7 +496,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);
@@
-2466,7
+2416,7
@@
Index: lua-5.1.4/src/lstrlib.c
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? */
-@@ -690,7 +690,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)
*/
@@
-2475,7
+2425,7
@@
Index: lua-5.1.4/src/lstrlib.c
static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
static void addquoted (lua_State *L, luaL_Buffer *b, int arg) {
-@@ -747,9 +747,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];
@@
-2488,7
+2438,7
@@
Index: lua-5.1.4/src/lstrlib.c
}
}
-@@ -777,12 +777,12 @@
+@@ -777,12 +777,12 @@
static int str_format (lua_State *L) {
}
case 'd': case 'i': {
addintlen(form);
}
case 'd': case 'i': {
addintlen(form);
@@
-2503,10
+2453,8
@@
Index: lua-5.1.4/src/lstrlib.c
break;
}
case 'e': case 'E': case 'f':
break;
}
case 'e': case 'E': case 'f':
-Index: lua-5.1.4/src/ltable.c
-===================================================================
---- lua-5.1.4.orig/src/ltable.c 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/ltable.c 2008-08-24 16:48: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"
@@
-2542,7
+2490,7
@@
Index: lua-5.1.4/src/ltable.c
#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
@@
-2598,7
+2546,7
@@
Index: lua-5.1.4/src/ltable.c
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.
@@
-2627,7
+2575,7
@@
Index: lua-5.1.4/src/ltable.c
}
}
-@@ -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 */
@@
-2638,7
+2586,7
@@
Index: lua-5.1.4/src/ltable.c
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? */
@@
-2647,7
+2595,7
@@
Index: lua-5.1.4/src/ltable.c
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) {
@@
-2658,7
+2606,7
@@
Index: lua-5.1.4/src/ltable.c
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]))
@@
-2667,7
+2615,7
@@
Index: lua-5.1.4/src/ltable.c
}
/* 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 */
@@
-2678,7
+2626,7
@@
Index: lua-5.1.4/src/ltable.c
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
*/
@@
-2702,7
+2650,7
@@
Index: lua-5.1.4/src/ltable.c
} 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));
@@
-2722,7
+2670,7
@@
Index: lua-5.1.4/src/ltable.c
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");
@@
-2753,7
+2701,7
@@
Index: lua-5.1.4/src/ltable.c
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 */
@@
-2780,10
+2728,8
@@
Index: lua-5.1.4/src/ltable.c
else i = m;
}
return i;
else i = m;
}
return i;
-Index: lua-5.1.4/src/ltable.h
-===================================================================
---- lua-5.1.4.orig/src/ltable.h 2008-08-24 16:46:37.000000000 +0200
-+++ lua-5.1.4/src/ltable.h 2008-08-24 16:48:20.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)
@@
-2795,10
+2741,8
@@
Index: lua-5.1.4/src/ltable.h
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);
-Index: lua-5.1.4/src/ltm.c
-===================================================================
---- lua-5.1.4.orig/src/ltm.c 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/ltm.c 2008-08-24 16:48:20.000000000 +0200
+--- a/src/ltm.c
++++ b/src/ltm.c
@@ -19,7 +19,6 @@
#include "ltm.h"
@@ -19,7 +19,6 @@
#include "ltm.h"
@@
-2807,7
+2751,7
@@
Index: lua-5.1.4/src/ltm.c
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;
@@
-2817,10
+2761,8
@@
Index: lua-5.1.4/src/ltm.c
default:
mt = G(L)->mt[ttype(o)];
}
default:
mt = G(L)->mt[ttype(o)];
}
-Index: lua-5.1.4/src/lua.c
-===================================================================
---- lua-5.1.4.orig/src/lua.c 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/lua.c 2008-08-24 16:48:20.000000000 +0200
+--- a/src/lua.c
++++ b/src/lua.c
@@ -16,7 +16,7 @@
#include "lauxlib.h"
@@ -16,7 +16,7 @@
#include "lauxlib.h"
@@
-2830,7
+2772,7
@@
Index: lua-5.1.4/src/lua.c
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;
}
@@
-2846,10
+2788,8
@@
Index: lua-5.1.4/src/lua.c
s.argc = argc;
s.argv = argv;
status = lua_cpcall(L, &pmain, &s);
s.argc = argc;
s.argv = argv;
status = lua_cpcall(L, &pmain, &s);
-Index: lua-5.1.4/src/lua.h
-===================================================================
---- lua-5.1.4.orig/src/lua.h 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/lua.h 2008-08-24 16:48:20.000000000 +0200
+--- a/src/lua.h
++++ b/src/lua.h
@@ -19,7 +19,7 @@
#define LUA_VERSION "Lua 5.1"
#define LUA_RELEASE "Lua 5.1.4"
@@ -19,7 +19,7 @@
#define LUA_VERSION "Lua 5.1"
#define LUA_RELEASE "Lua 5.1.4"
@@
-2859,7
+2799,7
@@
Index: lua-5.1.4/src/lua.h
#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
#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)
@@
-2876,7
+2816,7
@@
Index: lua-5.1.4/src/lua.h
#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);
@@
-2885,7
+2825,7
@@
Index: lua-5.1.4/src/lua.h
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);
@@
-2905,7
+2845,7
@@
Index: lua-5.1.4/src/lua.h
/*
** ===============================================================
/*
** ===============================================================
-@@ -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)
@@
-2919,15
+2859,13
@@
Index: lua-5.1.4/src/lua.h
#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
+
-Index: lua-5.1.4/src/luaconf.h
-===================================================================
---- lua-5.1.4.orig/src/luaconf.h 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/luaconf.h 2008-08-24 16:48:20.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
@@
Index: lua-5.1.4/src/luaconf.h
/*
@@ 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,11
+3090,9
@@
Index: lua-5.1.4/src/luaconf.h
/* =================================================================== */
/*
/* =================================================================== */
/*
-Index: lua-5.1.4/src/lundump.c
-===================================================================
---- lua-5.1.4.orig/src/lundump.c 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/lundump.c 2008-08-24 16:48:20.000000000 +0200
-@@ -73,6 +73,13 @@
+--- a/src/lundump.c
++++ b/src/lundump.c
+@@ -73,6 +73,13 @@ static lua_Number LoadNumber(LoadState*
return x;
}
return x;
}
@@
-3170,7
+3106,7
@@
Index: lua-5.1.4/src/lundump.c
static TString* LoadString(LoadState* S)
{
size_t size;
static TString* LoadString(LoadState* S)
{
size_t size;
-@@ -119,6 +126,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;
@@
-3180,7
+3116,7
@@
Index: lua-5.1.4/src/lundump.c
case LUA_TSTRING:
setsvalue2n(S->L,o,LoadString(S));
break;
case LUA_TSTRING:
setsvalue2n(S->L,o,LoadString(S));
break;
-@@ -223,5 +233,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);
@@
-3204,10
+3140,8
@@
Index: lua-5.1.4/src/lundump.c
+#endif
+ );
}
+#endif
+ );
}
-Index: lua-5.1.4/src/lvm.c
-===================================================================
---- lua-5.1.4.orig/src/lvm.c 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/lvm.c 2008-08-24 16:48:20.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"
@@
-3254,7
+3188,7
@@
Index: lua-5.1.4/src/lvm.c
}
}
-@@ -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];
@@
-3264,7
+3198,7
@@
Index: lua-5.1.4/src/lvm.c
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,
}
}
@@
-3417,7
+3351,7
@@
Index: lua-5.1.4/src/lvm.c
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
}
}
@@
-3448,7
+3382,7
@@
Index: lua-5.1.4/src/lvm.c
/*
** 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; }
@@
-3612,7
+3546,7
@@
Index: lua-5.1.4/src/lvm.c
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: {
@@
-3671,7
+3605,7
@@
Index: lua-5.1.4/src/lvm.c
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: {
@@
-3685,7
+3619,7
@@
Index: lua-5.1.4/src/lvm.c
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: {
@@
-3724,7
+3658,7
@@
Index: lua-5.1.4/src/lvm.c
}
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 */
@@
-3747,7
+3681,7
@@
Index: lua-5.1.4/src/lvm.c
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;
@@
-3756,10
+3690,8
@@
Index: lua-5.1.4/src/lvm.c
luaC_barriert(L, h, val);
}
continue;
luaC_barriert(L, h, val);
}
continue;
-Index: lua-5.1.4/src/lvm.h
-===================================================================
---- lua-5.1.4.orig/src/lvm.h 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/lvm.h 2008-08-24 16:48:20.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)))
@@
-3774,10
+3706,8
@@
Index: lua-5.1.4/src/lvm.h
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);
-Index: lua-5.1.4/src/print.c
-===================================================================
---- lua-5.1.4.orig/src/print.c 2008-08-24 16:46:38.000000000 +0200
-+++ lua-5.1.4/src/print.c 2008-08-24 16:48:20.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"
@@
-3786,7
+3716,7
@@
Index: lua-5.1.4/src/print.c
#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;
diff --git
a/tools/lua/patches/015-lnum-ppc-compat.patch
b/tools/lua/patches/015-lnum-ppc-compat.patch
index d6c48a77585fb7cf248c574970a12a71cfe94cb3..2ea59f1769e7fb9a1237a4ebbf25691d72700d79 100644
(file)
--- a/
tools/lua/patches/015-lnum-ppc-compat.patch
+++ b/
tools/lua/patches/015-lnum-ppc-compat.patch
@@
-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.
*/
* not acceptable for 5.1, maybe 5.2 onwards?
* 9: greater than existing (5.1) type values.
*/
diff --git
a/tools/lua/patches/020-shared_liblua.patch
b/tools/lua/patches/020-shared_liblua.patch
index d948841b8a67cd7fb7c4600b2dfa5c1a6215bcbc..1c3335788aabdd7c46a269a50e414f1af9705248 100644
(file)
--- a/
tools/lua/patches/020-shared_liblua.patch
+++ b/
tools/lua/patches/020-shared_liblua.patch
@@
-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
# 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.
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)
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:
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);
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);
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)))
@@ -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);
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))))
@@ -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);
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);
@@ -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
#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 */
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 */
#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
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
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
LUA_O= lua.o
LUAC_T= luac
@@
-116,7
+102,7
@@
Index: lua-5.1.4/src/Makefile
default: $(PLAT)
default: $(PLAT)
-@@ -47,14 +49,23 @@
+@@ -47,14 +49,23 @@
o: $(ALL_O)
a: $(ALL_A)
a: $(ALL_A)
@@
-143,7
+129,7
@@
Index: lua-5.1.4/src/Makefile
$(CC) -o $@ $(MYLDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS)
clean:
$(CC) -o $@ $(MYLDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS)
clean:
-@@ -96,7 +107,7 @@
+@@ -96,7 +107,7 @@
generic:
$(MAKE) all MYCFLAGS=
linux:
$(MAKE) all MYCFLAGS=
linux:
diff --git
a/tools/lua/patches/030-archindependent-bytecode.patch
b/tools/lua/patches/030-archindependent-bytecode.patch
index b27592fbd7e42350526eea0cef2e90366733247a..8dfef85d0d7e654dd89835d77280958f1457ba08 100644
(file)
--- a/
tools/lua/patches/030-archindependent-bytecode.patch
+++ b/
tools/lua/patches/030-archindependent-bytecode.patch
@@
-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)
{
{
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);
}
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;
ZIO* Z;
Mbuffer* b;
const char* name;
@@
-29,7
+25,7
@@
Index: lua-5.1.4/src/lundump.c
} LoadState;
#ifdef LUAC_TRUST_BINARIES
} LoadState;
#ifdef LUAC_TRUST_BINARIES
-@@ -40,7 +41,6 @@
+@@ -40,7 +41,6 @@
static void error(LoadState* S, const ch
}
#endif
}
#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)
#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");
}
IF (r!=0, "unexpected end");
}
@@
-87,7
+83,7
@@
Index: lua-5.1.4/src/lundump.c
static int LoadChar(LoadState* S)
{
char x;
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)
{
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;
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);
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");
}
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);
*h++=(char)LUAC_FORMAT;
*h++=(char)*(char*)&x; /* endianness */
*h++=(char)sizeof(int);
diff --git
a/tools/lua/patches/100-no_readline.patch
b/tools/lua/patches/100-no_readline.patch
index 7368187d8411c328ed2bc4e5c92d0b634ad4b94d..0350e470ad845d984cf43a331a35df22278807b8 100644
(file)
--- a/
tools/lua/patches/100-no_readline.patch
+++ b/
tools/lua/patches/100-no_readline.patch
@@
-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
@@ -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)
#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=
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 =========
# == 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
@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)"
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:
$(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
# 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.
diff --git
a/tools/lua/patches/200-lua-path.patch
b/tools/lua/patches/200-lua-path.patch
index 62dd00e399a285e1071c063a40eeacebe499800b..054457744aad08fd88ab97619720f01ecd532273 100644
(file)
--- a/
tools/lua/patches/200-lua-path.patch
+++ b/
tools/lua/patches/200-lua-path.patch
@@
-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"
@@ -95,9 +95,9 @@
".\\?.dll;" LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll"
diff --git
a/tools/lua/patches/300-opcode_performance.patch
b/tools/lua/patches/300-opcode_performance.patch
index f6204ae19bb93436774a452e05d5e35dc773b13b..e870a25f42a4538cd26fe0270bf48e3cd52b06c8 100644
(file)
--- a/
tools/lua/patches/300-opcode_performance.patch
+++ b/
tools/lua/patches/300-opcode_performance.patch
@@
-10,7
+10,7
@@
/*
* If 'obj' is a string, it is tried to be interpreted as a number.
/*
* If 'obj' is a string, it is tried to be interpreted as a number.
-@@ -562,12 +565,63 @@
+@@ -562,12 +565,63 @@
static inline int arith_mode( const TVal
ARITH_OP1_END
#endif
ARITH_OP1_END
#endif
@@
-74,7
+74,7
@@
reentry: /* entry point */
lua_assert(isLua(L->ci));
pc = L->savedpc;
reentry: /* entry point */
lua_assert(isLua(L->ci));
pc = L->savedpc;
-@@ -592,33 +646,33 @@
+@@ -592,33 +646,33 @@
void luaV_execute (lua_State *L, int nex
lua_assert(base == L->base && L->base == L->ci->base);
lua_assert(base <= L->top && L->top <= L->stack + L->stacksize);
lua_assert(L->top == L->ci->top || luaG_checkopenop(i));
lua_assert(base == L->base && L->base == L->ci->base);
lua_assert(base <= L->top && L->top <= L->stack + L->stacksize);
lua_assert(L->top == L->ci->top || luaG_checkopenop(i));
@@
-115,7
+115,7
@@
TValue g;
TValue *rb = KBx(i);
sethvalue(L, &g, cl->env);
TValue g;
TValue *rb = KBx(i);
sethvalue(L, &g, cl->env);
-@@ -626,88 +680,88 @@
+@@ -626,88 +680,88 @@
void luaV_execute (lua_State *L, int nex
Protect(luaV_gettable(L, &g, rb, ra));
continue;
}
Protect(luaV_gettable(L, &g, rb, ra));
continue;
}
@@
-219,7
+219,7
@@
const TValue *rb = RB(i);
switch (ttype(rb)) {
case LUA_TTABLE: {
const TValue *rb = RB(i);
switch (ttype(rb)) {
case LUA_TTABLE: {
-@@ -727,18 +781,18 @@
+@@ -727,18 +781,18 @@
void luaV_execute (lua_State *L, int nex
}
continue;
}
}
continue;
}
@@
-241,7
+241,7
@@
TValue *rb = RKB(i);
TValue *rc = RKC(i);
Protect(
TValue *rb = RKB(i);
TValue *rc = RKC(i);
Protect(
-@@ -748,7 +802,7 @@
+@@ -748,7 +802,7 @@
void luaV_execute (lua_State *L, int nex
pc++;
continue;
}
pc++;
continue;
}
@@
-250,7
+250,7
@@
Protect(
if (luaV_lessthan(L, RKB(i), RKC(i)) == GETARG_A(i))
dojump(L, pc, GETARG_sBx(*pc));
Protect(
if (luaV_lessthan(L, RKB(i), RKC(i)) == GETARG_A(i))
dojump(L, pc, GETARG_sBx(*pc));
-@@ -756,7 +810,7 @@
+@@ -756,7 +810,7 @@
void luaV_execute (lua_State *L, int nex
pc++;
continue;
}
pc++;
continue;
}
@@
-259,7
+259,7
@@
Protect(
if (lessequal(L, RKB(i), RKC(i)) == GETARG_A(i))
dojump(L, pc, GETARG_sBx(*pc));
Protect(
if (lessequal(L, RKB(i), RKC(i)) == GETARG_A(i))
dojump(L, pc, GETARG_sBx(*pc));
-@@ -764,13 +818,13 @@
+@@ -764,13 +818,13 @@
void luaV_execute (lua_State *L, int nex
pc++;
continue;
}
pc++;
continue;
}
@@
-275,7
+275,7
@@
TValue *rb = RB(i);
if (l_isfalse(rb) != GETARG_C(i)) {
setobjs2s(L, ra, rb);
TValue *rb = RB(i);
if (l_isfalse(rb) != GETARG_C(i)) {
setobjs2s(L, ra, rb);
-@@ -779,7 +833,7 @@
+@@ -779,7 +833,7 @@
void luaV_execute (lua_State *L, int nex
pc++;
continue;
}
pc++;
continue;
}
@@
-284,7
+284,7
@@
int b = GETARG_B(i);
int nresults = GETARG_C(i) - 1;
if (b != 0) L->top = ra+b; /* else previous instruction set top */
int b = GETARG_B(i);
int nresults = GETARG_C(i) - 1;
if (b != 0) L->top = ra+b; /* else previous instruction set top */
-@@ -800,7 +854,7 @@
+@@ -800,7 +854,7 @@
void luaV_execute (lua_State *L, int nex
}
}
}
}
}
}
@@
-293,7
+293,7
@@
int b = GETARG_B(i);
if (b != 0) L->top = ra+b; /* else previous instruction set top */
L->savedpc = pc;
int b = GETARG_B(i);
if (b != 0) L->top = ra+b; /* else previous instruction set top */
L->savedpc = pc;
-@@ -832,7 +886,7 @@
+@@ -832,7 +886,7 @@
void luaV_execute (lua_State *L, int nex
}
}
}
}
}
}
@@
-302,7
+302,7
@@
int b = GETARG_B(i);
if (b != 0) L->top = ra+b-1;
if (L->openupval) luaF_close(L, base);
int b = GETARG_B(i);
if (b != 0) L->top = ra+b-1;
if (L->openupval) luaF_close(L, base);
-@@ -847,7 +901,7 @@
+@@ -847,7 +901,7 @@
void luaV_execute (lua_State *L, int nex
goto reentry;
}
}
goto reentry;
}
}
@@
-311,7
+311,7
@@
/* If start,step and limit are all integers, we don't need to check
* against overflow in the looping.
*/
/* If start,step and limit are all integers, we don't need to check
* against overflow in the looping.
*/
-@@ -875,7 +929,7 @@
+@@ -875,7 +929,7 @@
void luaV_execute (lua_State *L, int nex
}
continue;
}
}
continue;
}
@@
-320,7
+320,7
@@
const TValue *init = ra;
const TValue *plimit = ra+1;
const TValue *pstep = ra+2;
const TValue *init = ra;
const TValue *plimit = ra+1;
const TValue *pstep = ra+2;
-@@ -898,7 +952,7 @@
+@@ -898,7 +952,7 @@
void luaV_execute (lua_State *L, int nex
dojump(L, pc, GETARG_sBx(i));
continue;
}
dojump(L, pc, GETARG_sBx(i));
continue;
}
@@
-329,7
+329,7
@@
StkId cb = ra + 3; /* call base */
setobjs2s(L, cb+2, ra+2);
setobjs2s(L, cb+1, ra+1);
StkId cb = ra + 3; /* call base */
setobjs2s(L, cb+2, ra+2);
setobjs2s(L, cb+1, ra+1);
-@@ -914,7 +968,7 @@
+@@ -914,7 +968,7 @@
void luaV_execute (lua_State *L, int nex
pc++;
continue;
}
pc++;
continue;
}
@@
-338,7
+338,7
@@
int n = GETARG_B(i);
int c = GETARG_C(i);
int last;
int n = GETARG_B(i);
int c = GETARG_C(i);
int last;
-@@ -936,11 +990,11 @@
+@@ -936,11 +990,11 @@
void luaV_execute (lua_State *L, int nex
}
continue;
}
}
continue;
}
@@
-352,7
+352,7
@@
Proto *p;
Closure *ncl;
int nup, j;
Proto *p;
Closure *ncl;
int nup, j;
-@@ -960,7 +1014,7 @@
+@@ -960,7 +1014,7 @@
void luaV_execute (lua_State *L, int nex
Protect(luaC_checkGC(L));
continue;
}
Protect(luaC_checkGC(L));
continue;
}
diff --git
a/tools/lzma/patches/100-lzma_zlib.patch
b/tools/lzma/patches/100-lzma_zlib.patch
index 7121053444ecde37848bd1d7228e6ddeba396de5..7436cfe51552c19d8e64b339acd54ff2057fa4cd 100644
(file)
--- a/
tools/lzma/patches/100-lzma_zlib.patch
+++ b/
tools/lzma/patches/100-lzma_zlib.patch
@@
-1,7
+1,6
@@
-diff -Nur lzma/C/7zip/Compress/LZMA/LZMADecoder.cpp lzma.patched/C/7zip/Compress/LZMA/LZMADecoder.cpp
---- lzma/C/7zip/Compress/LZMA/LZMADecoder.cpp 2005-09-22 10:55:34.000000000 +0200
-+++ lzma.patched/C/7zip/Compress/LZMA/LZMADecoder.cpp 2006-03-25 11:04:53.000000000 +0100
-@@ -274,12 +274,17 @@
+--- a/C/7zip/Compress/LZMA/LZMADecoder.cpp
++++ b/C/7zip/Compress/LZMA/LZMADecoder.cpp
+@@ -274,12 +274,17 @@ STDMETHODIMP CDecoder::SetDecoderPropert
Byte remainder = (Byte)(properties[0] / 9);
int lp = remainder % 5;
int pb = remainder / 5;
Byte remainder = (Byte)(properties[0] / 9);
int lp = remainder % 5;
int pb = remainder / 5;
@@
-22,10
+21,9
@@
diff -Nur lzma/C/7zip/Compress/LZMA/LZMADecoder.cpp lzma.patched/C/7zip/Compress
if (!_outWindowStream.Create(dictionarySize))
return E_OUTOFMEMORY;
if (!_literalDecoder.Create(lp, lc))
if (!_outWindowStream.Create(dictionarySize))
return E_OUTOFMEMORY;
if (!_literalDecoder.Create(lp, lc))
-diff -Nur lzma/C/7zip/Compress/LZMA/LZMADecoder.h lzma.patched/C/7zip/Compress/LZMA/LZMADecoder.h
---- lzma/C/7zip/Compress/LZMA/LZMADecoder.h 2005-09-19 08:10:06.000000000 +0200
-+++ lzma.patched/C/7zip/Compress/LZMA/LZMADecoder.h 2006-03-25 11:04:53.000000000 +0100
-@@ -228,6 +228,7 @@
+--- a/C/7zip/Compress/LZMA/LZMADecoder.h
++++ b/C/7zip/Compress/LZMA/LZMADecoder.h
+@@ -228,6 +228,7 @@ public:
ICompressProgressInfo *progress);
STDMETHOD(SetDecoderProperties2)(const Byte *data, UInt32 size);
ICompressProgressInfo *progress);
STDMETHOD(SetDecoderProperties2)(const Byte *data, UInt32 size);
@@
-33,9
+31,8
@@
diff -Nur lzma/C/7zip/Compress/LZMA/LZMADecoder.h lzma.patched/C/7zip/Compress/L
STDMETHOD(GetInStreamProcessedSize)(UInt64 *value);
STDMETHOD(GetInStreamProcessedSize)(UInt64 *value);
-diff -Nur lzma/C/7zip/Compress/LZMA_Lib/makefile lzma.patched/C/7zip/Compress/LZMA_Lib/makefile
---- lzma/C/7zip/Compress/LZMA_Lib/makefile 1970-01-01 01:00:00.000000000 +0100
-+++ lzma.patched/C/7zip/Compress/LZMA_Lib/makefile 2006-03-25 11:29:46.000000000 +0100
+--- /dev/null
++++ b/C/7zip/Compress/LZMA_Lib/makefile
@@ -0,0 +1,92 @@
+PROG = liblzma.a
+CXX = g++ -O3 -Wall
@@ -0,0 +1,92 @@
+PROG = liblzma.a
+CXX = g++ -O3 -Wall
@@
-129,9
+126,8
@@
diff -Nur lzma/C/7zip/Compress/LZMA_Lib/makefile lzma.patched/C/7zip/Compress/LZ
+clean:
+ -$(RM) $(PROG) $(OBJS)
+
+clean:
+ -$(RM) $(PROG) $(OBJS)
+
-diff -Nur lzma/C/7zip/Compress/LZMA_Lib/ZLib.cpp lzma.patched/C/7zip/Compress/LZMA_Lib/ZLib.cpp
---- lzma/C/7zip/Compress/LZMA_Lib/ZLib.cpp 1970-01-01 01:00:00.000000000 +0100
-+++ lzma.patched/C/7zip/Compress/LZMA_Lib/ZLib.cpp 2006-03-25 11:04:53.000000000 +0100
+--- /dev/null
++++ b/C/7zip/Compress/LZMA_Lib/ZLib.cpp
@@ -0,0 +1,273 @@
+/*
+ * lzma zlib simplified wrapper
@@ -0,0 +1,273 @@
+/*
+ * lzma zlib simplified wrapper
diff --git
a/tools/lzma/patches/110-ranlib.patch
b/tools/lzma/patches/110-ranlib.patch
index 22bf5031f311dabfdc01fb3a6a29a9d1f9f66fa4..813b4137f1c62d1cf7e8b9b433c210df993025d3 100644
(file)
--- a/
tools/lzma/patches/110-ranlib.patch
+++ b/
tools/lzma/patches/110-ranlib.patch
@@
-1,8
+1,6
@@
-Index: lzma/C/7zip/Compress/LZMA_Lib/makefile
-===================================================================
---- lzma.orig/C/7zip/Compress/LZMA_Lib/makefile 2007-12-02 23:37:08.000000000 +0100
-+++ lzma/C/7zip/Compress/LZMA_Lib/makefile 2007-12-02 23:38:40.000000000 +0100
-@@ -29,6 +29,7 @@
+--- a/C/7zip/Compress/LZMA_Lib/makefile
++++ b/C/7zip/Compress/LZMA_Lib/makefile
+@@ -29,6 +29,7 @@ all: $(PROG)
$(PROG): $(OBJS)
$(AR) r $(PROG) $(OBJS)
$(PROG): $(OBJS)
$(AR) r $(PROG) $(OBJS)
diff --git
a/tools/mtd-utils/patches/100-gcc4_fix.patch
b/tools/mtd-utils/patches/100-gcc4_fix.patch
index 50c8edb47ecb9a7a8da785d0f617881131864362..44bd7b597f288254e7702c2575899badb95a8ca2 100644
(file)
--- a/
tools/mtd-utils/patches/100-gcc4_fix.patch
+++ b/
tools/mtd-utils/patches/100-gcc4_fix.patch
@@
-1,6
+1,5
@@
-diff -urN mtd-20050122.orig.old/include/mtd/jffs2-user.h mtd-20050122.orig.dev/include/mtd/jffs2-user.h
---- mtd-20050122.orig.old/include/mtd/jffs2-user.h 2004-05-05 13:57:54.000000000 +0200
-+++ mtd-20050122.orig.dev/include/mtd/jffs2-user.h 2005-07-02 10:03:09.000000000 +0200
+--- a/include/mtd/jffs2-user.h
++++ b/include/mtd/jffs2-user.h
@@ -19,8 +19,6 @@
#undef je32_to_cpu
#undef jemode_to_cpu
@@ -19,8 +19,6 @@
#undef je32_to_cpu
#undef jemode_to_cpu
@@
-10,10
+9,9
@@
diff -urN mtd-20050122.orig.old/include/mtd/jffs2-user.h mtd-20050122.orig.dev/i
#define t16(x) ({ uint16_t __b = (x); (target_endian==__BYTE_ORDER)?__b:bswap_16(__b); })
#define t32(x) ({ uint32_t __b = (x); (target_endian==__BYTE_ORDER)?__b:bswap_32(__b); })
#define t16(x) ({ uint16_t __b = (x); (target_endian==__BYTE_ORDER)?__b:bswap_16(__b); })
#define t32(x) ({ uint32_t __b = (x); (target_endian==__BYTE_ORDER)?__b:bswap_32(__b); })
-diff -urN mtd.old/util/jffs3.h mtd.dev/util/jffs3.h
---- mtd.old/util/jffs3.h 2005-01-22 00:00:13.000000000 +0100
-+++ mtd.dev/util/jffs3.h 2005-07-17 17:48:24.000000000 +0200
-@@ -177,8 +177,6 @@
+--- a/util/jffs3.h
++++ b/util/jffs3.h
+@@ -177,8 +177,6 @@ union jffs3_node_union {
#undef je32_to_cpu
#undef jemode_to_cpu
#undef je32_to_cpu
#undef jemode_to_cpu
diff --git
a/tools/mtd-utils/patches/110-portability_fix.patch
b/tools/mtd-utils/patches/110-portability_fix.patch
index b5e91d576bf56fbc7f44727250e301a876b66979..3a61321a037d0a3e3575082029b215211dbaa0b8 100644
(file)
--- a/
tools/mtd-utils/patches/110-portability_fix.patch
+++ b/
tools/mtd-utils/patches/110-portability_fix.patch
@@
-1,13
+1,11
@@
-diff -urN mtd.old/include/asm/types.h mtd.dev/include/asm/types.h
---- mtd.old/include/asm/types.h 1970-01-01 01:00:00.000000000 +0100
-+++ mtd.dev/include/asm/types.h 2006-09-27 16:50:03.000000000 +0200
+--- /dev/null
++++ b/include/asm/types.h
@@ -0,0 +1,3 @@
+#ifdef linux
+#include_next <asm/types.h>
+#endif
@@ -0,0 +1,3 @@
+#ifdef linux
+#include_next <asm/types.h>
+#endif
-diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
---- mtd.old/util/mkfs.jffs2.c 2004-11-27 00:00:13.000000000 +0100
-+++ mtd.dev/util/mkfs.jffs2.c 2006-09-27 16:51:56.000000000 +0200
+--- a/util/mkfs.jffs2.c
++++ b/util/mkfs.jffs2.c
@@ -68,6 +68,7 @@
#include <zlib.h>
#undef crc32
@@ -68,6 +68,7 @@
#include <zlib.h>
#undef crc32
@@
-16,7
+14,7
@@
diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
/* Do not use the wierd XPG version of basename */
#undef basename
/* Do not use the wierd XPG version of basename */
#undef basename
-@@ -1032,7 +1033,7 @@
+@@ -1032,7 +1033,7 @@
static void recursive_populate_directory
case S_IFDIR:
if (verbose) {
printf("\td %04o %9lu %5d:%-3d %s\n",
case S_IFDIR:
if (verbose) {
printf("\td %04o %9lu %5d:%-3d %s\n",
@@
-25,7
+23,7
@@
diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
(int) (e->sb.st_uid), (int) (e->sb.st_gid),
e->name);
}
(int) (e->sb.st_uid), (int) (e->sb.st_gid),
e->name);
}
-@@ -1041,7 +1042,7 @@
+@@ -1041,7 +1042,7 @@
static void recursive_populate_directory
case S_IFSOCK:
if (verbose) {
printf("\ts %04o %9lu %5d:%-3d %s\n",
case S_IFSOCK:
if (verbose) {
printf("\ts %04o %9lu %5d:%-3d %s\n",
@@
-34,7
+32,7
@@
diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name);
}
write_pipe(e);
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name);
}
write_pipe(e);
-@@ -1049,7 +1050,7 @@
+@@ -1049,7 +1050,7 @@
static void recursive_populate_directory
case S_IFIFO:
if (verbose) {
printf("\tp %04o %9lu %5d:%-3d %s\n",
case S_IFIFO:
if (verbose) {
printf("\tp %04o %9lu %5d:%-3d %s\n",
@@
-43,7
+41,7
@@
diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name);
}
write_pipe(e);
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name);
}
write_pipe(e);
-@@ -1075,7 +1076,7 @@
+@@ -1075,7 +1076,7 @@
static void recursive_populate_directory
case S_IFLNK:
if (verbose) {
printf("\tl %04o %9lu %5d:%-3d %s -> %s\n",
case S_IFLNK:
if (verbose) {
printf("\tl %04o %9lu %5d:%-3d %s -> %s\n",
@@
-52,7
+50,7
@@
diff -urN mtd.old/util/mkfs.jffs2.c mtd.dev/util/mkfs.jffs2.c
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name,
e->link);
}
(int) e->sb.st_uid, (int) e->sb.st_gid, e->name,
e->link);
}
-@@ -1084,7 +1085,7 @@
+@@ -1084,7 +1085,7 @@
static void recursive_populate_directory
case S_IFREG:
if (verbose) {
printf("\tf %04o %9lu %5d:%-3d %s\n",
case S_IFREG:
if (verbose) {
printf("\tf %04o %9lu %5d:%-3d %s\n",
diff --git
a/tools/squashfs/patches/100-lzma.patch
b/tools/squashfs/patches/100-lzma.patch
index 34fdcad18baeb858f5af14c45d5ae6559aabe2b7..1050e094d556db7356240c2ea5a218c8e89ab63f 100644
(file)
--- a/
tools/squashfs/patches/100-lzma.patch
+++ b/
tools/squashfs/patches/100-lzma.patch
@@
-6,7
+6,7
@@
CFLAGS := -I$(INCLUDEDIR) -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -O2
CFLAGS := -I$(INCLUDEDIR) -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -O2
-@@ -7,6 +8,9 @@
+@@ -7,6 +8,9 @@
all: mksquashfs unsquashfs
mksquashfs: mksquashfs.o read_fs.o sort.o
$(CC) mksquashfs.o read_fs.o sort.o -lz -o $@
mksquashfs: mksquashfs.o read_fs.o sort.o
$(CC) mksquashfs.o read_fs.o sort.o -lz -o $@
@@
-16,7
+16,7
@@
mksquashfs.o: mksquashfs.c squashfs_fs.h mksquashfs.h global.h sort.h
read_fs.o: read_fs.c squashfs_fs.h read_fs.h global.h
mksquashfs.o: mksquashfs.c squashfs_fs.h mksquashfs.h global.h sort.h
read_fs.o: read_fs.c squashfs_fs.h read_fs.h global.h
-@@ -16,4 +20,9 @@
+@@ -16,4 +20,9 @@
sort.o: sort.c squashfs_fs.h global.h so
unsquashfs: unsquashfs.o
$(CC) unsquashfs.o -lz -o $@
unsquashfs: unsquashfs.o
$(CC) unsquashfs.o -lz -o $@