diff options
| author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-09-17 09:30:27 +0000 |
|---|---|---|
| committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-09-17 09:30:27 +0000 |
| commit | 46f2ce3859e36658833aedad0a5f7e7256ddcf7c (patch) | |
| tree | 7f98ab6ea503a273beef399196a3f0281b37c48f /Build/source/texk/web2c/pmpostdir/ptfmin.ch | |
| parent | 22eeef14f89eda307eeb626baa9445b93a803d05 (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.ch | 11 |
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; |