summaryrefslogtreecommitdiff
path: root/Build/source
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2023-10-21 12:11:04 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2023-10-21 12:11:04 +0000
commit39330eeb627b501c65b502008ed2082ce5b9f11b (patch)
tree530c77313aee5d21f817bff1a10354123793e874 /Build/source
parent2afe7c551361a16d15d5e07ac4a531ff37cf2071 (diff)
[WEB] 'current_option' runs from '0..n_options'.
See almost any other WEB change file. git-svn-id: svn://tug.org/texlive/trunk@68606 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r--Build/source/texk/web2c/ChangeLog7
-rw-r--r--Build/source/texk/web2c/tangle.ch2
-rw-r--r--Build/source/texk/web2c/tangleboot.pin2
-rw-r--r--Build/source/texk/web2c/weav-twill.ch4
-rw-r--r--Build/source/texk/web2c/weave.ch2
5 files changed, 12 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 055f2f7f255..b4947838b48 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/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/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch
index 644373e9924..c3a9de3f8e9 100644
--- a/Build/source/texk/web2c/tangle.ch
+++ b/Build/source/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/Build/source/texk/web2c/tangleboot.pin b/Build/source/texk/web2c/tangleboot.pin
index e13c47fcdb0..ed0acc4d977 100644
--- a/Build/source/texk/web2c/tangleboot.pin
+++ b/Build/source/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/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch
index 06ef08f1dc5..72e8b801a7f 100644
--- a/Build/source/texk/web2c/weav-twill.ch
+++ b/Build/source/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/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch
index 1458f584071..57fa2eb80dc 100644
--- a/Build/source/texk/web2c/weave.ch
+++ b/Build/source/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;