texlive[62338] Build/source/texk/web2c/hitexdir/hitex.w: HiTeX:

[commits+mruckert at tug.org]

Revision: 62338
          http://tug.org/svn/texlive?view=revision&revision=62338
Author:   mruckert
Date:     2022-03-02 14:20:31 +0100 (Wed, 02 Mar 2022)
Log Message:
-----------
HiTeX: Eliminating loop on file with invisible output combined with -no-empty-page

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/hitexdir/hitex.w

Modified: trunk/Build/source/texk/web2c/hitexdir/hitex.w
===================================================================
--- trunk/Build/source/texk/web2c/hitexdir/hitex.w	2022-03-02 12:21:24 UTC (rev 62337)
+++ trunk/Build/source/texk/web2c/hitexdir/hitex.w	2022-03-02 13:20:31 UTC (rev 62338)
@@ -21149,8 +21149,14 @@
 static bool its_all_over(void) /*do this when \.{\\end} or \.{\\dump} occurs*/
 {@+
 if (privileged())
-  {@+if ((page_head==page_tail)&&(head==tail)&&(dead_cycles==0))
-    {@+return true;
+  {@+if ((page_head==page_tail)&&(dead_cycles==0))
+    {@+pointer p=head;
+       if (option_no_empty_page)
+         while (p!=tail)
+         { if (is_visible(p)) break;
+           else p=link(p);
+         }
+       if (p==tail) return true;
     }
   back_input(); /*we will try to end again after ejecting residual material*/
   tail_append(new_set_node());
@@ -30913,6 +30919,14 @@
     default: return true;
   }
 }
+
+@ Because we will need this procedure in the |its_all_over| function.
+We add a forward declaration
+
+@<Forward declarations@>=
+static bool is_visible(pointer p);
+
+
 @ An important feature of the new routine is the call to
 |hfix_defaults|.  It occurs when the first ``visible mark'' is placed
 in the output. At that point we record the current values of \TeX's