diff options
| author | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-02-05 04:12:36 +0000 |
|---|---|---|
| committer | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-02-05 04:12:36 +0000 |
| commit | edb1f47a7cafbd8ff34c86ee03fb939f069ccd5d (patch) | |
| tree | c47a6f8130b0cc3c8597078e221f95219a045205 | |
| parent | 1cafa7672194db97ab6976aa5c4cba51ccdaea7b (diff) | |
(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
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ppltotf.ch | 24 |
2 files changed, 16 insertions, 12 deletions
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 <ttk@t-lab.opal.ne.jp> + + * ppltotf.ch: Expand the limit of glue/kern and kern tables. + 2016-12-16 Akira Kakuto <kakuto@fuk.kindai.ac.jp> * 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<max_kerns then incr(nk) + else begin err_print('At most ',max_kerns,' different kerns are allowed'); +@.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 @@ 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; |