texlive[65248] Build/source/texk/web2c: (u)ptex: initialize

[commits+takuji at tug.org]

Revision: 65248
          http://tug.org/svn/texlive?view=revision&revision=65248
Author:   takuji
Date:     2022-12-12 14:06:25 +0100 (Mon, 12 Dec 2022)
Log Message:
-----------
(u)ptex: initialize inhibit_xsp/kinsoku tables

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
    trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-12-12 12:18:57 UTC (rev 65247)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-12-12 13:06:25 UTC (rev 65248)
@@ -1327,7 +1327,10 @@
 for k:=0 to 255 do
   begin cat_code(k):=other_char; kcat_code(k):=other_kchar;
   math_code(k):=hi(k); sf_code(k):=1000;
-  auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0;
+  auto_xsp_code(k):=0;
+  end;
+for k:=0 to 1023 do
+  begin inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0;
   kinsoku_code(k):=0; kinsoku_type(k):=0;
   end;
 @z

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2022-12-12 12:18:57 UTC (rev 65247)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2022-12-12 13:06:25 UTC (rev 65248)
@@ -231,8 +231,7 @@
 for k:=0 to 255 do
   begin cat_code(k):=other_char; kcat_code(k):=other_kchar;
   math_code(k):=hi(k); sf_code(k):=1000;
-  auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0;
-  kinsoku_code(k):=0; kinsoku_type(k):=0;
+  auto_xsp_code(k):=0;
   end;
 @y
 eqtb[auto_xspacing_code]:=eqtb[cat_code_base];
@@ -240,8 +239,7 @@
 for k:=0 to 255 do
   begin cat_code(k):=other_char;
   math_code(k):=hi(k); sf_code(k):=1000;
-  auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0;
-  kinsoku_code(k):=0; kinsoku_type(k):=0;
+  auto_xsp_code(k):=0;
   end;
 for k:=0 to 511 do
   begin kcat_code(k):=other_kchar;