summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir/ptfmin.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/pmpostdir/ptfmin.ch')
-rw-r--r--Build/source/texk/web2c/pmpostdir/ptfmin.ch11
1 files changed, 10 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/pmpostdir/ptfmin.ch b/Build/source/texk/web2c/pmpostdir/ptfmin.ch
index 0cfc5b12f72..2990dc11044 100644
--- a/Build/source/texk/web2c/pmpostdir/ptfmin.ch
+++ b/Build/source/texk/web2c/pmpostdir/ptfmin.ch
@@ -30,6 +30,15 @@
|goto done|@>
@z
+@x
+@d read_two(A) { (A)=tfbyte;
+@y
+@d read_pair(A) { (A)=tfbyte;
+ tfget; (A)=(A)*0400+tfbyte;
+}
+@d read_two(A) { (A)=tfbyte;
+@z
+
%
% routine to process JFM file format
@x
@@ -82,7 +91,7 @@ tf_ignore(4*(tfm_lh-2))
ii=mp->ctype_base[n]+nt;
i=mp->ctype_base[n];
while ( i<ii ) {
- tfget; read_two(ct);
+ tfget; read_pair(ct); /* allow character codes up to 0xffff */
mp->font_info[i].hh.LH=ct;
tfget; read_two(ct);
mp->font_info[i].hh.RH=ct;