towards TL2010: texk/web2c

git-svn-id: svn://tug.org/texlive/trunk@15964 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 16 insertions, 1 deletions

diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch
index 773dc4ec890..ca409cc0825 100644
--- a/Build/source/texk/web2c/tangle.ch
+++ b/Build/source/texk/web2c/tangle.ch
@@ -44,6 +44,16 @@
 \def\title{TANGLE changes for C}
 @z
 
+@x [2] Eliminate the |end_of_TANGLE| label.
+@d end_of_TANGLE = 9999 {go here to wrap it up}
+
+@y
+@z
+@x
+label end_of_TANGLE; {go here to finish}
+@y
+@z
+
 @x [2] Define and call parse_arguments.
 procedure initialize;
   var @<Local variables for initialization@>@/
@@ -175,7 +185,7 @@ rewrite (Pascal_file, pascal_name);
       begin while not eoln(f) do vgetc(f);
 @z
 
-@x [??] Fix `jump_out'.
+@x [35] Fix `jump_out'.
 @d fatal_error(#)==begin new_line; print(#); error; mark_fatal; jump_out;
   end
 
@@ -617,6 +627,11 @@ print (banner); {print a ``banner line''}
 print_ln (version_string);
 @z
 
+@x Eliminate the |end_of_TANGLE| label.
+end_of_TANGLE:
+@y
+@z
+
 @x
 @<Print the job |history|@>;
 @y