paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 05:51:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ storing non-extended floats to memory generates now a fwait to get exceptions at the correct place

Browse Source
This commit is contained in:
florian 2005-03-13 17:15:26 +00:00
parent f94047b703
commit 0cd81efba7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/cgx86.pas
View File

@ -474,6 +474,9 @@ unit cgx86;
make_simple_ref(list,tmpref); make_simple_ref(list,tmpref);
floatstoreops(t,op,s); floatstoreops(t,op,s);
list.concat(Taicpu.Op_ref(op,s,tmpref)); list.concat(Taicpu.Op_ref(op,s,tmpref));
{ storing non extended floats can cause a floating point overflow }
if t<>OS_F80 then
list.concat(Taicpu.Op_none(A_FWAIT,S_NO));
dec_fpu_stack; dec_fpu_stack;
end; end;
@ -1771,7 +1774,10 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.146 2005-02-14 17:13:10 peter Revision 1.147 2005-03-13 17:15:26 florian
+ storing non-extended floats to memory generates now a fwait to get exceptions at the correct place
Revision 1.146 2005/02/14 17:13:10 peter
* truncate log * truncate log
Revision 1.145 2005/02/06 00:05:56 florian Revision 1.145 2005/02/06 00:05:56 florian