diff options
Diffstat (limited to 'Build/source/texk/web2c/omegaware/ovf2ovp.web')
| -rw-r--r-- | Build/source/texk/web2c/omegaware/ovf2ovp.web | 7 |
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; |