texlive[61702] Build/source/texk/ptexenc/ptexenc.c: support old

[commits+kakuto at tug.org]

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

Modified Paths:
--------------
    trunk/Build/source/texk/ptexenc/ptexenc.c

Modified: trunk/Build/source/texk/ptexenc/ptexenc.c
===================================================================
--- trunk/Build/source/texk/ptexenc/ptexenc.c	2022-01-22 23:22:05 UTC (rev 61701)
+++ trunk/Build/source/texk/ptexenc/ptexenc.c	2022-01-22 23:52:30 UTC (rev 61702)
@@ -331,9 +331,10 @@
 
 long fromBUFFshort(unsigned short *s, int len, int pos)
 {
+    int i;
     unsigned char sc[6];
     s += pos; len -= pos;
-    for (int i=0;i<(len<6 ? len : 6);i++) sc[i]=0xFF&s[i];
+    for (i=0;i<(len<6 ? len : 6);i++) sc[i]=0xFF&s[i];
     return fromBUFF(sc, (len<6 ? len : 6), 0);
 }