Explorar o código

* Apply path in Mantis report 8103 to fix ansi2wide issue

git-svn-id: trunk@5916 -
daniel %!s(int64=18) %!d(string=hai) anos
pai
achega
a6a0745436
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      rtl/unix/cwstring.pp

+ 2 - 1
rtl/unix/cwstring.pp

@@ -219,11 +219,12 @@ procedure Ansi2WideMove(source:pchar;var dest:widestring;len:SizeInt);
             begin
               { skip and set to '?' }
               inc(srcpos);
+              dec(len);
               pwidechar(destpos)^:='?';
               inc(destpos,2);
               dec(outleft,2);
               { reset }
-              iconv(iconv_wide2ansi,@mynil,@my0,@mynil,@my0);
+              iconv(iconv_ansi2wide,@mynil,@my0,@mynil,@my0);
             end;
           ESysE2BIG:
             begin