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

* Support in tempnodes for SSE floats in XMM registers

Browse Source 
git-svn-id: trunk@3295 -
This commit is contained in:
peter 2006-04-20 11:16:26 +00:00
parent 0a50dd1029
commit cf0c78e7af
1 changed files with 35 additions and 7 deletions

42
compiler/ncgbas.pas
View File

@ -68,8 +68,8 @@ interface
uses
globtype,globals,systems,
cutils,verbose,
aasmbase,aasmtai,aasmdata,aasmcpu,symsym,symconst,
defutil,
aasmbase,aasmtai,aasmdata,aasmcpu,
symsym,symconst,symdef,defutil,
nflw,pass_2,
cgbase,cgobj,
procinfo,
@ -381,11 +381,22 @@ interface
begin
if tempinfo^.restype.def.deftype=floatdef then
begin
if (tempinfo^.temptype = tt_persistent) then
location_reset(tempinfo^.location,LOC_CFPUREGISTER,def_cgsize(tempinfo^.restype.def))
if use_sse(tempinfo^.restype.def) then
begin
if (tempinfo^.temptype = tt_persistent) then
location_reset(tempinfo^.location,LOC_CMMREGISTER,def_cgsize(tempinfo^.restype.def))
else
location_reset(tempinfo^.location,LOC_MMREGISTER,def_cgsize(tempinfo^.restype.def));
tempinfo^.location.register:=cg.getmmregister(current_asmdata.CurrAsmList,tempinfo^.location.size);
end
else
location_reset(tempinfo^.location,LOC_FPUREGISTER,def_cgsize(tempinfo^.restype.def));
tempinfo^.location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,tempinfo^.location.size);
begin
if (tempinfo^.temptype = tt_persistent) then
location_reset(tempinfo^.location,LOC_CFPUREGISTER,def_cgsize(tempinfo^.restype.def))
else
location_reset(tempinfo^.location,LOC_FPUREGISTER,def_cgsize(tempinfo^.restype.def));
tempinfo^.location.register:=cg.getfpuregister(current_asmdata.CurrAsmList,tempinfo^.location.size);
end;
end
else
begin
@ -429,7 +440,9 @@ interface
inc(location.reference.offset,offset);
{ tempinfo^.valid should be set to false it it's a normal temp }
end;
LOC_REGISTER,LOC_FPUREGISTER:
LOC_REGISTER,
LOC_FPUREGISTER,
LOC_MMREGISTER :
tempinfo^.valid := false;
end;
end;
@ -510,6 +523,21 @@ interface
else
tempinfo^.valid := false;
end;
LOC_CMMREGISTER,
LOC_MMREGISTER:
begin
if not(cs_opt_regvar in aktoptimizerswitches) or
(pi_has_goto in current_procinfo.flags) then
begin
{ make sure the register allocator doesn't reuse the }
{ register e.g. in the middle of a loop }
cg.a_reg_sync(current_asmdata.CurrAsmList,tempinfo^.location.register);
end;
if release_to_normal then
tempinfo^.location.loc := LOC_MMREGISTER
else
tempinfo^.valid := false;
end;
else
internalerror(200507161);
end;