paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* web bug #716

Browse Source
This commit is contained in:
pierre 1999-11-25 15:55:52 +00:00
parent 65cd1cdbc7
commit 6f2f60d8ee
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/filutil.inc
View File

@ -222,8 +222,8 @@ Regs.Eax := $5700;
RealIntr($21, Regs);
if Regs.Flags and CarryFlag <> 0 then result := -Regs.Ax
else begin
LongRec(result).Lo := Regs.Edx;
LongRec(result).Hi := Regs.Eax;
LongRec(result).Lo := Regs.cx;
LongRec(result).Hi := Regs.dx;
end ;
end;
@ -454,7 +454,10 @@ end;
{
$Log$
Revision 1.8 1999-08-26 11:02:50 peter
Revision 1.9 1999-11-25 15:55:52 pierre
* web bug 716
Revision 1.8 1999/08/26 11:02:50 peter
* findclose freemem fixed
Revision 1.7 1999/08/24 13:14:28 peter