diff options
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptftopl.ch | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 8a34f3c83ae..b5e7b63c6ba 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2017-09-09 Hironobu Yamashita <h.y.acetaminophen@gmail.com> + + * ptftopl.ch: Check for fifth byte (= upper byte of lf) of input JFM. + 2017-09-07 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * ptex-base.ch: More restrictions on direction change commands. diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch index e28f184e3bd..c9c08c0588a 100644 --- a/Build/source/texk/web2c/ptexdir/ptftopl.ch +++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch @@ -92,6 +92,7 @@ else if eof(tfm_file) then abort('The input file is only four bytes long!'); read(tfm_file,tfm[4]); if eof(tfm_file) then abort('The input file is only five bytes long!'); + if tfm[4]>127 then abort('The fifth byte of the input file exceeds 127!'); read(tfm_file,tfm[5]); lf:=tfm[4]*@'400+tfm[5]; tmp_ptr:=6; end; |