summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/dvicopy.ch
diff options
context:
space:
mode:
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