From 65b50cccf1d3b78f1e4881325dbdd369f23163d2 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Fri, 26 Jun 1998 08:28:57 +0000
Subject: [PATCH] * Bugfix in disksize function.

---
 rtl/os2/dos.pas | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/rtl/os2/dos.pas b/rtl/os2/dos.pas
index 90cbaf5b13..2149ef258e 100644
--- a/rtl/os2/dos.pas
+++ b/rtl/os2/dos.pas
@@ -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;