From c8441c7824f0922397522ab135488f5b7277de63 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Mon, 19 Jan 2015 08:32:16 +0000 Subject: texk/web2c: Remove intcast(), obsolete for 32/64-bit systems git-svn-id: svn://tug.org/texlive/trunk@36091 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/gftodvi.ch | 41 -------------------------------------- 1 file changed, 41 deletions(-) (limited to 'Build/source/texk/web2c/gftodvi.ch') diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch index 9decc79927d..aecfce210ee 100644 --- a/Build/source/texk/web2c/gftodvi.ch +++ b/Build/source/texk/web2c/gftodvi.ch @@ -227,24 +227,6 @@ end; @!name_of_file:^text_char; @z -@x [51] Make get_n_bytes routines work with 16-bit math. -get_two_bytes:=a*256+b; -@y -get_two_bytes:=a*intcast(256)+b; -@z -@x -get_three_bytes:=(a*256+b)*256+c; -@y -get_three_bytes:=(a*intcast(256)+b)*256+c; -@z -@x -if a<128 then signed_quad:=((a*256+b)*256+c)*256+d -else signed_quad:=(((a-256)*256+b)*256+c)*256+d; -@y -if a<128 then signed_quad:=((a*intcast(256)+b)*256+c)*256+d -else signed_quad:=(((a-256)*intcast(256)+b)*256+c)*256+d; -@z - % [52] The memory_word structure is too hard to translate via web2c, so % we use a hand-coded include file. Also, b0 (et al.) is used both as a % field and as a regular variable. web2c puts field names in the global @@ -310,16 +292,6 @@ else signed_quad:=(((a-256)*intcast(256)+b)*256+c)*256+d; @d rem_byte(#)==#.B3 @z -% [60] Fix 16-bit arithmetic bugs in TFM calculations. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -@x -@ @d read_two_halves_end(#)==#:=b2*256+b3 -@d read_two_halves(#)==read_tfm_word; #:=b0*256+b1; read_two_halves_end -@y -@ @d read_two_halves_end(#)==#:=b2*intcast(256)+b3 -@d read_two_halves(#)==read_tfm_word; #:=b0*intcast(256)+b1; read_two_halves_end -@z - % [62] More .b?'s. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x @@ -328,19 +300,6 @@ else signed_quad:=(((a-256)*intcast(256)+b)*256+c)*256+d; qw.B0:=qi(b0); qw.B1:=qi(b1); qw.B2:=qi(b2); qw.B3:=qi(b3); @z -% [62] More arithmetic fixes. -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -@x -z:=((b0*256+b1)*256+b2)*16+(b3 div 16); -@y -z:=((b0*intcast(256)+b1)*intcast(256)+b2)*16+(b3 div 16); -@z -@x - else if 256*(b2-128)+b3>=nk then abend; -@y - else if intcast(256)*(b2-128)+b3>=nk then abend; -@z - @x [78] Change default extension to `.2602gf'. l:=3; init_str3(".")("g")("f")(gf_ext);@/ @y -- cgit v1.2.3