[WEB] Make TWILL handle 'sixteen_bits'.

For whatever reason, TWILL 2.9/4.5 could not handle the 'sixteen_bits'
type used all over the place. (Well, apart from WEB itself, only in
dvicopy.web and in mft.web!)

git-svn-id: svn://tug.org/texlive/trunk@68670 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 11 insertions, 7 deletions

diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 19286859359..86b069140df 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,7 @@
+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 17c02718758..7fb50198a52 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)>=32768 then def_type:=dtype_macro
-        else if def_name<0 then def_name:=def_name+65536;
+        if abs(def_name)>=65536 then def_type:=dtype_macro
+        else if def_name<0 then def_name:=def_name+131072;
         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)>=32768 then goto not_found;
-  if def_subname<0 then def_subname:=def_subname+65536;
+  if abs(def_subname)>=65536 then goto not_found;
+  if def_subname<0 then def_subname:=def_subname+131072;
   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)>=32768 then goto not_found;
-if def_name<0 then def_name:=def_name+65536;
+if abs(def_name)>=65536 then goto not_found;
+if def_name<0 then def_name:=def_name+131072;
 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:=65536-a;
+  begin out("-"); a:=131072-a;
   end;
 repeat dig[k]:=a mod 10; a:=a div 10; incr(k);
 until a=0;