Bläddra i källkod

changed types for GetDiskFreeSpace[Ex] from longint to longword

git-svn-id: trunk@3222 -
armin 19 år sedan
förälder
incheckning
52e85b283c
1 ändrade filer med 2 tillägg och 2 borttagningar
  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