From 212b14a46bd38978adb09a02b98bbc13e8fc78e2 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Wed, 19 Oct 2011 01:06:04 +0000
Subject: [PATCH] rtl: set string codepage for all cases in fpc_AnsiStr_Concat

git-svn-id: trunk@19509 -
---
 rtl/inc/astrings.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index 974cca47a6..82fb61a401 100644
--- a/rtl/inc/astrings.inc
+++ b/rtl/inc/astrings.inc
@@ -258,10 +258,10 @@ begin
     begin
       DestS:='';
       SetLength(DestS,Size+Location);
-      SetCodePage(DestS,DestCP,false);
       Move(Pointer(S1)^,Pointer(DestS)^,Location);
       Move(Pointer(S2)^,(Pointer(DestS)+Location)^,Size+1);
     end;
+  SetCodePage(DestS,DestCP,false);
 end;