summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/gftodvi.ch
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-08-01 14:27:00 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-08-01 14:27:00 +0000
commitd15614d79be6264bf014c5d5c4713280329fcae9 (patch)
tree23720ff104acbef78d9c7dbf39b3b73ec8f5a13e /Build/source/texk/web2c/gftodvi.ch
parent2b48c58a3269e00f95e2769500c0230b2b7f397a (diff)
Purge more 'goto' and 'jump_out' leftovers.
Editor's note: Trying to make the WEB changefiles fully represent the actual codes as modified for Web2c/TeX Live is like opening a veritable can of worms. git-svn-id: svn://tug.org/texlive/trunk@56014 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/gftodvi.ch')
-rw-r--r--Build/source/texk/web2c/gftodvi.ch12
1 files changed, 10 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch
index a66511b1ed6..1c473a863a6 100644
--- a/Build/source/texk/web2c/gftodvi.ch
+++ b/Build/source/texk/web2c/gftodvi.ch
@@ -99,9 +99,17 @@ procedure initialize; {this procedure gets things started properly}
@z
@x [8] Add newline to end of abort() message, and exit abnormally.
+so a procedure called |jump_out| has been introduced. This procedure, which
+simply transfers control to the label |final_end| at the end of the program,
+contains the only non-local |goto| statement in \.{GFtoDVI}.
+@^system dependencies@>
+
@d abort(#)==@+begin print(' ',#); jump_out;@+end
@y
-@d abort(#)==@+begin write_ln (stderr, #); uexit (1);@+end
+so a procedure called |jump_out| has been introduced.
+@^system dependencies@>
+
+@d abort(#)==@+begin write_ln (stderr, #); jump_out;@+end
@z
% [8] Remove nonlocal goto.
@@ -112,7 +120,7 @@ begin goto final_end;
end;
@y
@p procedure jump_out;
-begin uexit(0);
+begin uexit(1);
end;
@z