[WEB] 'current_option' runs from '0..n_options'.

See almost any other WEB change file. git-svn-id: svn://tug.org/texlive/trunk/Build/source@68606 c570f23f-e606-0410-a88d-b1316a301751
TeX-Live · Oct 21, 2023 · 049beb0 · 049beb0
1 parent 02eb356
commit 049beb0
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 5 deletions.
diff --git a/texk/web2c/ChangeLog b/texk/web2c/ChangeLog
@@ -1,3 +1,10 @@
+2023-10-21  Andreas Scherer  <https://ascherer.github.io>
+
+	* tangleboot.pin,
+	* tangle.ch,
+	* weav-twill.ch,
+	* weave.ch: 'current_option' runs from '0..n_options'.
+
 2023-10-13  Andreas Scherer  <https://ascherer.github.io>
 
 	* help.h,

diff --git a/texk/web2c/tangle.ch b/texk/web2c/tangle.ch
@@ -681,7 +681,7 @@ Parse a Unix-style command line.
 
 @<Define |parse_arguments|@> =
 procedure parse_arguments;
-const n_options = 10; {Pascal won't count array lengths for us.}
+const n_options = 9; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;
     @!getopt_return_val: integer;
     @!option_index: c_int_type;

diff --git a/texk/web2c/tangleboot.pin b/texk/web2c/tangleboot.pin
@@ -61,7 +61,7 @@ end{:32}else{33:}begin writeln(stdout,'. (l.',line:1,')');
 for j:=1 to outptr do write(stdout,xchr[outbuf[j-1]]);
 write(stdout,'... ');end{:33};fflush(stdout);history:=2;
 {debugskipped:=debugcycle;debughelp;}end;
-{:31}{188:}procedure parsearguments;const noptions=10;
+{:31}{188:}procedure parsearguments;const noptions=9;
 var longoptions:array[0..noptions]of getoptstruct;
 getoptreturnval:integer;optionindex:cinttype;currentoption:0..noptions;
 len:integer;begin{190:}currentoption:=0;

diff --git a/texk/web2c/weav-twill.ch b/texk/web2c/weav-twill.ch
@@ -692,9 +692,9 @@ var lhs:integer;
 Section 264.
 
 @x WEAVE.CH
-const n_options = 5; {Pascal won't count array lengths for us.}
-@y
 const n_options = 4; {Pascal won't count array lengths for us.}
+@y
+const n_options = 3; {Pascal won't count array lengths for us.}
 @z
 
 @x WEAVE.CH

diff --git a/texk/web2c/weave.ch b/texk/web2c/weave.ch
@@ -563,7 +563,7 @@ Parse a Unix-style command line.
 
 @<Define |parse_arguments|@> =
 procedure parse_arguments;
-const n_options = 5; {Pascal won't count array lengths for us.}
+const n_options = 4; {Pascal won't count array lengths for us.}
 var @!long_options: array[0..n_options] of getopt_struct;
     @!getopt_return_val: integer;
     @!option_index: c_int_type;