diff --git a/rtl/go32v2/dos.pp b/rtl/go32v2/dos.pp index 2ce354147c..2f3e3aa552 100644 --- a/rtl/go32v2/dos.pp +++ b/rtl/go32v2/dos.pp @@ -157,7 +157,7 @@ var r : registers; SimpleDosError : word; begin - if (dosregs.flags and carryflag) <> 0 then + if (dosregs.flags and fcarry) <> 0 then begin { I got a extended error = 0 while CarryFlag was set from Exec function } @@ -484,7 +484,7 @@ BEGIN dosregs.ax:=$7303; msdos(dosregs); copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec)); - if dosregs.ax<>$ffff then {No error clausule in int except cf} + if (dosregs.flags and fcarry) = 0 then {No error clausule in int except cf} begin copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec)); if Free then @@ -1047,7 +1047,10 @@ End; end. { $Log$ - Revision 1.12 2001-03-16 20:09:58 hajny + Revision 1.13 2001-10-12 16:04:15 peter + * fix error return in disksize (merged) + + Revision 1.12 2001/03/16 20:09:58 hajny * universal FExpand Revision 1.11 2000/12/16 15:27:15 peter