paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:29:40 +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 else
begin begin
if GetDiskFreeSpace(@disk,secs,bytes,free,total) then if GetDiskFreeSpace(@disk,secs,bytes,free,total) then
diskfree:=free*secs*bytes diskfree:=int64(free)*secs*bytes
else else
diskfree:=-1; diskfree:=-1;
end; end;
@ -516,7 +516,7 @@ begin
else else
begin begin
if GetDiskFreeSpace(@disk,secs,bytes,free,total) then if GetDiskFreeSpace(@disk,secs,bytes,free,total) then
disksize:=total*secs*bytes disksize:=int64(total)*secs*bytes
else else
disksize:=-1; disksize:=-1;
end; end;
@ -932,7 +932,10 @@ begin
end. end.
{ {
$Log$ $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 * disksize/diskfree return now a int64
Revision 1.30 2000/01/11 13:45:19 pierre 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 Revision 1.2 1998/04/26 21:49:09 florian
+ first compiling and working version + first compiling and working version
} }