web2c/pdftexdir: avoid to crash for unusual virtual fonts which lead to font size >= 2048pt

git-svn-id: svn://tug.org/texlive/trunk@39428 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 7 insertions, 0 deletions

diff --git a/Build/source/texk/web2c/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog
index 0a1174b4c35..c31c62b7dcd 100644
--- a/Build/source/texk/web2c/pdftexdir/ChangeLog
+++ b/Build/source/texk/web2c/pdftexdir/ChangeLog
@@ -1,3 +1,8 @@
+2016-01-19  Akira Kakuto  <kakuto@fuk.kindai.ac.jp>
+
+	* pdftex.web: Avoid to crash for unusual virtual fonts which lead to
+	font size >= 2048pt.
+
 2015-08-27  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* am/libpdftex.am, am/pdftosrc.am: Enable g++ warnings.
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web
index 6832013a84e..420900b8507 100644
--- a/Build/source/texk/web2c/pdftexdir/pdftex.web
+++ b/Build/source/texk/web2c/pdftexdir/pdftex.web
@@ -13174,6 +13174,7 @@ alpha:integer;
 beta:1..16;
 begin
   alpha:=16;
+  if z>=@'1000000000 then pdf_error("font", "size is too large");
   while z>=@'40000000 do
     begin z:=z div 2; alpha:=alpha+alpha;
   end;
@@ -13207,6 +13208,7 @@ end
 
 @ @<Replace |z|...@>=
 begin alpha:=16;
+if z>=@'1000000000 then pdf_error("font", "size is too large");
 while z>=@'40000000 do
   begin z:=z div 2; alpha:=alpha+alpha;
   end;