summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/ptftopl.ch1
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;