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

* bug0230 fixed OVERFLOW and DIVZ cause FPU exception

Browse Source
This commit is contained in:
pierre 1999-04-28 00:27:43 +00:00
parent 36a954b6e4
commit d34997f7a5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/emu387.pp
View File

@ -171,7 +171,8 @@ begin
if have_80387 then
begin
{ mask all exceptions, except invalid operation }
_control87($033e, $ffff)
{ change to same value as in v2prt0.as (PM) }
_control87($0332, $ffff)
end
else
begin
@ -216,7 +217,10 @@ begin
end.
{
$Log$
Revision 1.3 1999-04-08 12:22:59 peter
Revision 1.4 1999-04-28 00:27:43 pierre
* bug0230 fixed OVERFLOW and DIVZ cause FPU exception
Revision 1.3 1999/04/08 12:22:59 peter
* removed os.inc
Revision 1.2 1999/03/01 15:40:50 peter