Browse Source

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

Michaël Van Canneyt 1 year ago
parent
commit
25c75b1784
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/unix/cwstring.pp

+ 2 - 1
rtl/unix/cwstring.pp

@@ -285,7 +285,8 @@ begin
 {$endif}
   toencoding:=iconvname;
   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_ansi2wide:=iconv_open(unicode_encoding2,PAnsiChar(@iconvname[1]));
   if assigned(iconvctl) and