diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-10-21 12:11:04 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-10-21 12:11:04 +0000 |
commit | 39330eeb627b501c65b502008ed2082ce5b9f11b (patch) | |
tree | 530c77313aee5d21f817bff1a10354123793e874 /Build/source | |
parent | 2afe7c551361a16d15d5e07ac4a531ff37cf2071 (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/ChangeLog | 7 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangle.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/tangleboot.pin | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/weav-twill.ch | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/weave.ch | 2 |
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; |