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/dvitype.ch | 44 ++++---------------------------------- 1 file changed, 4 insertions(+), 40 deletions(-) (limited to 'Build/source/texk/web2c/dvitype.ch') diff --git a/Build/source/texk/web2c/dvitype.ch b/Build/source/texk/web2c/dvitype.ch index f20564b7b74..9e9a9bbc872 100644 --- a/Build/source/texk/web2c/dvitype.ch +++ b/Build/source/texk/web2c/dvitype.ch @@ -152,31 +152,6 @@ end; @!cur_name:^char; {external name} @z -@x [27] 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_trio:=(a*256+b)*256+c -else signed_trio:=((a-256)*256+b)*256+c; -@y -if a<128 then signed_trio:=(a*intcast(256)+b)*256+c -else signed_trio:=((a-intcast(256))*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 - @x [28] dvi_length and move_to_byte. @p function dvi_length:integer; begin set_pos(dvi_file,-1); dvi_length:=cur_pos(dvi_file); @@ -200,25 +175,14 @@ begin end; @z -@x [35] Make 16-bit TFM calculations work. -read_tfm_word; lh:=b2*256+b3; -read_tfm_word; font_bc[nf]:=b0*256+b1; font_ec[nf]:=b2*256+b3; -@y -read_tfm_word; lh:=b2*intcast(256)+b3; -read_tfm_word; font_bc[nf]:=b0*intcast(256)+b1; font_ec[nf]:=b2*intcast(256)+b3; -@z -@x - if b0<128 then tfm_check_sum:=((b0*256+b1)*256+b2)*256+b3 - else tfm_check_sum:=(((b0-256)*256+b1)*256+b2)*256+b3 -@y - if b0<128 then tfm_check_sum:=((b0*intcast(256)+b1)*256+b2)*256+b3 - else tfm_check_sum:=(((b0-256)*intcast(256)+b1)*256+b2)*256+b3 -@z +@x [42/43] Initialize optional variables sooner. +@!count:array[0..9] of integer; {the count values on the current page} -@x [43] Initialize optional variables sooner. @ @= out_mode:=the_works; max_pages:=1000000; start_vals:=0; start_there[0]:=false; @y +@!count:array[0..9] of integer; {the count values on the current page} + @ Initializations are done sooner now. @z -- cgit v1.2.3