paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@27763 -
This commit is contained in:
michael 2014-05-11 10:11:41 +00:00
parent 50353c6f6a
commit 276a273e6c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syspch.inc
View File

@ -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;

4
rtl/objpas/sysutils/syspchh.inc
View File

@ -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);