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

Bug fixes to magic division and vectorcall code that trigger -CriotR checks

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2021-11-16 20:39:57 +00:00
parent 64c21bb88b
commit 3ce6c478cc
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/nx86mat.pas
View File

@ -705,7 +705,7 @@ interface
end
else
begin
d:=tordconstnode(right).value.svalue;
d:=tordconstnode(right).value.uvalue;
if d>=aword(1) shl (left.resultdef.size*8-1) then
begin

17
compiler/x86_64/cpupara.pas
View File

@ -661,7 +661,9 @@ unit cpupara;
{ Split into 2 Singles again so they correctly fall into separate XMM registers }
classes[0].typ := X86_64_SSESF_CLASS;
classes[0].def := tdef(tarraydef(classes[0].def).elementdef); { Break up the array }
if classes[0].def.typ = arraydef then
{ Break up the array }
classes[0].def := tdef(tarraydef(classes[0].def).elementdef); { Break up the array }
classes[1].typ := X86_64_SSESF_CLASS;
classes[1].def := classes[0].def;
result := 2;
@ -676,7 +678,9 @@ unit cpupara;
classes[2].typ := X86_64_SSESF_CLASS;
classes[2].def := classes[1].def; { Transfer class 1 to class 2 }
classes[0].typ := X86_64_SSESF_CLASS;
classes[0].def := tdef(tarraydef(classes[0].def).elementdef); { Break up the array }
if classes[0].def.typ = arraydef then
{ Break up the array }
classes[0].def := tdef(tarraydef(classes[0].def).elementdef);
classes[1].typ := X86_64_SSESF_CLASS;
classes[1].def := classes[0].def;
result := 3;
@ -688,8 +692,13 @@ unit cpupara;
{ HFA too large (or not a true HFA) }
Exit(0);
classes[0].def := tdef(tarraydef(classes[0].def).elementdef); { Break up the arrays }
classes[2].def := tdef(tarraydef(classes[1].def).elementdef);
if classes[0].def.typ = arraydef then
{ Break up the array }
classes[0].def := tdef(tarraydef(classes[0].def).elementdef);
if classes[1].def.typ = arraydef then
{ Break up the array }
classes[2].def := tdef(tarraydef(classes[1].def).elementdef);
classes[1].def := classes[0].def;
classes[3].def := classes[2].def;