texlive[73694] Build/source/texk/web2c/cwebdir: [CTWILL] Avoid

[commits+ascherer at tug.org]

Revision: 73694
          https://tug.org/svn/texlive?view=revision&revision=73694
Author:   ascherer
Date:     2025-02-02 17:41:28 +0100 (Sun, 02 Feb 2025)
Log Message:
-----------
[CTWILL] Avoid several 'Overfull \vbox'es.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2025-02-02 15:21:52 UTC (rev 73693)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2025-02-02 16:41:28 UTC (rev 73694)
@@ -1,3 +1,7 @@
+2025-02-02  Andreas Scherer  <https://ascherer.github.io>
+
+	* ctwill-mini.ch: Avoid several 'Overfull \vbox'es.
+
 2025-01-29  Andreas Scherer  <https://ascherer.github.io>
 
 	* tests/ham.ch: Add line information.

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch	2025-02-02 15:21:52 UTC (rev 73693)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-mini.ch	2025-02-02 16:41:28 UTC (rev 73694)
@@ -265,6 +265,14 @@
 @$no_xref {CTWILL}25 =$\R\\{make\_xrefs}$@>
 @z
 
+Section 27.
+
+ at x
+        while (q->num>section_xref_switch) {r=q; q=q->xlink;}
+ at y
+        while (q->num>section_xref_switch) {@+r=q; q=q->xlink;@+}
+ at z
+
 Section 36.
 
 @x
@@ -519,6 +527,18 @@
 \hfil\break|next_control>=begin_C|.
 @z
 
+Section 82.
+
+ at x
+  if (p) {
+ at y
+  @+ if (!p) return;
+ at z
+ at x
+  }
+ at y
+ at z
+
 Section 86.
 
 @x
@@ -1314,10 +1334,22 @@
 Section 141.
 
 @x
+  xref_pointer q=(xref_pointer)p->xref; /* pointer to cross-reference being examined */
+ at y
+  @+ xref_pointer q=(xref_pointer)p->xref; /* pointer to cross-reference being examined */
+ at z
+ at x
   while (q != xmem) {
 @y
   while (q != xmem) { @+
 @z
+ at x
+    else if (m==n+def_flag) {
+        q->num=m; return;
+ at y
+    else if (m==n+def_flag) { @+
+        q->num=m; return; @+
+ at z
 
 Section 143.
 
@@ -1416,7 +1448,32 @@
 @y
 @r @ Now here's the |reduce| procedure used in our code for productions,
 @z
+ at x
+  scrap_pointer i; /* pointer into scrap memory */
+ at y
+  @+ scrap_pointer i; /* pointer into scrap memory */
+ at z
+ at x
+  pp--; /* we next say |pp++| */
+ at y
+ at z
 
+Section 198.
+
+ at x
+  switch (k) {
+ at y
+  @+ switch (k) {
+ at z
+
+Section 199.
+
+ at x
+static int tracing=off; /* can be used to show parsing details */
+ at y
+ at + static int tracing=off; /* used to show parsing details */
+ at z
+
 Section 200.
 
 @x
@@ -1427,6 +1484,12 @@
 @%
 @$n {CTWILL}197 \&{short}@>
 @z
+ at x
+}
+ at y
+}
+pp--; /* we next say |pp++| */
+ at z
 
 Section 202.