diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-19 08:32:16 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-19 08:32:16 +0000 |
commit | c8441c7824f0922397522ab135488f5b7277de63 (patch) | |
tree | 58056c720814345008e99f9d4ebe78580de64b7c /Build/source/texk/web2c/tangleboot.pin | |
parent | a4b837123f55ac4572fb8555f20d1aea9d295ab5 (diff) |
texk/web2c: Remove intcast(), obsolete for 32/64-bit systems
git-svn-id: svn://tug.org/texlive/trunk@36091 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tangleboot.pin')
-rw-r--r-- | Build/source/texk/web2c/tangleboot.pin | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/tangleboot.pin b/Build/source/texk/web2c/tangleboot.pin index 5d9331c4610..775aeb5399b 100644 --- a/Build/source/texk/web2c/tangleboot.pin +++ b/Build/source/texk/web2c/tangleboot.pin @@ -699,20 +699,19 @@ while true do begin nextcontrol:=getnext; 21:case nextcontrol of 48,49,50,51,52,53,54,55,56,57:begin{160:}val:=0; repeat val:=10*val+nextcontrol-48;nextcontrol:=getnext; until(nextcontrol>57)or(nextcontrol<48){:160}; -begin accumulator:=accumulator+nextsign*intcast(val);nextsign:=+1;end; -goto 21;end;12:begin{161:}val:=0;nextcontrol:=48; +begin accumulator:=accumulator+nextsign*(val);nextsign:=+1;end;goto 21; +end;12:begin{161:}val:=0;nextcontrol:=48; repeat val:=8*val+nextcontrol-48;nextcontrol:=getnext; until(nextcontrol>55)or(nextcontrol<48){:161}; -begin accumulator:=accumulator+nextsign*intcast(val);nextsign:=+1;end; -goto 21;end;13:begin{162:}val:=0;nextcontrol:=48; +begin accumulator:=accumulator+nextsign*(val);nextsign:=+1;end;goto 21; +end;13:begin{162:}val:=0;nextcontrol:=48; repeat if nextcontrol>=65 then nextcontrol:=nextcontrol-7; val:=16*val+nextcontrol-48;nextcontrol:=getnext; until(nextcontrol>70)or(nextcontrol<48)or((nextcontrol>57)and( -nextcontrol<65)){:162}; -begin accumulator:=accumulator+nextsign*intcast(val);nextsign:=+1;end; -goto 21;end;130:begin q:=idlookup(0); +nextcontrol<65)){:162};begin accumulator:=accumulator+nextsign*(val); +nextsign:=+1;end;goto 21;end;130:begin q:=idlookup(0); if ilk[q]<>1 then begin nextcontrol:=42;goto 21;end; -begin accumulator:=accumulator+nextsign*intcast(equiv[q]-1073741824); +begin accumulator:=accumulator+nextsign*(equiv[q]-1073741824); nextsign:=+1;end;end;43:;45:nextsign:=-nextsign; 132,133,135,134,136:goto 30;59:begin writeln(stdout); write(stdout,'! Omit semicolon in numeric definition');error;end; |