From 6c1028332477b498487f3473108a4ff353a51984 Mon Sep 17 00:00:00 2001 From: Luigi Scarso Date: Sun, 7 Mar 2021 18:43:41 +0000 Subject: Patch for readinteger4 (M.F. Krüger) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn://tug.org/texlive/trunk@58192 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/luatexdir/lua/liolibext.c | 12 ++++++------ Build/source/texk/web2c/luatexdir/luatex_svnversion.h | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) (limited to 'Build/source/texk/web2c/luatexdir') diff --git a/Build/source/texk/web2c/luatexdir/lua/liolibext.c b/Build/source/texk/web2c/luatexdir/lua/liolibext.c index ce1e78f6c73..bb18531f579 100644 --- a/Build/source/texk/web2c/luatexdir/lua/liolibext.c +++ b/Build/source/texk/web2c/luatexdir/lua/liolibext.c @@ -579,7 +579,7 @@ static int readinteger3_s_le(lua_State *L) { static int readinteger4(lua_State *L) { FILE *f = tofile(L); - int a = getc(f); + lua_Integer a = getc(f); int b = getc(f); int c = getc(f); int d = getc(f); @@ -596,7 +596,7 @@ static int readinteger4_le(lua_State *L) { int d = getc(f); int c = getc(f); int b = getc(f); - int a = getc(f); + lua_Integer a = getc(f); if (a == EOF) lua_pushnil(L); else if (a >= 0x80) @@ -613,7 +613,7 @@ static int readinteger4_s(lua_State *L) { if (p+3 >= l) { lua_pushnil(L); } else { - int a = uchar(s[p++]); + lua_Integer a = uchar(s[p++]); int b = uchar(s[p++]); int c = uchar(s[p++]); int d = uchar(s[p]); @@ -634,7 +634,7 @@ static int readinteger4_s_le(lua_State *L) { int d = uchar(s[p++]); int c = uchar(s[p++]); int b = uchar(s[p++]); - int a = uchar(s[p]); + lua_Integer a = uchar(s[p]); if (a >= 0x80) lua_pushinteger(L, 0x1000000 * a + 0x10000 * b + 0x100 * c + d - 0x100000000); else @@ -694,7 +694,7 @@ static int readintegertable(lua_State *L) { break; case 4: for (i=1;i<=n;i++) { - int a = getc(f); + lua_Integer a = getc(f); int b = getc(f); int c = getc(f); int d = getc(f); @@ -777,7 +777,7 @@ static int readintegertable_s(lua_State *L) { if (p+3 >= l) { break; } else { - int a = uchar(s[p++]); + lua_Integer a = uchar(s[p++]); int b = uchar(s[p++]); int c = uchar(s[p++]); int d = uchar(s[p++]); diff --git a/Build/source/texk/web2c/luatexdir/luatex_svnversion.h b/Build/source/texk/web2c/luatexdir/luatex_svnversion.h index e0ac8a93b25..5a7f4a9bc71 100644 --- a/Build/source/texk/web2c/luatexdir/luatex_svnversion.h +++ b/Build/source/texk/web2c/luatexdir/luatex_svnversion.h @@ -1 +1 @@ -#define luatex_svn_revision 7413 +#define luatex_svn_revision 7415 -- cgit v1.2.3