texlive[64914] Build/source/texk/web2c: pTeX also has max_quarterword

[commits+hironobu at tug.org]

Revision: 64914
          http://tug.org/svn/texlive?view=revision&revision=64914
Author:   hironobu
Date:     2022-11-03 11:50:32 +0100 (Thu, 03 Nov 2022)
Log Message:
-----------
pTeX also has max_quarterword 0xFFFF

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/eptex.ech
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
    trunk/Build/source/texk/web2c/texmfmem.h
    trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch

Modified: trunk/Build/source/texk/web2c/eptexdir/eptex.ech
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2022-11-03 00:59:11 UTC (rev 64913)
+++ trunk/Build/source/texk/web2c/eptexdir/eptex.ech	2022-11-03 10:50:32 UTC (rev 64914)
@@ -55,12 +55,6 @@
 @d banner_k==epTeX_banner_k
 @z
 
- at x
- at d max_quarterword=255 {largest allowable value in a |quarterword|}
- at y
- at d max_quarterword=@"FFFF {largest allowable value in a |quarterword|}
- at z
-
 @x [10.135] l.2895 - e-pTeX: box_lr and box_dir
 In \eTeX\ the |subtype| field records the box direction mode |box_lr|.
 @y

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2022-11-03 00:59:11 UTC (rev 64913)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2022-11-03 10:50:32 UTC (rev 64914)
@@ -1,3 +1,10 @@
+2022-11-03  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* ptex-base.ch: Increase max_quarterword to 0xFFFF on pTeX.
+	This is safe (and also necessary) as texmfmem.h already has
+	similar memory structure as upTeX, epTeX and eupTeX.
+	(Bug introduced on commit 2022-01-22)
+
 2022-10-24  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ptex-base.ch: Add a new syntax \font [in jis/ucs].

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-11-03 00:59:11 UTC (rev 64913)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2022-11-03 10:50:32 UTC (rev 64914)
@@ -458,6 +458,12 @@
 @z
 
 @x
+ at d max_quarterword=255 {largest allowable value in a |quarterword|}
+ at y
+ at d max_quarterword=@"FFFF {largest allowable value in a |quarterword|}
+ at z
+
+ at x
 @d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|}
 @y
 @d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|}
@@ -4590,6 +4596,17 @@
   u:=hpack(link(head),natural); w:=width(u);
 @z
 
+ at x [37.???] l.????? - increased max_quarterword
+if n>max_quarterword then confusion("256 spans"); {this can happen, but won't}
+@^system dependencies@>
+@:this can't happen 256 spans}{\quad 256 spans@>
+ at y
+if n>max_quarterword then confusion("too many spans");
+   {this can happen, but won't}
+@^system dependencies@>
+@:this can't happen too many spans}{\quad too many spans@>
+ at z
+
 @x [37.799] l.16331 - fin_row: pTeX: call adjust_hlist
   begin p:=hpack(link(head),natural);
 @y

Modified: trunk/Build/source/texk/web2c/texmfmem.h
===================================================================
--- trunk/Build/source/texk/web2c/texmfmem.h	2022-11-03 00:59:11 UTC (rev 64913)
+++ trunk/Build/source/texk/web2c/texmfmem.h	2022-11-03 10:50:32 UTC (rev 64914)
@@ -63,6 +63,8 @@
 */
 
 /* Aleph is sufficiently different to separate the definition. */
+/* pTeX, upTeX, e-pTeX and e-upTeX define max_quarterword=@"FFFF,
+   so a similar memory structure is applicable. */
 #if !defined(Aleph) && !defined(pTeX) && !defined(epTeX) && !defined(eupTeX) && !defined(upTeX)
 
 typedef union

Modified: trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch
===================================================================
--- trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2022-11-03 00:59:11 UTC (rev 64913)
+++ trunk/Build/source/texk/web2c/uptexdir/uptex-m.ch	2022-11-03 10:50:32 UTC (rev 64914)
@@ -146,7 +146,7 @@
 
 @x
 @d min_quarterword=0 {smallest allowable value in a |quarterword|}
- at d max_quarterword=255 {largest allowable value in a |quarterword|}
+ at d max_quarterword=@"FFFF {largest allowable value in a |quarterword|}
 @d min_halfword==-@"FFFFFFF {smallest allowable value in a |halfword|}
 @d max_halfword==@"FFFFFFF {largest allowable value in a |halfword|}
 @d max_cjk_val=@"10000