paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 21:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
peter 2000-01-23 16:31:23 +00:00
parent 89bc16cf23
commit a16485ca15
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/dos.pp
View File

@ -19,6 +19,7 @@ interface
Uses
Go32;
Const
{Bitmasks for CPU Flags}
fcarry = $0001;
@ -102,7 +103,7 @@ Procedure Exec(const path: pathstr; const comline: comstr);
Function DosExitCode: word;
{Disk}
{$ifdef HasInt64Diskfuncs}
{$ifdef Int64}
Function DiskFree(drive: byte) : int64;
Function DiskSize(drive: byte) : int64;
{$else}
@ -447,7 +448,7 @@ end;
--- Disk ---
******************************************************************************}
{$ifdef HasInt64Diskfuncs}
{$ifdef Int64}
TYPE ExtendedFat32FreeSpaceRec=packed Record
RetSize : WORD; { (ret) size of returned structure}
@ -1139,7 +1140,10 @@ End;
end.
{
$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)
Revision 1.17 2000/01/07 16:41:30 daniel