paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 19:38:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly handle result size for avx/sse based frac function, resolves #38248

Browse Source 
git-svn-id: trunk@47839 -
This commit is contained in:
florian 2020-12-23 16:10:08 +00:00
parent 2bcd2a4a93
commit b28aa5c684
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/nx86inl.pas
View File

@ -1309,10 +1309,10 @@ implementation
begin
secondpass(left);
hlcg.location_force_mmregscalar(current_asmdata.CurrAsmList,left.location,left.resultdef,true);
location_reset(location,LOC_MMREGISTER,left.location.size);
location_reset(location,LOC_MMREGISTER,def_cgsize(resultdef));
location.register:=cg.getmmregister(current_asmdata.CurrAsmList,location.size);
if UseAVX then
case tfloatdef(resultdef).floattype of
case tfloatdef(left.resultdef).floattype of
s32real:
begin
{ using left.location.register here as 3rd parameter is crucial to break dependency chains }
@ -1332,7 +1332,7 @@ implementation
begin
extrareg:=cg.getmmregister(current_asmdata.CurrAsmList,location.size);
cg.a_loadmm_loc_reg(current_asmdata.CurrAsmList,location.size,left.location,location.register,mms_movescalar);
case tfloatdef(resultdef).floattype of
case tfloatdef(left.resultdef).floattype of
s32real:
begin
current_asmdata.CurrAsmList.concat(taicpu.op_const_reg_reg(A_ROUNDSS,S_NO,3,left.location.register,extrareg));
@ -1347,6 +1347,8 @@ implementation
internalerror(2017052103);
end;
end;
if tfloatdef(left.resultdef).floattype<>tfloatdef(resultdef).floattype then
hlcg.a_loadmm_reg_reg(current_asmdata.CurrAsmList,left.resultdef,resultdef,location.register,location.register,mms_movescalar);
end
else
internalerror(2017052101);