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

* use 16 bit regs at return of system interrupts instead of 32

Browse Source 
* call Dos.FindClose because it is not a dummy if LFNSupport is true
This commit is contained in:
pierre 2000-04-10 11:04:45 +00:00
parent 6743c46a07
commit 18c8252178
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/go32v2/filutil.inc
View File

@ -60,7 +60,7 @@ Regs.Ebx := $2000 + (Mode and $ff); { file open mode }
Regs.Ecx := $20; { Attributes }
RealIntr($21, Regs);
if Regs.Flags and CarryFlag <> 0 then result := Regs.Ax
else Handle := Regs.Eax;
else Handle := Regs.Ax;
end ;
{******************************************************************************}
@ -108,8 +108,8 @@ RealIntr($21, Regs);
if Regs.Flags and CarryFlag <> 0 then
result := -1
else begin
LongRec(result).Lo := Regs.Eax;
LongRec(result).Hi := Regs.Edx;
LongRec(result).Lo := Regs.Ax;
LongRec(result).Hi := Regs.Dx;
end ;
end;
@ -209,8 +209,12 @@ var Sr: PSearchRec;
begin
Sr := PSearchRec(F.FindHandle);
if Sr <> nil then
//!! Dispose(Sr);
freemem(sr,sizeof(searchrec));
begin
//!! Dispose(Sr);
// This call is non dummy if LFNSupport is true PM
DOS.FindClose(SR^);
freemem(sr,sizeof(searchrec));
end;
F.FindHandle := 0;
end;
@ -456,7 +460,11 @@ end;
{
$Log$
Revision 1.13 2000-02-17 22:16:05 sg
Revision 1.14 2000-04-10 11:04:45 pierre
* use 16 bit regs at return of system interrupts instead of 32
* call Dos.FindClose because it is not a dummy if LFNSupport is true
Revision 1.13 2000/02/17 22:16:05 sg
* Changed the second argument of FileWrite from "var buffer" to
"const buffer", like in Delphi.
@ -481,4 +489,4 @@ end;
Revision 1.6 1999/08/19 14:00:08 pierre
* bug in country info code fixed
}
}