Browse Source

changed types for GetDiskFreeSpace[Ex] from longint to longword

git-svn-id: trunk@3222 -
armin 19 years ago
parent
commit
52e85b283c
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/win/dos.pp

+ 2 - 2
rtl/win/dos.pp

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