texlive[58192] Build/source/texk/web2c/luatexdir: Patch for

[commits+lscarso at tug.org]

Revision: 58192
          http://tug.org/svn/texlive?view=revision&revision=58192
Author:   lscarso
Date:     2021-03-07 19:43:41 +0100 (Sun, 07 Mar 2021)
Log Message:
-----------
Patch for readinteger4 (M.F. Kruger)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/luatexdir/lua/liolibext.c
    trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h

Modified: trunk/Build/source/texk/web2c/luatexdir/lua/liolibext.c
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/lua/liolibext.c	2021-03-07 05:09:56 UTC (rev 58191)
+++ trunk/Build/source/texk/web2c/luatexdir/lua/liolibext.c	2021-03-07 18:43:41 UTC (rev 58192)
@@ -579,7 +579,7 @@
 
 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 @@
     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 @@
     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 @@
         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 @@
             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 @@
                     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++]);

Modified: trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h
===================================================================
--- trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2021-03-07 05:09:56 UTC (rev 58191)
+++ trunk/Build/source/texk/web2c/luatexdir/luatex_svnversion.h	2021-03-07 18:43:41 UTC (rev 58192)
@@ -1 +1 @@
-#define luatex_svn_revision 7413
+#define luatex_svn_revision 7415