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

* SizeInt -> SizeUInt for strPLCopy (Bug ID 26156)

Browse Source 
git-svn-id: trunk@27802 -
This commit is contained in:
michael 2014-05-18 07:35:33 +00:00
parent 046b7626dd
commit 6fcff07e50
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -195,8 +195,8 @@ function StrMove(dest,source : PWideChar;l : SizeInt) : PWideChar; overload;
end;
function StrPLCopy(Dest: PWideChar; const Source: UnicodeString; MaxLen: SizeInt): PWideChar; overload;
var Len: SizeInt;
function StrPLCopy(Dest: PWideChar; const Source: UnicodeString; MaxLen: SizeUInt): PWideChar; overload;
var Len: SizeUInt;
begin
Len := length(Source);
if Len > MaxLen then

2
rtl/objpas/sysutils/sysunih.inc
View File

@ -36,7 +36,7 @@ Procedure UnicodeFmtStr(Var Res: UnicodeString; Const Fmt : UnicodeString; Const
Procedure UnicodeFmtStr(Var Res: UnicodeString; Const Fmt : UnicodeString; Const args: Array of const; Const FormatSettings: TFormatSettings);
function StrMove(dest,source : PWideChar;l : SizeInt) : PWideChar; overload;
function StrPLCopy(Dest: PWideChar; const Source: UnicodeString; MaxLen: SizeInt): PWideChar; overload;
function StrPLCopy(Dest: PWideChar; const Source: UnicodeString; MaxLen: SizeUInt): PWideChar; overload;
function StrPCopy(Dest: PWideChar; const Source: UnicodeString): PWideChar; overload;
function StrScan(P: PWideChar; C: WideChar): PWideChar; overload;
function strnew(p : PWideChar) : PWideChar; overload;