Browse Source

rtl: set string codepage for all cases in fpc_AnsiStr_Concat

git-svn-id: trunk@19509 -
paul 13 years ago
parent
commit
212b14a46b
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/astrings.inc

+ 1 - 1
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;