texlive[68606] Build/source/texk/web2c: [WEB] 'current_option' runs

[commits+ascherer at tug.org]

Revision: 68606
          https://tug.org/svn/texlive?view=revision&revision=68606
Author:   ascherer
Date:     2023-10-21 14:11:04 +0200 (Sat, 21 Oct 2023)
Log Message:
-----------
[WEB] 'current_option' runs from '0..n_options'.

See almost any other WEB change file.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/tangle.ch
    trunk/Build/source/texk/web2c/tangleboot.pin
    trunk/Build/source/texk/web2c/weav-twill.ch
    trunk/Build/source/texk/web2c/weave.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2023-10-21 01:05:58 UTC (rev 68605)
+++ trunk/Build/source/texk/web2c/ChangeLog	2023-10-21 12:11:04 UTC (rev 68606)
@@ -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,

Modified: trunk/Build/source/texk/web2c/tangle.ch
===================================================================
--- trunk/Build/source/texk/web2c/tangle.ch	2023-10-21 01:05:58 UTC (rev 68605)
+++ trunk/Build/source/texk/web2c/tangle.ch	2023-10-21 12:11:04 UTC (rev 68606)
@@ -681,7 +681,7 @@
 
 @<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;

Modified: trunk/Build/source/texk/web2c/tangleboot.pin
===================================================================
--- trunk/Build/source/texk/web2c/tangleboot.pin	2023-10-21 01:05:58 UTC (rev 68605)
+++ trunk/Build/source/texk/web2c/tangleboot.pin	2023-10-21 12:11:04 UTC (rev 68606)
@@ -61,7 +61,7 @@
 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;

Modified: trunk/Build/source/texk/web2c/weav-twill.ch
===================================================================
--- trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-21 01:05:58 UTC (rev 68605)
+++ trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-21 12:11:04 UTC (rev 68606)
@@ -692,9 +692,9 @@
 Section 264.
 
 @x WEAVE.CH
-const n_options = 5; {Pascal won't count array lengths for us.}
+const n_options = 4; {Pascal won't count array lengths for us.}
 @y
-const n_options = 4; {Pascal won't count array lengths for us.}
+const n_options = 3; {Pascal won't count array lengths for us.}
 @z
 
 @x WEAVE.CH

Modified: trunk/Build/source/texk/web2c/weave.ch
===================================================================
--- trunk/Build/source/texk/web2c/weave.ch	2023-10-21 01:05:58 UTC (rev 68605)
+++ trunk/Build/source/texk/web2c/weave.ch	2023-10-21 12:11:04 UTC (rev 68606)
@@ -563,7 +563,7 @@
 
 @<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;