texlive[45250] Build/source/texk/web2c/ptexdir: ptftopl.ch: avoid

[commits+hironobu at tug.org]

Revision: 45250
          http://tug.org/svn/texlive?view=revision&revision=45250
Author:   hironobu
Date:     2017-09-09 23:54:31 +0200 (Sat, 09 Sep 2017)
Log Message:
-----------
ptftopl.ch: avoid negative allocation
http://tug.org/pipermail/tex-k/2017-September/002811.html

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptftopl.ch

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-09-09 17:17:10 UTC (rev 45249)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2017-09-09 21:54:31 UTC (rev 45250)
@@ -1,3 +1,7 @@
+2017-09-09  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* ptftopl.ch: Check for fifth byte (= upper byte of lf) of input JFM.
+
 2017-09-07  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* ptex-base.ch: More restrictions on direction change commands.

Modified: trunk/Build/source/texk/web2c/ptexdir/ptftopl.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptftopl.ch	2017-09-09 17:17:10 UTC (rev 45249)
+++ trunk/Build/source/texk/web2c/ptexdir/ptftopl.ch	2017-09-09 21:54:31 UTC (rev 45250)
@@ -92,6 +92,7 @@
   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;