paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 13:59:07 +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; r : registers;
SimpleDosError : word; SimpleDosError : word;
begin begin
if (dosregs.flags and carryflag) <> 0 then if (dosregs.flags and fcarry) <> 0 then
begin begin
{ I got a extended error = 0 { I got a extended error = 0
while CarryFlag was set from Exec function } while CarryFlag was set from Exec function }
@ -484,7 +484,7 @@ BEGIN
dosregs.ax:=$7303; dosregs.ax:=$7303;
msdos(dosregs); msdos(dosregs);
copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec)); 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 begin
copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec)); copyfromdos(rec,Sizeof(ExtendedFat32FreeSpaceRec));
if Free then if Free then
@ -1047,7 +1047,10 @@ End;
end. end.
{ {
$Log$ $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 * universal FExpand
Revision 1.11 2000/12/16 15:27:15 peter Revision 1.11 2000/12/16 15:27:15 peter