texlive[67180] Build/source/texk/web2c: [CWEB] End the last change
commits+ascherer at tug.org
commits+ascherer at tug.org
Sun May 21 20:01:44 CEST 2023
Revision: 67180
http://tug.org/svn/texlive?view=revision&revision=67180
Author: ascherer
Date: 2023-05-21 20:01:44 +0200 (Sun, 21 May 2023)
Log Message:
-----------
[CWEB] End the last change with out_mode==post.
Modified Paths:
--------------
trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch
trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch
Modified: trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch
===================================================================
--- trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch 2023-05-21 17:03:29 UTC (rev 67179)
+++ trunk/Build/source/texk/web2c/ctiedir/ctie-k.ch 2023-05-21 18:01:44 UTC (rev 67180)
@@ -571,10 +571,10 @@
if (out_mode==post) /* last line has been changed */
fprintf(out_file, "@@z\n");
@y
+if (out_mode==pre) /* last line has been deleted */
+ fprintf(out_file, "@@y\n"), out_mode=post;
if (out_mode==post) /* last line has been changed */
fprintf(out_file, "@@z\n");
-else if (out_mode==pre) /* last line has been deleted */
- fprintf(out_file, "@@y\n@@z\n");
@z
@x l.1106
Modified: trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch 2023-05-21 17:03:29 UTC (rev 67179)
+++ trunk/Build/source/texk/web2c/tiedir/tie-w2c.ch 2023-05-21 18:01:44 UTC (rev 67180)
@@ -418,16 +418,14 @@
new_line(out_file);
}
@y
+if (out_mode==pre) { /* last line has been deleted */
+ fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'y'),out_file);
+ new_line(out_file); out_mode=post;
+ }
if (out_mode==post) { /* last line has been changed */
fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
new_line(out_file);
}
-else if (out_mode==pre) { /* last line has been deleted */
- fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'y'),out_file);
- new_line(out_file);
- fputc(map_xchr(@'@@'),out_file); fputc(map_xchr(@'z'),out_file);
- new_line(out_file);
- }
@z
Section 55
More information about the tex-live-commits
mailing list.