paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +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

14
rtl/os2/dos.pas
View File

@ -133,7 +133,7 @@ unit dos;
buffer : textbuf;
end;
{ data structure for the registers needed by msdos and intr }
{ data structure for the registers needed by msdos and intr }
registers = record
case i : integer of
0 : (ax,f1,bx,f2,cx,f3,dx,f4,bp,f5,si,f51,di,f6,ds,f7,es,f8,flags,fs,gs : word);
@ -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;