paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 11:32:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix error return in disksize (merged)

Browse Source
This commit is contained in:
peter 2001-10-12 16:04:15 +00:00
parent 9d93d0d4e3
commit 22ab77e873
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/dos.pp
View File

@ -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