diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-10-27 13:08:20 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-10-27 13:08:20 +0000 |
commit | a6b2addaf8e1b2a4c0f0abcb91ed28868a59d6db (patch) | |
tree | 1f7cc6c6b747443d8dbf3a6b14c44f998e395686 /Build/source/texk/web2c | |
parent | 78d7e503d0da809d8ae32b23c5f3a990d1fa71d0 (diff) |
Revert "[WEB] Make TWILL handle 'sixteen_bits'."
This reverts commit ff4772477dd6ae9589dcfe78e0011c9210d01b4b.
Now the parameter conversion in 'out_const' from 'n:sixteen_bits' to
'a:integer' (and later 'if a>=65536') breaks 'last_sign:-1..+1' in any
'\mini' index (in TANGLE.TEX).
Most likely, TANGLE.WEB never was formatted with TWILL. Better to
replace '\none' in TANGLE.TEX with '$0\to65535$' than to possibly break
other codes.
git-svn-id: svn://tug.org/texlive/trunk@68673 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r-- | Build/source/texk/web2c/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/weav-twill.ch | 14 |
2 files changed, 7 insertions, 11 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 86b069140df..19286859359 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,7 +1,3 @@ -2023-10-27 Andreas Scherer <https://ascherer.github.io> - - * weav-twill.ch: Make TWILL handle type 'sixteen_bits'. - 2023-10-25 Andreas Scherer <https://ascherer.github.io> * weave.ch: Fine print for command-line options. diff --git a/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch index 7fb50198a52..17c02718758 100644 --- a/Build/source/texk/web2c/weav-twill.ch +++ b/Build/source/texk/web2c/weav-twill.ch @@ -414,8 +414,8 @@ Section 115. def_val[lhs]:=scan_exp; def_name:=def_val[lhs]; def_type:=dtype_const; xref_switch:=def_flag; - if abs(def_name)>=65536 then def_type:=dtype_macro - else if def_name<0 then def_name:=def_name+131072; + if abs(def_name)>=32768 then def_type:=dtype_macro + else if def_name<0 then def_name:=def_name+65536; new_xref(lhs); end; end; @@ -819,8 +819,8 @@ if next_control=identifier then end; if start_of_num(next_control) then begin def_subname:=scan_exp; def_subtype:=dtype_colon_const_dots; - if abs(def_subname)>=65536 then goto not_found; - if def_subname<0 then def_subname:=def_subname+131072; + if abs(def_subname)>=32768 then goto not_found; + if def_subname<0 then def_subname:=def_subname+65536; goto found; end; goto not_found; @@ -850,8 +850,8 @@ begin def_name:=scan_exp; if next_control<>double_dot then if eq=1 then found_it(dtype_equal_bold; def_name:=const_name) else goto not_found; -if abs(def_name)>=65536 then goto not_found; -if def_name<0 then def_name:=def_name+131072; +if abs(def_name)>=32768 then goto not_found; +if def_name<0 then def_name:=def_name+65536; def_type:=dtype_colon_const_dots+eq; end @@ -941,7 +941,7 @@ procedure out_const(@!n:sixteen_bits); var a,k:integer; begin a:=n; k:=0; if a>=32768 then - begin out("-"); a:=131072-a; + begin out("-"); a:=65536-a; end; repeat dig[k]:=a mod 10; a:=a div 10; incr(k); until a=0; |