texlive[67647] Build/source/texk/web2c/cwebdir/cweave.w: [CWEB]

[commits+ascherer at tug.org]

Revision: 67647
          http://tug.org/svn/texlive?view=revision&revision=67647
Author:   ascherer
Date:     2023-07-16 02:47:17 +0200 (Sun, 16 Jul 2023)
Log Message:
-----------
[CWEB] Simplify 'push_level' as well.

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

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-07-16 00:13:30 UTC (rev 67646)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-07-16 00:47:17 UTC (rev 67647)
@@ -3805,11 +3805,8 @@
 text_pointer p)
 {
   if (stack_ptr==stack_end) overflow("stack");
-  if (stack_ptr>stack) { /* save current state */
-    stack_ptr->end_field=cur_end;
-    stack_ptr->tok_field=cur_tok;
-    stack_ptr->mode_field=cur_mode;
-  }
+  if (stack_ptr>stack) /* save current state */
+    *stack_ptr = cur_state;
   stack_ptr++;
   if (stack_ptr>max_stack_ptr) max_stack_ptr=stack_ptr;
   cur_tok=*p; cur_end=*(p+1);