summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tangleboot.pin
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/tangleboot.pin')
-rw-r--r--Build/source/texk/web2c/tangleboot.pin15
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;