texlive[61705] Build/source/texk/web2c/lib/texmfmp.c: support old

[commits+kakuto at tug.org]

Revision: 61705
          http://tug.org/svn/texlive?view=revision&revision=61705
Author:   kakuto
Date:     2022-01-23 03:31:07 +0100 (Sun, 23 Jan 2022)
Log Message:
-----------
support old compilers

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/lib/texmfmp.c

Modified: trunk/Build/source/texk/web2c/lib/texmfmp.c
===================================================================
--- trunk/Build/source/texk/web2c/lib/texmfmp.c	2022-01-23 00:48:45 UTC (rev 61704)
+++ trunk/Build/source/texk/web2c/lib/texmfmp.c	2022-01-23 02:31:07 UTC (rev 61705)
@@ -3084,9 +3084,10 @@
     while (i<l)
      {
         p = multistrlenshort(strpool, l, i);
-        if (p>1)
-             for (int j=i+p; i<j; i++) strpool[i] = (0xFF&strpool[i])+0x100;
-        else i++;
+        if (p>1) {
+             int j;
+             for (j=i+p; i<j; i++) strpool[i] = (0xFF&strpool[i])+0x100;
+        } else i++;
      }
 #endif /* IS_pTeX */
     return ret;