summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/xetexdir/xetex.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/xetexdir/xetex.ch')
-rw-r--r--Build/source/texk/web2c/xetexdir/xetex.ch8
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch
index 83d0f13a79e..0139d24e8bb 100644
--- a/Build/source/texk/web2c/xetexdir/xetex.ch
+++ b/Build/source/texk/web2c/xetexdir/xetex.ch
@@ -3201,14 +3201,14 @@ for j:=str_start_macro(e) to str_start_macro(e+1)-1 do append_to_name(so(str_poo
@x
name_of_file := xmalloc_array (ASCII_code, n+(b-a+1)+format_ext_length+1);
-for j:=1 to n do append_to_name(xord[TEX_format_default[j]]);
+for j:=1 to n do append_to_name(xord[ucharcast(TEX_format_default[j])]);
@y
name_of_file := xmalloc_array (UTF8_code, n+(b-a+1)+format_ext_length+1);
for j:=1 to n do append_to_name(TEX_format_default[j]);
@z
@x
- append_to_name(xord[TEX_format_default[j]]);
+ append_to_name(xord[ucharcast(TEX_format_default[j])]);
@y
append_to_name(TEX_format_default[j]);
@z
@@ -3428,7 +3428,7 @@ pack_file_name(nom,aire,cur_ext);
if XeTeX_tracing_fonts_state>0 then begin
begin_diagnostic;
print_nl("Requested font """);
- print_c_string(name_of_file+1);
+ print_c_string(stringcast(name_of_file+1));
print('"');
if s < 0 then begin
print(" scaled ");
@@ -3477,7 +3477,7 @@ if XeTeX_tracing_fonts_state>0 then begin
end else if file_opened then begin
begin_diagnostic;
print_nl(" -> ");
- print_c_string(name_of_file+1);
+ print_c_string(stringcast(name_of_file+1));
end_diagnostic(false);
end;
end;