summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTakuji Tanaka <KXD02663@nifty.ne.jp>2017-02-05 04:12:36 +0000
committerTakuji Tanaka <KXD02663@nifty.ne.jp>2017-02-05 04:12:36 +0000
commitedb1f47a7cafbd8ff34c86ee03fb939f069ccd5d (patch)
treec47a6f8130b0cc3c8597078e221f95219a045205
parent1cafa7672194db97ab6976aa5c4cba51ccdaea7b (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/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/ppltotf.ch24
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;