diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-02-03 22:49:06 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-02-03 22:49:06 +0000 |
commit | 1d3212cc4a1531983f0cc094dd2ccd6289aa2752 (patch) | |
tree | db7d0114ea5885bc605de3b24cd6346364ff215e /compiler/ncgadd.pas | |
parent | c141eeb1a9a827fdc5ac9a0b2d14902fe90ef4f9 (diff) | |
download | fpc-1d3212cc4a1531983f0cc094dd2ccd6289aa2752.tar.gz |
* one more fix for x86 fpu stack swapping (mantis #10757)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10199 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ncgadd.pas')
-rw-r--r-- | compiler/ncgadd.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/ncgadd.pas b/compiler/ncgadd.pas index eae38704e3..2e404e9a11 100644 --- a/compiler/ncgadd.pas +++ b/compiler/ncgadd.pas @@ -161,7 +161,8 @@ interface left.location.register := tmpreg; {$ifdef x86} { left operand is now on top of the stack, instead of the right one! } - toggleflag(nf_swapped); + if (right.location.loc=LOC_FPUREGISTER) then + toggleflag(nf_swapped); {$endif x86} end; end; |