* Const string in StrP(L)Copy (bug report 26100)

git-svn-id: trunk@27763 -

rtl/objpas/sysutils/syspch.inc

@@ -67,7 +67,7 @@ end;
 
 {  StrPCopy copies the pascal string Source to Dest and returns Dest  }
 
-function StrPCopy(Dest: PChar; Source: string): PChar;overload;
+function StrPCopy(Dest: PChar; Const Source: string): PChar;overload;
 begin
   result := StrMove(Dest, PChar(Source), length(Source)+1);
 end ;
@@ -75,7 +75,7 @@ end ;
 {  StrPLCopy copies MaxLen or less characters from the pascal string
    Source to Dest and returns Dest  }
 
-function StrPLCopy(Dest: PChar; Source: string; MaxLen: SizeUInt): PChar;overload;
+function StrPLCopy(Dest: PChar; Const Source: string; MaxLen: SizeUInt): PChar;overload;
 var Count: SizeUInt;
 begin
 result := Dest;

rtl/objpas/sysutils/syspchh.inc

@@ -36,8 +36,8 @@ function strnew(p : pchar) : pchar; overload;
 
 { Different from strings unit - ansistrings or different behaviour }
 function StrPas(Str: PChar): string;overload;
-function StrPCopy(Dest: PChar; Source: string): PChar;overload;
-function StrPLCopy(Dest: PChar; Source: string; MaxLen: SizeUInt): PChar;overload;
+function StrPCopy(Dest: PChar; Const Source: string): PChar;overload;
+function StrPLCopy(Dest: PChar; Const Source: string; MaxLen: SizeUInt): PChar;overload;
 function StrAlloc(Size: cardinal): PChar;
 function StrBufSize(Str: PChar): Cardinal;
 procedure StrDispose(Str: PChar);