From 78d7e503d0da809d8ae32b23c5f3a990d1fa71d0 Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Fri, 27 Oct 2023 13:08:18 +0000 Subject: Revert "[WEB] Arithmetic abnormality." This reverts commit 1e5d0c41d00120ca14a3f130cf7712bc0dacf151. git-svn-id: svn://tug.org/texlive/trunk@68672 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/weav-twill.ch | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Build/source/texk') diff --git a/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch index f43a03bf660..7fb50198a52 100644 --- a/Build/source/texk/web2c/weav-twill.ch +++ b/Build/source/texk/web2c/weav-twill.ch @@ -940,7 +940,7 @@ exit:end; 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); -- cgit v1.2.3