texlive[68349] Build/source/texk/web2c/cwebdir: [CWEB] Copy

[commits+ascherer at tug.org]

Revision: 68349
          https://tug.org/svn/texlive?view=revision&revision=68349
Author:   ascherer
Date:     2023-09-23 12:27:11 +0200 (Sat, 23 Sep 2023)
Log Message:
-----------
[CWEB] Copy structures via pointers.

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

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-09-22 23:43:21 UTC (rev 68348)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2023-09-23 10:27:11 UTC (rev 68349)
@@ -1,3 +1,7 @@
+2023-09-23  Andreas Scherer  <https://ascherer.github.io>
+
+	* cweave.w: Copy structures via pointers.
+
 2023-09-22  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctang-w2c.ch,

Modified: trunk/Build/source/texk/web2c/cwebdir/cweave.w
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-09-22 23:43:21 UTC (rev 68348)
+++ trunk/Build/source/texk/web2c/cwebdir/cweave.w	2023-09-23 10:27:11 UTC (rev 68349)
@@ -3204,7 +3204,7 @@
 eight_bits c,
 short d, short n)
 {
-  scrap_pointer i, i1; /* pointers into scrap memory */
+  scrap_pointer i, o; /* pointers into scrap memory */
   j->cat=c;
   if (k>0) {
     j->trans=text_ptr;
@@ -3212,10 +3212,8 @@
     freeze_text();
   }
   if (k>1) {
-    for (i=j+k, i1=j+1; i<=lo_ptr; i++, i1++) {
-      i1->cat=i->cat; i1->trans=i->trans;
-      i1->mathness=i->mathness;
-    }
+    for (i=j+k, o=j+1; i<=lo_ptr; i++, o++)
+      *o=*i;@^system dependencies@>
     lo_ptr=lo_ptr-k+1;
   }
   pp=(pp+d<scrap_base? scrap_base: pp+d);
@@ -3277,10 +3275,8 @@
 
 @<Make sure the entries...@>=
 if (lo_ptr<pp+3) {
-  while (hi_ptr<=scrap_ptr && lo_ptr!=pp+3) {
-    (++lo_ptr)->cat=hi_ptr->cat; lo_ptr->mathness=hi_ptr->mathness;
-    lo_ptr->trans=(hi_ptr++)->trans;
-  }
+  while (hi_ptr<=scrap_ptr && lo_ptr!=pp+3)
+    *(++lo_ptr)=*(hi_ptr++);@^system dependencies@>
   for (i=lo_ptr+1;i<=pp+3;i++) i->cat=0;
 }