diff options
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/source/texk/web2c/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/dvicopy.ch | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 89f6bcf9552..c982ba3d359 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,8 @@ +2015-11-27 Akira Kakuto <kakuto@fuk.kindai.ac.jp> + + * dvicopy.ch: Avoid to crash and abort with an error message when + the character size is larger than 1024 pt. + 2015-09-22 Peter Breitenlohner <peb@mppmu.mpg.de> * triptest.test: Also check tripos.tex. 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 |