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

* avoid that not explicitly as vectors marked arrays end up in registers where they are handled not properly

Browse Source
This commit is contained in:
florian 2025-02-28 22:14:42 +01:00
parent 0977f0ac0d
commit 2ef405b3e5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defutil.pas
View File

@ -1551,12 +1551,12 @@ implementation
function is_vector(p : tdef) : boolean;
begin
result:=(p.typ=arraydef) and
(tarraydef(p).is_hwvector or
(tarraydef(p).is_hwvector { or
(not(is_special_array(p)) and
(tarraydef(p).elementdef.typ in [floatdef,orddef]) {and
(tarraydef(p).elementdef.typ in [floatdef,orddef]) and
(tarraydef(p).elementdef.typ=floatdef) and
(tfloatdef(tarraydef(p).elementdef).floattype in [s32real,s64real])}
)
(tfloatdef(tarraydef(p).elementdef).floattype in [s32real,s64real])
) }
);
end;