summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pktogf.ch
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-08-01 12:01:34 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-08-01 12:01:34 +0000
commit2b48c58a3269e00f95e2769500c0230b2b7f397a (patch)
treec318c9368cdcf720af8624d45c0579b23e0635cd /Build/source/texk/web2c/pktogf.ch
parent33b2e31d6d3f08f67bad4a8a66b6c38eeea3ab02 (diff)
Purge non-local 'goto' labels in WEB programs.
If code and comment disagree, most likely they both are wrong. ;o) git-svn-id: svn://tug.org/texlive/trunk@56013 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pktogf.ch')
-rw-r--r--Build/source/texk/web2c/pktogf.ch6
1 files changed, 6 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pktogf.ch b/Build/source/texk/web2c/pktogf.ch
index f8a03595d72..edce6bfe7f4 100644
--- a/Build/source/texk/web2c/pktogf.ch
+++ b/Build/source/texk/web2c/pktogf.ch
@@ -94,12 +94,18 @@ a non-local goto, which we don't use in C.
@z
@x [8] Just exit, instead of doing a nonlocal goto.
+nested procedure, so the procedure called |jump_out| has been added to transfer
+to the very end of the program with an error message.
+
@d abort(#)==begin print_ln(' ',#); jump_out; end
@p procedure jump_out;
begin goto final_end;
end;
@y
+nested procedure, so we might want to |abort|
+the program with an error message.
+
@d abort(#)==begin verbose:=true; print_ln(#); uexit(1);
end
@z