summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ovf2ovp.web
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/omegaware/ovf2ovp.web')
-rw-r--r--Build/source/texk/web2c/omegaware/ovf2ovp.web7
1 files changed, 6 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.web b/Build/source/texk/web2c/omegaware/ovf2ovp.web
index 0c28b572ab2..a85606ca487 100644
--- a/Build/source/texk/web2c/omegaware/ovf2ovp.web
+++ b/Build/source/texk/web2c/omegaware/ovf2ovp.web
@@ -9,6 +9,9 @@
% Version 1 was implemented in December 1989.
% Version 1.1 fixed problems of strict Pascal (April 1990).
% Version 1.2 fixed various bugs found by Peter Breitenlohner (September 1990).
+% Version 1.3 made out_as_fix tell the truth in overflow cases (Dec 2002).
+% Version 1.4 reports out-of-range characters (Breitenlohner, Jan 2014),
+% and tests nl>lig_size not 4*lig_size (C. M. Connelly, Melissa O'Neill).
% Version 1.0 of OVF2OVP (Month Year).
% Version 1.11 (February 2000).
@@ -2850,8 +2853,10 @@ fact that the design size has already been output.
@p procedure out_as_fix(@!x:integer);
var @!k:1..3;
begin if abs(x)>=@'100000000 then
- bad_vf('Oversize dimension has been reset to zero.');
+ begin bad_vf('Oversize dimension has been reset to zero.');
@.Oversize dimension...@>
+ x:=0;
+ end;
if x>=0 then tfm[design_size]:=0
else begin tfm[design_size]:=255; x:=x+@'100000000;
end;