paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simplification of and fix for AArch64 cpupara.is_hfa_internal() (patch by

Browse Source 
modulo7, mantis #30381)
   o check for array elements of size 0 does not make sense after we've
     established it's an array of floats
   o since the recursive call to is_hfa_internal() already checks for
     floats, we don't have to do it before calling it again for the
     elements of an array
   o set the result to "true" if the array is small enough to be a HFA

git-svn-id: trunk@34293 -
This commit is contained in:
Jonas Maebe 2016-08-12 16:53:02 +00:00
parent a2bf4efce2
commit f891788a86
1 changed files with 16 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aarch64/cpupara.pas
View File

@ -99,9 +99,6 @@ unit cpupara;
begin begin
if is_special_array(p) then if is_special_array(p) then
exit; exit;
case tarraydef(p).elementdef.typ of
floatdef:
begin
{ an array of empty records has no influence } { an array of empty records has no influence }
if tarraydef(p).elementdef.size=0 then if tarraydef(p).elementdef.size=0 then
begin begin
@ -118,10 +115,7 @@ unit cpupara;
inc(elecount,tarraydef(p).elecount*tmpelecount); inc(elecount,tarraydef(p).elecount*tmpelecount);
if elecount>4 then if elecount>4 then
exit; exit;
end; result:=true;
else
result:=is_hfa_internal(tarraydef(p).elementdef,basedef,elecount);
end;
end; end;
floatdef: floatdef:
begin begin