paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 11:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Bugfix in disksize function.

Browse Source
This commit is contained in:
daniel 1998-06-26 08:28:57 +00:00
parent 8a84b20446
commit 65b50cccf1
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/dos.pas
View File

@ -910,8 +910,10 @@ unit dos;
function disksize(drive : byte) : longint;
var fi:OS2FSallocate;
begin
{$IFNDEF OS/2}
{$IFNDEF OS2}
asm
movb 8(%ebp),%dl
movb $0x36,%ah
@ -954,15 +956,15 @@ unit dos;
cwde
leave
ret
end;
end
else
{In OS/2, we use the filesystem information.}
begin
doserror:=dosQFSinfo(drive,1,FI,sizeof(FI));
doserror:=dosqueryFSinfo(drive,1,FI,sizeof(FI));
if doserror=0 then
diskfree:=FI.cunit*FI.csectorunit*FI.cbsector
disksize:=FI.cunit*FI.csectorunit*FI.cbsector
else
diskfree:=-1;
disksize:=-1;
end;
{$ENDIF}
end;