paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 00:10:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* emit a FWAIT after a floating point store, when targeting the 8087 and 80287

Browse Source 
git-svn-id: trunk@26109 -
This commit is contained in:
nickysn 2013-11-19 23:11:26 +00:00
parent 6e7cc22207
commit 7ae59a62c5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -708,8 +708,13 @@ unit cgx86;
floatstoreops(t,op,s);
list.concat(Taicpu.Op_ref(op,s,tmpref));
{ storing non extended floats can cause a floating point overflow }
if (t<>OS_F80) and
(cs_fpu_fwait in current_settings.localswitches) then
if ((t<>OS_F80) and (cs_fpu_fwait in current_settings.localswitches))
{$ifdef i8086}
{ 8087 and 80287 need a FWAIT after a memory store, before it can be
read with the integer unit }
or (current_settings.cputype<=cpu_286)
{$endif i8086}
then
list.concat(Taicpu.Op_none(A_FWAIT,S_NO));
dec_fpu_stack;
end;