diff options
Diffstat (limited to 'Build/source/texk/web2c/tftopl.ch')
| -rw-r--r-- | Build/source/texk/web2c/tftopl.ch | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch index 8c1644962e9..2d9b1945177 100644 --- a/Build/source/texk/web2c/tftopl.ch +++ b/Build/source/texk/web2c/tftopl.ch @@ -24,10 +24,10 @@ @z @x [1] Define my_name -@d banner=='This is TFtoPL, Version 3.2' {printed when the program starts} +@d banner=='This is TFtoPL, Version 3.3' {printed when the program starts} @y @d my_name=='tftopl' -@d banner=='This is TFtoPL, Version 3.2' {printed when the program starts} +@d banner=='This is TFtoPL, Version 3.3' {printed when the program starts} @z @x [2] Print all terminal output on stderr, so the pl can be sent to stdout. @@ -142,22 +142,6 @@ tfm_file_array := cast_to_byte_pointer (xrealloc (tfm_file_array, 4 * lf - 1 + 1002)); @z -% [21] 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 - -% [21] Add missing space in error message. -@x - bc:1,'..',ec:1,'is illegal!'); -@y - bc:1,'..',ec:1,' is illegal!'); -@z - % [27, 28] Change strings to C char pointers. The Pascal strings are % indexed starting at 1, so we pad with a blank. @x |