Browse Source

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

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

Jonas Maebe 12 years ago
parent
commit
8368f7dba5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/win/sysutils.pp

+ 1 - 1
rtl/win/sysutils.pp

@@ -184,7 +184,7 @@ var
   u: unicodestring;
   u: unicodestring;
 begin
 begin
   { prevent data loss due to unsupported characters in ansi code page }
   { 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));
   widestringmanager.Unicode2AnsiMoveProc(punicodechar(u),result,DefaultRTLFileSystemCodePage,length(u));
 end;
 end;