texlive[68671] Build/source/texk/web2c/weav-twill.ch: [WEB]

[commits+ascherer at tug.org]

Revision: 68671
          https://tug.org/svn/texlive?view=revision&revision=68671
Author:   ascherer
Date:     2023-10-27 12:48:55 +0200 (Fri, 27 Oct 2023)
Log Message:
-----------
[WEB] Arithmetic abnormality.

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