From 10fff1d41db2eeba3177e76e3db321452ba08b63 Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Wed, 9 Aug 2023 12:46:32 +0000
Subject: [PATCH] [CTWILL] Compare sections 248 and 296.

That's CWEAVE section 231.

git-svn-id: svn://tug.org/texlive/trunk/Build/source@67859 c570f23f-e606-0410-a88d-b1316a301751
---
 texk/web2c/cwebdir/ctwill-w2c.ch | 5 +++--
 texk/web2c/cwebdir/cweave.w      | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/texk/web2c/cwebdir/ctwill-w2c.ch b/texk/web2c/cwebdir/ctwill-w2c.ch
index 8003988190..12b5f771f2 100644
--- a/texk/web2c/cwebdir/ctwill-w2c.ch
+++ b/texk/web2c/cwebdir/ctwill-w2c.ch
@@ -1530,7 +1530,6 @@ new_meaning(
   name_pointer p)
 {
   struct perm_meaning *q=get_meaning(p);
-  ms_mode=false;
   if (q->stamp!=section_count) {
     if (*(ministring_ptr-1)==' ') ministring_ptr--;
     if (ministring_ptr>=ministring_buf_end)
@@ -1556,7 +1555,8 @@ new_meaning(
     name_pointer p=id_lookup(first,loc-1,normal);
     sixteen_bits t=title_lookup();
     if (*(loc-1)=='}')
-      while (xisdigit(*loc)) n=10*n+(*loc++)-'0';
+      while (xisdigit(*loc))@^system dependencies@>
+        if (n < INT_MAX / 10) n=10*n+(*loc++)-'0';
     if (*loc++!=' ')
       err_print(_("! Location in meaning should be followed by space"));
     else @<Digest the meaning of |p|, |t|, |n|@>@;
@@ -1782,6 +1782,7 @@ if ((aux_file=fopen(aux_file_name,"wb"))==NULL)
 @q Section 31->293. @>
 @ @<Write the new meaning to the \.{.aux} file@>=
 {@+int n=q->perm.prog_no;
+  ms_mode=false;@/
   fprintf(aux_file,"@@$%.*s %.*s",@|
     (int)length(p),p->byte_start,@|
     (int)length(title_code[n]),title_code[n]->byte_start);
diff --git a/texk/web2c/cwebdir/cweave.w b/texk/web2c/cwebdir/cweave.w
index 4cd934c1e1..0f20e0699c 100644
--- a/texk/web2c/cwebdir/cweave.w
+++ b/texk/web2c/cwebdir/cweave.w
@@ -4241,8 +4241,8 @@ else {
     loc++;
   }
   else {
-    for (sec_depth=0; xisdigit(*loc);loc++)@^system dependencies@>
-      if (sec_depth < INT_MAX / 10) sec_depth = sec_depth*10 + (*loc) -'0';
+    sec_depth=0; while (xisdigit(*loc))@^system dependencies@>
+      if (sec_depth < INT_MAX / 10) sec_depth = sec_depth*10 + (*loc++) -'0';
   }
   while (*loc == ' ') loc++; /* remove spaces before group title */
   group_found=true;