summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vftovp.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-20 11:01:30 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-01-20 11:01:30 +0000
commit7b16d3b1d6a8cb9b23b012e4527ee5d9e061aa04 (patch)
treec3765a705ff191a5f3ae7e367c4c7bb73ef2d083 /Build/source/texk/web2c/vftovp.ch
parent822e7e612de859b23a6aa03e2ce575696afd84c6 (diff)
TeX & Co: New versions from Knuth (TeX tuneup of 2014)
git-svn-id: svn://tug.org/texlive/trunk@32727 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
-rw-r--r--Build/source/texk/web2c/vftovp.ch35
1 files changed, 2 insertions, 33 deletions
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index 273b6337995..3c94bf4d57b 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -11,10 +11,10 @@
@z
@x [1] Define my_name
-@d banner=='This is VFtoVP, Version 1.3' {printed when the program starts}
+@d banner=='This is VFtoVP, Version 1.4' {printed when the program starts}
@y
@d my_name=='vftovp'
-@d banner=='This is VFtoVP, Version 1.3' {printed when the program starts}
+@d banner=='This is VFtoVP, Version 1.4' {printed when the program starts}
@z
@x [2] All terminal output goes to stderr, so we can dump the vpl on stdout.
@@ -163,22 +163,6 @@ tfm_file_array
:= cast_to_byte_pointer (xrealloc (tfm_file_array, 4 * lf - 1 + 1002));
@z
-% [25] Both nl and lig_size are in words, so the multiplication is not
-% needed. Found by "C.M. Connelly" <c@eskimo.com> and
-% Melissa O'Neill <oneill@cs.sfu.ca>
-@x
-if nl>4*lig_size then
-@y
-if nl>lig_size then
-@z
-
-% [25] Add missing space in error message.
-@x
- bc:1,'..',ec:1,'is illegal!');
-@y
- bc:1,'..',ec:1,' is illegal!');
-@z
-
% [31] Ditto for vf_abort.
@x
@d vf_abort(#)==
@@ -499,21 +483,6 @@ sixty_four_cases(set_char_0),sixty_four_cases(set_char_0+64),
begin if o>=set1 then
@z
-@x [129] Bugfix.
- if o>=put1 then c:=get_bytes(o-put1+1,false)
- else c:=get_bytes(o-set1+1,false)
- else c:=o;
- if f=font_ptr then
-@y
- if o>=put1 then k:=get_bytes(o-put1+1,false)
- else k:=get_bytes(o-set1+1,false)
- else k:=o;
- c:=k;
- if (k<0)or(k>255) then
- bad_vf('Character ',k:1,' is out of range and will be ignored')
- else if f=font_ptr then
-@z
-
@x [129] End of block of code moved outside the case statement.
end;
@y