From 7dc3e358c70bc59f1aee38127d064b432ede48d7 Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Wed, 9 Aug 2023 14:19:34 +0000 Subject: [PATCH] [CWEB] The loops must terminate. Read all digits from user input. git-svn-id: svn://tug.org/texlive/trunk/Build/source@67860 c570f23f-e606-0410-a88d-b1316a301751 --- texk/web2c/cwebdir/ctwill-w2c.ch | 4 ++-- texk/web2c/cwebdir/cweave.w | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/texk/web2c/cwebdir/ctwill-w2c.ch b/texk/web2c/cwebdir/ctwill-w2c.ch index 12b5f771f2..52a199f563 100644 --- a/texk/web2c/cwebdir/ctwill-w2c.ch +++ b/texk/web2c/cwebdir/ctwill-w2c.ch @@ -1555,8 +1555,8 @@ new_meaning( name_pointer p=id_lookup(first,loc-1,normal); sixteen_bits t=title_lookup(); if (*(loc-1)=='}') - while (xisdigit(*loc))@^system dependencies@> - if (n < INT_MAX / 10) n=10*n+(*loc++)-'0'; + for (;xisdigit(*loc);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 @@; diff --git a/texk/web2c/cwebdir/cweave.w b/texk/web2c/cwebdir/cweave.w index 0f20e0699c..4cd934c1e1 100644 --- a/texk/web2c/cwebdir/cweave.w +++ b/texk/web2c/cwebdir/cweave.w @@ -4241,8 +4241,8 @@ else { loc++; } else { - sec_depth=0; while (xisdigit(*loc))@^system dependencies@> - if (sec_depth < INT_MAX / 10) sec_depth = sec_depth*10 + (*loc++) -'0'; + for (sec_depth=0; xisdigit(*loc);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;