summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-08-01 19:24:29 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-08-01 19:24:29 +0000
commit99cba3c7708975b84acbb927a3e1c02875be5596 (patch)
treea67a64c32fbe8164a282387b63868a926ebad0e3 /Build
parentd15614d79be6264bf014c5d5c4713280329fcae9 (diff)
Purge another 'goto' sentence.
git-svn-id: svn://tug.org/texlive/trunk@56015 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/weave.ch10
1 files changed, 9 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch
index 649ad827075..e17a57c6733 100644
--- a/Build/source/texk/web2c/weave.ch
+++ b/Build/source/texk/web2c/weave.ch
@@ -233,13 +233,21 @@ rewrite(tex_file,tex_name);
@z
@x [33] Fix jump_out
+@ The |jump_out| procedure just cuts across all active procedure levels
+and jumps out of the program. This is the only non-local \&{goto} statement
+in \.{WEAVE}. It is used when no recovery from a particular error has
+been provided.
+
Some \PASCAL\ compilers do not implement non-local |goto| statements.
@^system dependencies@>
In such cases the code that appears at label |end_of_WEAVE| should be
copied into the |jump_out| procedure, followed by a call to a system procedure
that terminates the program.
-
@y
+@ The |jump_out| procedure just cuts across all active procedure levels
+and jumps out of the program.
+It is used when no recovery from a particular error has
+been provided.
@z
@x
@d fatal_error(#)==begin new_line; print(#); error; mark_fatal; jump_out;