From 68267fad21f7506f4613a9f7308e3a7c46d8f8e6 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Fri, 22 Jan 2010 12:20:35 +0000 Subject: constify various filename strings git-svn-id: svn://tug.org/texlive/trunk@16799 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/dvitype.ch | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'Build/source/texk/web2c/dvitype.ch') 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 @; -- cgit v1.2.3