summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pdvitype.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pdvitype.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/pdvitype.ch12
1 files changed, 6 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.ch b/Build/source/texk/web2c/ptexdir/pdvitype.ch
index d9df210e39a..5060c28aa8b 100644
--- a/Build/source/texk/web2c/ptexdir/pdvitype.ch
+++ b/Build/source/texk/web2c/ptexdir/pdvitype.ch
@@ -102,16 +102,16 @@ end;
@z
@x [35] JFM by K.A.
-read_tfm_word; lh:=b2*intcast(256)+b3;
+read_tfm_word; lh:=b2*256+b3;
@y
-read_tfm_word; lh:=b0*intcast(256)+b1;
+read_tfm_word; lh:=b0*256+b1;
if (lh = 11) or (lh = 9) then
begin
print(' (JFM');
fnt_jfm_p[nf] := true;
if lh = 9 then print(' tate');
print(')');
- nt:=b2*intcast(256)+b3;
+ nt:=b2*256+b3;
read_tfm_word;
end
else
@@ -119,7 +119,7 @@ else
nt:=0;
fnt_jfm_p[nf] := false;
end;
-lh:=b2*intcast(256)+b3;
+lh:=b2*256+b3;
@z
@x [35] JFM by K.A.
@@ -133,8 +133,8 @@ lh:=b2*intcast(256)+b3;
for k:=1 to nt do
begin
read_tfm_word;
- jfm_char_code[jfm_char_type_count]:=b0*intcast(256)+b1;
- jfm_char_type[jfm_char_type_count]:=b2*intcast(256)+b3;
+ jfm_char_code[jfm_char_type_count]:=b0*256+b1;
+ jfm_char_type[jfm_char_type_count]:=b2*256+b3;
jfm_char_font[jfm_char_type_count]:=nf;
jfm_h:= { hash value }
(jfm_char_code[jfm_char_type_count]+nf) mod jfm_hash_size;