diff options
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; |