paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-08 03:36:05 +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 if have_80387 then
begin begin
{ mask all exceptions, except invalid operation } { mask all exceptions, except invalid operation }
_control87($033e, $ffff) { change to same value as in v2prt0.as (PM) }
_control87($0332, $ffff)
end end
else else
begin begin
@ -216,7 +217,10 @@ begin
end. end.
{ {
$Log$ $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 * removed os.inc
Revision 1.2 1999/03/01 15:40:50 peter Revision 1.2 1999/03/01 15:40:50 peter