diff options
Diffstat (limited to 'Build/source/texk/web2c/dvicopy.ch')
| -rw-r--r-- | Build/source/texk/web2c/dvicopy.ch | 9 |
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 |