texlive[57629] Build/source/texk/web2c: \tracingparagraphs mode fix

[commits+karl at tug.org]

Revision: 57629
          http://tug.org/svn/texlive?view=revision&revision=57629
Author:   karl
Date:     2021-02-06 00:24:43 +0100 (Sat, 06 Feb 2021)
Log Message:
-----------
\tracingparagraphs mode fix fix from DEK

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/mf.ch
    trunk/Build/source/texk/web2c/mf.web
    trunk/Build/source/texk/web2c/tex.web
    trunk/Build/source/texk/web2c/triptrap/trip.log

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2021-02-05 22:28:47 UTC (rev 57628)
+++ trunk/Build/source/texk/web2c/ChangeLog	2021-02-05 23:24:43 UTC (rev 57629)
@@ -1,3 +1,10 @@
+2021-02-05  Donald Knuth  <tex-k at tug.org>
+
+	* mf.web,
+	* tex.web: further fixes. Reports from Udo Wermuth
+	and Phelype Oleinik.
+	* triptrap/trip.log: update for newly added blank line.
+
 2021-01-31  Karl Berry  <karl at freefriends.org>
 
 	* weave.ch (banner): 4.5.

Modified: trunk/Build/source/texk/web2c/mf.ch
===================================================================
--- trunk/Build/source/texk/web2c/mf.ch	2021-02-05 22:28:47 UTC (rev 57628)
+++ trunk/Build/source/texk/web2c/mf.ch	2021-02-05 23:24:43 UTC (rev 57629)
@@ -1954,12 +1954,6 @@
     @!init if ini_version then begin store_base_file; return;end;@+tini@/
 @z
 
- at x
-fix_date_and_time; init_randoms(sys_time+sys_day);@/
- at y
-fix_date_and_time; init_randoms(internal[time]+internal[day]);@/
- at z
-
 %@x [49.1211] l.23002 - Handle %&base line.
 %if (base_ident=0)or(buffer[loc]="&") then
 %@y

Modified: trunk/Build/source/texk/web2c/mf.web
===================================================================
--- trunk/Build/source/texk/web2c/mf.web	2021-02-05 22:28:47 UTC (rev 57628)
+++ trunk/Build/source/texk/web2c/mf.web	2021-02-05 23:24:43 UTC (rev 57629)
@@ -4314,7 +4314,6 @@
 @!old_setting:0..max_selector;
 @!sys_time,@!sys_day,@!sys_month,@!sys_year:integer;
     {date and time supplied by external system}
-@^system dependencies@>
 
 @ We will occasionally use |begin_diagnostic| in connection with line-number
 printing, as follows. (The parameter |s| is typically |"Path"| or
@@ -23053,7 +23052,7 @@
   while (loc<limit)and(buffer[loc]=" ") do incr(loc);
   end;
 buffer[limit]:="%";@/
-fix_date_and_time; init_randoms(sys_time+sys_day);@/
+fix_date_and_time; init_randoms(sys_time+sys_day*unity);@/
 @<Initialize the print |selector|...@>;
 if loc<limit then if buffer[loc]<>"\" then start_input; {\&{input} assumed}
 end

Modified: trunk/Build/source/texk/web2c/tex.web
===================================================================
--- trunk/Build/source/texk/web2c/tex.web	2021-02-05 22:28:47 UTC (rev 57628)
+++ trunk/Build/source/texk/web2c/tex.web	2021-02-05 23:24:43 UTC (rev 57629)
@@ -1766,8 +1766,7 @@
 
 \hang|term_only| (when |interaction>batch_mode| and |log_file| not yet open);
 
-\hang|log_only| (when |interaction=batch_mode| and |log_file| is open,
-  or when tracing paragraphs);
+\hang|log_only| (when |interaction=batch_mode| and |log_file| is open);
 
 \hang|term_and_log| (when |interaction>batch_mode| and |log_file| is open).
 
@@ -1883,7 +1882,7 @@
   {used to save global variables when deleting tokens}
 begin if history<error_message_issued then history:=error_message_issued;
 print_char("."); show_context;
-if interaction=error_stop_mode then if selector<>log_only then
+if interaction=error_stop_mode then
   @<Get user's advice and |return|@>;
 incr(error_count);
 if error_count=100 then
@@ -16290,6 +16289,7 @@
 var q:pointer; {new glue specification}
 begin if no_shrink_error_yet then
   begin no_shrink_error_yet:=false;
+  @!stat if tracing_paragraphs>0 then end_diagnostic(true);@+tats@;
   print_err("Infinite glue shrinkage found in a paragraph");
 @.Infinite glue shrinkage...@>
   help5("The paragraph just ended includes some glue that has")@/
@@ -16298,6 +16298,7 @@
   ("of any length to fit on one line. But it's safe to proceed,")@/
   ("since the offensive shrinkability has been made finite.");
   error;
+  @!stat if tracing_paragraphs>0 then begin_diagnostic;@+tats@;
   end;
 q:=new_spec(p); shrink_order(q):=normal;
 delete_glue_ref(p); finite_shrink:=q;

Modified: trunk/Build/source/texk/web2c/triptrap/trip.log
===================================================================
--- trunk/Build/source/texk/web2c/triptrap/trip.log	2021-02-05 22:28:47 UTC (rev 57628)
+++ trunk/Build/source/texk/web2c/triptrap/trip.log	2021-02-05 23:24:43 UTC (rev 57629)
@@ -1836,6 +1836,7 @@
 {restoring \mathsurround=0.0pt}
 {restoring \fam=0}
 {horizontal mode: \par}
+
 ! Infinite glue shrinkage found in a paragraph.
 l.210 ...round60pt\hbox{$$}$\par
                                 }