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/tftopl.ch | 6 ------ 1 file changed, 6 deletions(-) (limited to 'Build/source/texk/web2c/tftopl.ch') diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch index f2fa5894633..b0c1ba581ff 100644 --- a/Build/source/texk/web2c/tftopl.ch +++ b/Build/source/texk/web2c/tftopl.ch @@ -223,12 +223,6 @@ else begin tfm[0]:=c; out_octal(0,1); put_byte(RCE_string[1+(b div 3)], pl_file); @z -@x [40] Force 32-bit constant arithmetic for 16-bit machines. -f:=((tfm[k+1] mod 16)*@'400+tfm[k+2])*@'400+tfm[k+3]; -@y -f:=((tfm[k+1] mod 16)*intcast(@'400)+tfm[k+2])*@'400+tfm[k+3]; -@z - % [78] No progress reports unless verbose. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x -- cgit v1.2.3