summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/dvitype.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/dvitype.ch')
-rw-r--r--Build/source/texk/web2c/dvitype.ch7
1 files changed, 3 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/dvitype.ch b/Build/source/texk/web2c/dvitype.ch
index 1854d8919ec..44c48a05c39 100644
--- a/Build/source/texk/web2c/dvitype.ch
+++ b/Build/source/texk/web2c/dvitype.ch
@@ -114,8 +114,7 @@ end;
@y
@p procedure open_dvi_file; {prepares to read packed bytes in |dvi_file|}
begin
- cur_name := extend_filename (cmdline (optind), 'dvi');
- resetbin (dvi_file, cur_name);
+ resetbin (dvi_file, extend_filename (cmdline (optind), 'dvi'));
cur_loc := 0;
end;
@#
@@ -547,11 +546,11 @@ begin
print_version_and_exit (banner, nil, 'D.E. Knuth', nil);
end else if argument_is ('output-level') then begin
- out_mode := optarg[0] - '0';
- if (out_mode < 0) or (out_mode > 4) or (optarg[1] <> 0) then begin
+ if (optarg[0] < '0') or (optarg[0] > '4') or (optarg[1] <> 0) then begin
write_ln (stderr, 'Value for --output-level must be >= 0 and <= 4.');
uexit (1);
end;
+ out_mode := optarg[0] - '0';
end else if argument_is ('page-start') then begin
@<Determine the desired |start_count| values from |optarg|@>;