Browse Source

* hasint64diskspace define changed to int64 so it's default now

peter 25 years ago
parent
commit
a16485ca15
1 changed files with 7 additions and 3 deletions
  1. 7 3
      rtl/go32v2/dos.pp

+ 7 - 3
rtl/go32v2/dos.pp

@@ -19,6 +19,7 @@ interface
 Uses
 Uses
   Go32;
   Go32;
 
 
+
 Const
 Const
   {Bitmasks for CPU Flags}
   {Bitmasks for CPU Flags}
   fcarry     = $0001;
   fcarry     = $0001;
@@ -102,7 +103,7 @@ Procedure Exec(const path: pathstr; const comline: comstr);
 Function  DosExitCode: word;
 Function  DosExitCode: word;
 
 
 {Disk}
 {Disk}
-{$ifdef HasInt64Diskfuncs}
+{$ifdef Int64}
  Function  DiskFree(drive: byte) : int64;
  Function  DiskFree(drive: byte) : int64;
  Function  DiskSize(drive: byte) : int64;
  Function  DiskSize(drive: byte) : int64;
 {$else}
 {$else}
@@ -447,7 +448,7 @@ end;
                                --- Disk ---
                                --- Disk ---
 ******************************************************************************}
 ******************************************************************************}
 
 
-{$ifdef HasInt64Diskfuncs}
+{$ifdef Int64}
 
 
 TYPE  ExtendedFat32FreeSpaceRec=packed Record
 TYPE  ExtendedFat32FreeSpaceRec=packed Record
          RetSize           : WORD; { (ret) size of returned structure}
          RetSize           : WORD; { (ret) size of returned structure}
@@ -1139,7 +1140,10 @@ End;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.18  2000-01-23 12:28:38  marco
+  Revision 1.19  2000-01-23 16:31:23  peter
+    * hasint64diskspace define changed to int64 so it's default now
+
+  Revision 1.18  2000/01/23 12:28:38  marco
    * Added diskfree and disksize with AH=71 dos functions (LFN/Fat32)
    * Added diskfree and disksize with AH=71 dos functions (LFN/Fat32)
 
 
   Revision 1.17  2000/01/07 16:41:30  daniel
   Revision 1.17  2000/01/07 16:41:30  daniel