From d1b2a5f3620b465220ac8c899c1fbd79f06331e4 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 4 Jan 2014 15:05:42 +0000
Subject: [PATCH]   * changed the initial value DefaultFileSystemCodePage from
 CP_ACP to CP_UTF8:    o since we always use UTF-16 for OS file API calls,
 this will only affect      possible intermediate code page conversions inside
 RTL routines and hence      prevent potential data loss. This was already the
 same for NativeNT and      WinCE, which are in the same boat    o
 DefaultRTLFileSystemCodePage, which specifies the code page used to return   
   strings from single byte RTL routines, remains CP_ACP and hence nothing    
  will change as far as programs using the RTL are concerned

git-svn-id: trunk@26377 -
---
 rtl/win/syswin.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/win/syswin.inc b/rtl/win/syswin.inc
index 396d11dd88..c0750f7346 100644
--- a/rtl/win/syswin.inc
+++ b/rtl/win/syswin.inc
@@ -700,7 +700,7 @@ procedure InitWin32Widestrings;
 
     DefaultSystemCodePage:=GetACP;
     DefaultUnicodeCodePage:=CP_UTF16;
-    DefaultFileSystemCodePage:=DefaultSystemCodePage;
-    DefaultRTLFileSystemCodePage:=DefaultFileSystemCodePage;
+    DefaultFileSystemCodePage:=CP_UTF8;
+    DefaultRTLFileSystemCodePage:=DefaultSystemCodePage;
   end;