Ver Fonte

changed types for GetDiskFreeSpace[Ex] from longint to longword

git-svn-id: trunk@3222 -
armin há 19 anos atrás
pai
commit
52e85b283c
1 ficheiros alterados com 2 adições e 2 exclusões
  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