diff options
Diffstat (limited to 'Build/source/texk/web2c/gftodvi.ch')
-rw-r--r-- | Build/source/texk/web2c/gftodvi.ch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch index 623350021f0..01f689a02c8 100644 --- a/Build/source/texk/web2c/gftodvi.ch +++ b/Build/source/texk/web2c/gftodvi.ch @@ -435,14 +435,14 @@ some input is present; then it opens the output file. @p procedure start_gf; label done; -var arg_buffer: w2c_u_string; +var arg_buffer: c_string; arg_buf_ptr: integer; begin arg_buffer := cmdline (optind); arg_buf_ptr := 0; while (line_length < terminal_line_length) and (arg_buffer[arg_buf_ptr] <> 0) do begin - buffer[line_length] := xord[arg_buffer[arg_buf_ptr]]; + buffer[line_length] := xord[ucharcast(arg_buffer[arg_buf_ptr])]; incr(line_length); incr(arg_buf_ptr); end; |