From edb1f47a7cafbd8ff34c86ee03fb939f069ccd5d Mon Sep 17 00:00:00 2001 From: Takuji Tanaka Date: Sun, 5 Feb 2017 04:12:36 +0000 Subject: (u)pTeX: Expand the limit of glue/kern & kern tables in (u)ppltotf git-svn-id: svn://tug.org/texlive/trunk@43142 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/ChangeLog | 4 ++++ Build/source/texk/web2c/ptexdir/ppltotf.ch | 24 ++++++++++++------------ 2 files changed, 16 insertions(+), 12 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index be3ecc6792c..df3245f487f 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2017-02-05 TANAKA Takuji + + * ppltotf.ch: Expand the limit of glue/kern and kern tables. + 2016-12-16 Akira Kakuto * pbibtex.ch, pdvitype.ch, ppltotf.ch, ptftopl.ch: diff --git a/Build/source/texk/web2c/ptexdir/ppltotf.ch b/Build/source/texk/web2c/ptexdir/ppltotf.ch index 640e007292d..724049d76e5 100644 --- a/Build/source/texk/web2c/ptexdir/ppltotf.ch +++ b/Build/source/texk/web2c/ptexdir/ppltotf.ch @@ -69,7 +69,7 @@ else begin limit:=input_line2(pl_file,ustringcast(buffer),limit+1,buf_size-1)-1 @y @d character_code=12 @d type_code=13 {|TYPE| property} -@d glue_kern_code=14 {|GLUEKRN| property} +@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 @@ case char_tag[c] of 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') -@.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') +@.GLUEKERN with more than...@> else begin char_tag[c]:=lig_tag; char_remainder[c]:=nl; lk_step_ended:=false; end; @@ -466,15 +466,15 @@ begin lig_kern[nl].b0:=0; lig_kern[nl].b1:=get_byte;@/ 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 most 256 different kerns...@> - krn_ptr:=255; + begin if nk + 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 @@ if krn_ptr=ng then 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; -- cgit v1.2.3