texlive[68673] Build/source/texk/web2c: Revert "[WEB] Make TWILL

[commits+ascherer at tug.org]

Revision: 68673
          https://tug.org/svn/texlive?view=revision&revision=68673
Author:   ascherer
Date:     2023-10-27 15:08:20 +0200 (Fri, 27 Oct 2023)
Log Message:
-----------
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.

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-27 13:08:18 UTC (rev 68672)
+++ trunk/Build/source/texk/web2c/ChangeLog	2023-10-27 13:08:20 UTC (rev 68673)
@@ -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.

Modified: trunk/Build/source/texk/web2c/weav-twill.ch
===================================================================
--- trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-27 13:08:18 UTC (rev 68672)
+++ trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-27 13:08:20 UTC (rev 68673)
@@ -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)>=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 @@
   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 @@
 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 @@
 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;