diff options
| -rw-r--r-- | compiler/x86/nx86inl.pas | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/compiler/x86/nx86inl.pas b/compiler/x86/nx86inl.pas index 9837bb3c70..45b31374e6 100644 --- a/compiler/x86/nx86inl.pas +++ b/compiler/x86/nx86inl.pas @@ -160,8 +160,13 @@ implementation exit; end; {$endif i8086} - expectloc:=LOC_FPUREGISTER; - first_cos_real := nil; + if (tfloatdef(pbestrealtype^).floattype=s80real) then + begin + expectloc:=LOC_FPUREGISTER; + result:=nil; + end + else + result:=inherited; end; function tx86inlinenode.first_sin_real : tnode; @@ -174,8 +179,13 @@ implementation exit; end; {$endif i8086} - expectloc:=LOC_FPUREGISTER; - first_sin_real := nil; + if (tfloatdef(pbestrealtype^).floattype=s80real) then + begin + expectloc:=LOC_FPUREGISTER; + result:=nil; + end + else + result:=inherited; end; |