Explorar o código

* call unicodestring version of ExpandUNCFileName from ansistring version
instead of infinitely recursing into the ansistring version

git-svn-id: branches/cpstrrtl@25044 -

Jonas Maebe %!s(int64=12) %!d(string=hai) anos
pai
achega
8368f7dba5
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/win/sysutils.pp

+ 1 - 1
rtl/win/sysutils.pp

@@ -184,7 +184,7 @@ var
   u: unicodestring;
 begin
   { prevent data loss due to unsupported characters in ansi code page }
-  u:=ExpandUNCFileName(filename);
+  u:=ExpandUNCFileName(unicodestring(filename));
   widestringmanager.Unicode2AnsiMoveProc(punicodechar(u),result,DefaultRTLFileSystemCodePage,length(u));
 end;