summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/dvicopy.ch
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-11-27 22:59:09 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-11-27 22:59:09 +0000
commit79e04472fb9e3904f137ddb61f70ff45fd32d1e5 (patch)
tree1e54235dce07cb292030b36105667c275d82dd57 /Build/source/texk/web2c/dvicopy.ch
parent6ddc609a835fede2bb1fc9636a5d0b5daf6e8c29 (diff)
web2c/dvicopy.ch: Avoid to crash and abort with an error message when the character size is larger than 1024 pt.
git-svn-id: svn://tug.org/texlive/trunk@38961 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/dvicopy.ch')
-rw-r--r--Build/source/texk/web2c/dvicopy.ch9
1 files changed, 9 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/dvicopy.ch b/Build/source/texk/web2c/dvicopy.ch
index d0c1f9a8b3e..4af1dadd811 100644
--- a/Build/source/texk/web2c/dvicopy.ch
+++ b/Build/source/texk/web2c/dvicopy.ch
@@ -289,6 +289,15 @@ if full_name then begin
end else
@z
+@x [104] Compute alpha and beta.
+alpha:=16;
+while z>=@'40000000 do
+@y
+alpha:=16;
+if z>@'400000000 then abort('Character size is too large!');
+while z>=@'40000000 do
+@z
+
@x [108] Declare full_name.
@!dvi_loc:int_32; {where we are about to look, in |dvi_file|}
@y