texlive[63916] Build/source/texk/web2c: fix from drf to disallow

[commits+karl at tug.org]

Revision: 63916
          http://tug.org/svn/texlive?view=revision&revision=63916
Author:   karl
Date:     2022-07-17 02:36:16 +0200 (Sun, 17 Jul 2022)
Log Message:
-----------
fix from drf to disallow \noexpand\endwrite, per https://tex.stackexchange.com/questions/609423

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/tex.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2022-07-16 23:47:48 UTC (rev 63915)
+++ trunk/Build/source/texk/web2c/ChangeLog	2022-07-17 00:36:16 UTC (rev 63916)
@@ -1,3 +1,11 @@
+2022-07-16  Karl Berry  <karl at freefriends.org>
+
+	* tex.ch (25.369, <Suppress expansion ...>): disallow
+	\noexpand\endwrite, else we get a seg fault because of fetching
+	mem[null]. Fix from drf.
+	Original report: https://tex.stackexchange.com/questions/609423
+	TeX bug entry: https://tug.org/texmfbug/newbug.html#B155endwrite
+
 2022-06-12  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
 
 	* texmfmp-help.h ((e)(u)pTeX), help.h ((u)pBibTeX):

Modified: trunk/Build/source/texk/web2c/tex.ch
===================================================================
--- trunk/Build/source/texk/web2c/tex.ch	2022-07-16 23:47:48 UTC (rev 63915)
+++ trunk/Build/source/texk/web2c/tex.ch	2022-07-17 00:36:16 UTC (rev 63916)
@@ -1522,7 +1522,7 @@
 absorbing:begin print(" while scanning text"); info(p):=right_brace_token+"}";
 @z
 
- at x [25.366]
+ at x [25.366] l.7672 - expansion depth overflow
 begin cv_backup:=cur_val; cvl_backup:=cur_val_level; radix_backup:=radix;
 @y
 begin
@@ -1531,7 +1531,7 @@
 cv_backup:=cur_val; cvl_backup:=cur_val_level; radix_backup:=radix;
 @z
 
- at x [25.366]
+ at x [25.366] l.7678 - expansion depth overflow
 cur_order:=co_backup; link(backup_head):=backup_backup;
 @y
 cur_order:=co_backup; link(backup_head):=backup_backup;
@@ -1538,7 +1538,15 @@
 decr(expand_depth_count);
 @z
 
- at x [27.484] set limit when fatal_error
+% Original report: https://tex.stackexchange.com/questions/609423
+% TeX bug entry: https://tug.org/texmfbug/newbug.html#B155endwrite
+ at x [25.369] l.7717 - disallow \noexpand\endwrite
+if t>=cs_token_flag then
+ at y
+if (t>=cs_token_flag)and(t<>end_write_token) then
+ at z
+
+ at x [27.484] l.9495 - set limit when fatal_error
 else fatal_error("*** (cannot \read from terminal in nonstop modes)")
 @y
 else begin