texlive[67856] Build/source/texk/web2c/cwebdir: [CWEB] Compare

[commits+ascherer at tug.org]

Revision: 67856
          http://tug.org/svn/texlive?view=revision&revision=67856
Author:   ascherer
Date:     2023-08-09 11:45:29 +0200 (Wed, 09 Aug 2023)
Log Message:
-----------
[CWEB] Compare sections 205 and 216.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/cweave.w
    trunk/Build/source/texk/web2c/cwebdir/system.bux

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-08-09 09:04:34 UTC (rev 67855)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-08-09 09:45:29 UTC (rev 67856)
@@ -3887,10 +3887,10 @@
   text_pointer p; /* translation of the \CEE/ text */
   next_control=ignore; p=C_translate();
   app(inner_tok_flag+(int)(p-tok_start));
-  if (make_pb) {
-    out_str("\\PB{"); make_output(); out('}');
+  if (make_pb) out_str("\\PB{");
 @.\\PB@>
-  }@+else make_output(); /* output the list */
+  make_output(); /* output the list */
+  if (make_pb) out('}');
   if (text_ptr>max_text_ptr) max_text_ptr=text_ptr;
   if (tok_ptr>max_tok_ptr) max_tok_ptr=tok_ptr;
   text_ptr=save_text_ptr; tok_ptr=save_tok_ptr; /* forget the tokens */

Modified: trunk/Build/source/texk/web2c/cwebdir/system.bux
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/system.bux	2023-08-09 09:04:34 UTC (rev 67855)
+++ trunk/Build/source/texk/web2c/cwebdir/system.bux	2023-08-09 09:45:29 UTC (rev 67856)
@@ -16,6 +16,7 @@
 @$fflush "<stdio.h>" \zip@>
 @$fopen "<stdio.h>" \zip@>
 @$fprintf "<stdio.h>" \zip@>
+@$fputc "<stdio.h>" \zip@>
 @$fputs "<stdio.h>" \zip@>
 @$fread "<stdio.h>" \zip@>
 @$fwrite "<stdio.h>" \zip@>