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

* use int64 typecast in diskfree and disksize

Browse Source
This commit is contained in:
pierre 2000-02-02 17:32:59 +00:00
parent 540e840cdf
commit 927f40d079
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/dos.pp
View File

@ -479,7 +479,7 @@ begin
else
begin
if GetDiskFreeSpace(@disk,secs,bytes,free,total) then
diskfree:=free*secs*bytes
diskfree:=int64(free)*secs*bytes
else
diskfree:=-1;
end;
@ -516,7 +516,7 @@ begin
else
begin
if GetDiskFreeSpace(@disk,secs,bytes,free,total) then
disksize:=total*secs*bytes
disksize:=int64(total)*secs*bytes
else
disksize:=-1;
end;
@ -932,7 +932,10 @@ begin
end.
{
$Log$
Revision 1.31 2000-01-24 21:57:56 florian
Revision 1.32 2000-02-02 17:32:59 pierre
* use int64 typecast in diskfree and disksize
Revision 1.31 2000/01/24 21:57:56 florian
* disksize/diskfree return now a int64
Revision 1.30 2000/01/11 13:45:19 pierre
@ -1022,4 +1025,4 @@ end.
Revision 1.2 1998/04/26 21:49:09 florian
+ first compiling and working version
}
}