texlive[64786] Build/source/texk/web2c/ptexdir: ptex-base.ch:

[commits+hironobu at tug.org]

Revision: 64786
          http://tug.org/svn/texlive?view=revision&revision=64786
Author:   hironobu
Date:     2022-10-23 02:23:12 +0200 (Sun, 23 Oct 2022)
Log Message:
-----------
ptex-base.ch: initialize k in adjust_hlist (H. Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2022-10-22 23:50:39 UTC (rev 64785)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2022-10-23 00:23:12 UTC (rev 64786)
@@ -1,3 +1,8 @@
+2022-10-23  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: initialize k in adjust_hlist.
+	https://github.com/texjporg/tex-jp-build/issues/151
+
 2022-09-03  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* pbibtex.ch:

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-10-22 23:50:39 UTC (rev 64785)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-10-23 00:23:12 UTC (rev 64786)
@@ -7660,6 +7660,7 @@
 end;
 
 @ @<Seek list and make |t| pointing widow penalty position@>=
+k:=0;
 while(p<>null) do
 begin if is_char_node(p) then
   begin if font_dir[font(p)]<>dir_default then