diff options
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
| -rw-r--r-- | Build/source/texk/web2c/vftovp.ch | 35 |
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 |