paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed disksize to return -1 on error

Browse Source
This commit is contained in:
peter 2000-12-16 15:27:15 +00:00
parent 0a70f9b06e
commit 29bdb0b698
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/dos.pp
View File

@ -484,7 +484,7 @@ BEGIN
dosregs.ax:=$7303;
msdos(dosregs);
copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec));
if dosregs.eax<>-1 THEN {No error clausule in int except cf}
if dosregs.ax<>$ffff then {No error clausule in int except cf}
begin
copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec));
if Free then
@ -1139,7 +1139,10 @@ End;
end.
{
$Log$
Revision 1.10 2000-10-11 15:38:03 peter
Revision 1.11 2000-12-16 15:27:15 peter
* fixed disksize to return -1 on error
Revision 1.10 2000/10/11 15:38:03 peter
* diskfree doserror fix (merged)
Revision 1.9 2000/09/06 20:47:34 peter