paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Apply path in Mantis report 8103 to fix ansi2wide issue

Browse Source 
git-svn-id: trunk@5916 -
This commit is contained in:
daniel 2007-01-12 10:35:20 +00:00
parent 2e6d438599
commit a6a0745436
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/cwstring.pp
View File

@ -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