summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir/ptfmin.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-09-17 09:30:27 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-09-17 09:30:27 +0000
commit46f2ce3859e36658833aedad0a5f7e7256ddcf7c (patch)
tree7f98ab6ea503a273beef399196a3f0281b37c48f /Build/source/texk/web2c/pmpostdir/ptfmin.ch
parent22eeef14f89eda307eeb626baa9445b93a803d05 (diff)
(u)pMetaPost: Bug fix for upTeX fonts and monor cleanup
git-svn-id: svn://tug.org/texlive/trunk@35188 c570f23f-e606-0410-a88d-b1316a301751
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;