summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/weave.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/weave.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/weave.ch')
-rw-r--r--Build/source/texk/web2c/weave.ch18
1 files changed, 17 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch
index 2bdbb6c04af..649ad827075 100644
--- a/Build/source/texk/web2c/weave.ch
+++ b/Build/source/texk/web2c/weave.ch
@@ -63,6 +63,13 @@
@z
@x [2] No global labels, define and call parse_arguments.
+calls the `|jump_out|' procedure, which goes to the label |end_of_WEAVE|.
+
+@d end_of_WEAVE = 9999 {go here to wrap it up}
+@y
+calls the `|jump_out|' procedure.
+@z
+@x
label end_of_WEAVE; {go here to finish}
const @<Constants in the outer block@>@/
type @<Types in the outer block@>@/
@@ -225,7 +232,16 @@ rewrite(tex_file,tex_name);
begin while not eoln(f) do vgetc(f);
@z
-@x [??] Fix jump_out
+@x [33] Fix jump_out
+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
+@z
+@x
@d fatal_error(#)==begin new_line; print(#); error; mark_fatal; jump_out;
end