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

* Fixed warnings.

Browse Source 
git-svn-id: trunk@9513 -
This commit is contained in:
yury 2007-12-22 12:12:25 +00:00
parent 5ed1f63b26
commit d7d6b37158
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/strutils.pp
View File

@ -374,15 +374,14 @@ end;
Function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string;
var i,j : SizeUInt;
k : SizeInt;
var i,j,k : SizeUInt;
begin
j:=length(ASubText);
i:=length(AText);
if AStart>i then
aStart:=i+1;
k:=i-AStart+1;
k:=i+1-AStart;
if ALength> k then
ALength:=k;
SetLength(Result,i+j-ALength);

4
rtl/win/sysutils.pp
View File

@ -92,8 +92,8 @@ function CheckWin32Version(Major : Integer): Boolean;
function CheckWin32Version(Major,Minor: Integer): Boolean;
begin
Result:=(Win32MajorVersion>Major) or
((Win32MajorVersion=Major) and (Win32MinorVersion>=Minor));
Result:=(Win32MajorVersion>dword(Major)) or
((Win32MajorVersion=dword(Major)) and (Win32MinorVersion>=dword(Minor)));
end;