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

* set correct expectloc for vectorfpu temps

Browse Source 
git-svn-id: trunk@15217 -
This commit is contained in:
Jonas Maebe 2010-05-03 15:42:40 +00:00
parent 633aa31ea3
commit a055ed873d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nbas.pas
View File

@ -960,10 +960,16 @@ implementation
begin
if tempinfo^.typedef.typ=floatdef then
begin
if (tempinfo^.temptype = tt_persistent) then
expectloc := LOC_CFPUREGISTER
if not use_vectorfpu(tempinfo^.typedef) then
if (tempinfo^.temptype = tt_persistent) then
expectloc := LOC_CFPUREGISTER
else
expectloc := LOC_FPUREGISTER
else
expectloc := LOC_FPUREGISTER;
if (tempinfo^.temptype = tt_persistent) then
expectloc := LOC_CMMREGISTER
else
expectloc := LOC_MMREGISTER
end
else
begin