texlive[60052] Build/source/texk/web2c: tex.ch: set limit before

[commits+takuji at tug.org]

Revision: 60052
          http://tug.org/svn/texlive?view=revision&revision=60052
Author:   takuji
Date:     2021-07-25 14:35:17 +0200 (Sun, 25 Jul 2021)
Log Message:
-----------
tex.ch: set limit before "cannot \read from terminal" error etc. (H. Kitagawa)

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	2021-07-25 01:37:03 UTC (rev 60051)
+++ trunk/Build/source/texk/web2c/ChangeLog	2021-07-25 12:35:17 UTC (rev 60052)
@@ -1,3 +1,8 @@
+2021-07-25  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* tex.ch:
+	set limit before "cannot \read from terminal" error etc.
+
 2021-07-22  Karl Berry  <karl at freefriends.org>
 
 	* tex.ch (50.1308): when fmt loading fails because the string

Modified: trunk/Build/source/texk/web2c/tex.ch
===================================================================
--- trunk/Build/source/texk/web2c/tex.ch	2021-07-25 01:37:03 UTC (rev 60051)
+++ trunk/Build/source/texk/web2c/tex.ch	2021-07-25 12:35:17 UTC (rev 60052)
@@ -3512,8 +3512,7 @@
 format_engine[x-1]:=0; {force string termination, just in case}
 if strcmp(engine_name, stringcast(format_engine)) then
   begin wake_up_terminal;
-  wterm_ln('---! ', stringcast(name_of_file+1), ' was written by ',
-           format_engine);
+  wterm_ln('---! ', stringcast(name_of_file+1), ' was written by ', format_engine);
   libc_free(format_engine);
   goto bad_fmt;
 end;
@@ -3523,7 +3522,7 @@
 if x<>@$ then begin {check that strings are the same}
   wake_up_terminal;
   wterm_ln('---! ', stringcast(name_of_file+1),
-           ' made by different executable, strings are different');
+           ' made by different executable version');
   goto bad_fmt;
 end;
 @<Undump |xord|, |xchr|, and |xprn|@>;