paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 06:57:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

amicommon/dos: some warning fixes - use PtrInt instead of LongInt; do not check for less than zero values in unsigned variables

Browse Source 
git-svn-id: trunk@31173 -
This commit is contained in:
Károly Balogh 2015-06-28 23:12:41 +00:00
parent f0ccbc87f2
commit 51a6c217c7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/amicommon/dos.pp
View File

@ -109,7 +109,7 @@ begin
dosLock:=Lock(buffer,accessmode);
end;
function BADDR(bval: LongInt): Pointer; Inline;
function BADDR(bval: PtrInt): Pointer; Inline;
begin
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
BADDR := Pointer(bval);
@ -127,7 +127,7 @@ begin
{$endif}
end;
function BSTR2STRING(s : LongInt): PChar; Inline;
function BSTR2STRING(s : PtrInt): PChar; Inline;
begin
{$if defined(AROS) and (not defined(AROS_FLAVOUR_BINCOMPAT))}
BSTR2STRING:=PChar(s);
@ -670,7 +670,7 @@ end;
function DiskSize(Drive: Byte): Int64;
begin
DiskSize := -1;
if (Drive < 0) or (Drive >= NumDevices) then
if (Drive >= NumDevices) then
Exit;
DiskSize := DiskSize(DeviceList[Drive]);
end;
@ -700,7 +700,7 @@ end;
function DiskFree(Drive: Byte): Int64;
begin
DiskFree := -1;
if (Drive < 0) or (Drive >= NumDevices) then
if (Drive >= NumDevices) then
Exit;
DiskFree := DiskFree(DeviceList[Drive]);
end;