paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

changed types for GetDiskFreeSpace[Ex] from longint to longword

Browse Source 
git-svn-id: trunk@3222 -
This commit is contained in:
armin 2006-04-15 20:32:16 +00:00
parent f4d1d704d6
commit 52e85b283c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win/dos.pp
View File

@ -340,7 +340,7 @@ function diskfree(drive : byte) : int64;
var var
disk : array[1..4] of char; disk : array[1..4] of char;
secs,bytes, secs,bytes,
free,total : longint; free,total : longword;
qwtotal,qwfree,qwcaller : int64; qwtotal,qwfree,qwcaller : int64;
@ -378,7 +378,7 @@ function disksize(drive : byte) : int64;
var var
disk : array[1..4] of char; disk : array[1..4] of char;
secs,bytes, secs,bytes,
free,total : longint; free,total : longword;
qwtotal,qwfree,qwcaller : int64; qwtotal,qwfree,qwcaller : int64;
begin begin