texlive[43142] Build/source/texk/web2c/ptexdir: (u)pTeX: Expand the

[commits+takuji at tug.org]

Revision: 43142
          http://tug.org/svn/texlive?view=revision&revision=43142
Author:   takuji
Date:     2017-02-05 05:12:36 +0100 (Sun, 05 Feb 2017)
Log Message:
-----------
(u)pTeX: Expand the limit of glue/kern & kern tables in (u)ppltotf

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ppltotf.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-02-05 01:05:45 UTC (rev 43141)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-02-05 04:12:36 UTC (rev 43142)
@@ -1,3 +1,7 @@
+2017-02-05  TANAKA Takuji  <ttk at t-lab.opal.ne.jp>
+
+	* ppltotf.ch: Expand the limit of glue/kern and kern tables.
+
 2016-12-16  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 
 	* pbibtex.ch, pdvitype.ch, ppltotf.ch, ptftopl.ch:

Modified: trunk/Build/source/texk/web2c/ptexdir/ppltotf.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ppltotf.ch	2017-02-05 01:05:45 UTC (rev 43141)
+++ trunk/Build/source/texk/web2c/ptexdir/ppltotf.ch	2017-02-05 04:12:36 UTC (rev 43142)
@@ -69,7 +69,7 @@
 @y
 @d character_code=12
 @d type_code=13            {|TYPE| property}
- at d glue_kern_code=14       {|GLUEKRN| property}
+ at d glue_kern_code=14       {|GLUEKERN| property}
 @d chars_in_type_code=15   {|CHARSINTYPE| property}
 @d dir_code=16             {|DIRECTION| property}
 @z
@@ -453,9 +453,9 @@
   list_tag: err_print('Impossible: a list tag in a kanji format file?');
   ext_tag: err_print('Impossible: an extensible tag in a kanji format file?');
 end;
-if nl>255 then
-  err_print('GLUEKERN with more than 255 commands cannot have further labels')
- at .GLUEKERN with more than 255...@>
+if nl>max_lig_steps then
+  err_print('GLUEKERN with more than ',max_lig_steps,' commands cannot have further labels')
+ at .GLUEKERN with more than...@>
 else begin char_tag[c]:=lig_tag; char_remainder[c]:=nl;
   lk_step_ended:=false;
   end;
@@ -466,15 +466,15 @@
 lig_kern[nl].b2:=kern_flag; kern[nk]:=get_fix; krn_ptr:=0;
 while kern[krn_ptr]<>kern[nk] do incr(krn_ptr);
 if krn_ptr=nk then
-  begin if nk<256 then incr(nk)
-  else begin err_print('At most 256 different kerns are allowed');
- at .At most 256 different kerns...@>
-    krn_ptr:=255;
+  begin if nk<max_kerns then incr(nk)
+  else begin err_print('At most ',max_kerns,' different kerns are allowed');
+ at .At most 5000 different kerns...@>
+    krn_ptr:=max_kerns;
     end;
   end;
 lig_kern[nl].b3:=krn_ptr;
-if nl=511 then
-  err_print('GLUEKERN table should never exceed 511 LIG/KRN commands')
+if nl=max_lig_steps then
+  err_print('GLUEKERN table should never exceed ',max_lig_steps,' LIG/KRN commands')
 @.GLUEKERN table should never...@>
 else incr(nl);
 lk_step_ended:=true;
@@ -494,8 +494,8 @@
     end;
   end;
 lig_kern[nl].b3:=krn_ptr;
-if nl=511 then
-  err_print('GLUEKERN table should never exceed 511 GLUE/KRN commands')
+if nl=max_lig_steps then
+  err_print('GLUEKERN table should never exceed ',max_lig_steps,' GLUE/KRN commands')
 @.GLUEKERN table should never...@>
 else incr(nl);
 lk_step_ended:=true;