소스 검색

changed types for GetDiskFreeSpace[Ex] from longint to longword

git-svn-id: trunk@3222 -
armin 19 년 전
부모
커밋
52e85b283c
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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