paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 22:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the fpu on suitable x86 targets to copy extended values

Browse Source 
git-svn-id: trunk@45718 -
This commit is contained in:
florian 2020-07-01 20:45:58 +00:00
parent ff295bf349
commit 8f91920c9b
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/ncgld.pas
View File

@ -75,6 +75,7 @@ implementation
aasmbase,
cgbase,pass_2,
procinfo,
cpuinfo,
cpubase,parabase,
tgobj,
cgobj,hlcgobj,
@ -878,7 +879,12 @@ implementation
begin
if (left.resultdef.typ=floatdef) and
(right.resultdef.typ=floatdef) and
(left.location.size<>right.location.size) then
((left.location.size<>right.location.size)
{ on newer (1993+ :)) x86 cpus, use the fpu to copy extended values }
{$ifdef x86}
or ({$ifndef x86_64}(current_settings.cputype>=cpu_Pentium) and{$endif x86_64} (is_extended(right.resultdef)))
{$endif x86}
)then
begin
{ assume that all float types can be handed by the
fpu if one can be handled by the fpu }