texlive[68672] Build/source/texk/web2c/weav-twill.ch: Revert "[WEB]

[commits+ascherer at tug.org]

Revision: 68672
          https://tug.org/svn/texlive?view=revision&revision=68672
Author:   ascherer
Date:     2023-10-27 15:08:18 +0200 (Fri, 27 Oct 2023)
Log Message:
-----------
Revert "[WEB] Arithmetic abnormality."

This reverts commit 1e5d0c41d00120ca14a3f130cf7712bc0dacf151.

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

Modified: trunk/Build/source/texk/web2c/weav-twill.ch
===================================================================
--- trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-27 10:48:55 UTC (rev 68671)
+++ trunk/Build/source/texk/web2c/weav-twill.ch	2023-10-27 13:08:18 UTC (rev 68672)
@@ -940,7 +940,7 @@
 procedure out_const(@!n:sixteen_bits);
 var a,k:integer;
 begin a:=n; k:=0;
-if a>=65536 then
+if a>=32768 then
   begin out("-"); a:=131072-a;
   end;
 repeat dig[k]:=a mod 10; a:=a div 10; incr(k);