summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2023-10-27 13:08:20 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2023-10-27 13:08:20 +0000
commita6b2addaf8e1b2a4c0f0abcb91ed28868a59d6db (patch)
tree1f7cc6c6b747443d8dbf3a6b14c44f998e395686 /Build/source/texk/web2c
parent78d7e503d0da809d8ae32b23c5f3a990d1fa71d0 (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/ChangeLog4
-rw-r--r--Build/source/texk/web2c/weav-twill.ch14
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;