diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2020-08-01 19:24:29 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2020-08-01 19:24:29 +0000 |
commit | 99cba3c7708975b84acbb927a3e1c02875be5596 (patch) | |
tree | a67a64c32fbe8164a282387b63868a926ebad0e3 | |
parent | d15614d79be6264bf014c5d5c4713280329fcae9 (diff) |
Purge another 'goto' sentence.
git-svn-id: svn://tug.org/texlive/trunk@56015 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Build/source/texk/web2c/weave.ch | 10 |
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; |