Просмотр исходного кода

* Ensure null-terminated strings. Patch by modersohn, fixes issue #40499

Michaël Van Canneyt 1 год назад
Родитель
Сommit
25c75b1784
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      rtl/unix/cwstring.pp

+ 2 - 1
rtl/unix/cwstring.pp

@@ -285,7 +285,8 @@ begin
 {$endif}
 {$endif}
   toencoding:=iconvname;
   toencoding:=iconvname;
   if not assigned(iconvctl) then
   if not assigned(iconvctl) then
-    toencoding:=toencoding+TransLitName;
+    toencoding:=toencoding+TransLitName+#0;
+  iconvname:=iconvname+#0;
   iconv_wide2ansi:=iconv_open(PAnsiChar(@toencoding[1]),unicode_encoding2);
   iconv_wide2ansi:=iconv_open(PAnsiChar(@toencoding[1]),unicode_encoding2);
   iconv_ansi2wide:=iconv_open(unicode_encoding2,PAnsiChar(@iconvname[1]));
   iconv_ansi2wide:=iconv_open(unicode_encoding2,PAnsiChar(@iconvname[1]));
   if assigned(iconvctl) and
   if assigned(iconvctl) and