diff options
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; |