texlive[68670] Build/source/texk/web2c: [WEB] Make TWILL handle

[commits+ascherer at tug.org]

Revision: 68670
          https://tug.org/svn/texlive?view=revision&revision=68670
Author:   ascherer
Date:     2023-10-27 12:38:29 +0200 (Fri, 27 Oct 2023)
Log Message:
-----------
[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!)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/weav-twill.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2023-10-26 23:44:03 UTC (rev 68669)
+++ trunk/Build/source/texk/web2c/ChangeLog	2023-10-27 10:38:29 UTC (rev 68670)
@@ -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.

Modified: trunk/Build/source/texk/web2c/weav-twill.ch
===================================================================
--- trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-26 23:44:03 UTC (rev 68669)
+++ trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-27 10:38:29 UTC (rev 68670)
@@ -414,8 +414,8 @@
         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 @@
   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 @@
 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 @@
 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;