paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +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); RealIntr($21, Regs);
if Regs.Flags and CarryFlag <> 0 then result := -Regs.Ax if Regs.Flags and CarryFlag <> 0 then result := -Regs.Ax
else begin else begin
LongRec(result).Lo := Regs.Edx; LongRec(result).Lo := Regs.cx;
LongRec(result).Hi := Regs.Eax; LongRec(result).Hi := Regs.dx;
end ; end ;
end; end;
@ -454,7 +454,10 @@ end;
{ {
$Log$ $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 * findclose freemem fixed
Revision 1.7 1999/08/24 13:14:28 peter Revision 1.7 1999/08/24 13:14:28 peter