mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 14:09:17 +02:00
* arrays always by addr
git-svn-id: trunk@8232 -
This commit is contained in:
parent
134427700b
commit
2e9968d46c
@ -256,18 +256,7 @@ unit cpupara;
|
|||||||
is_dynamic_array(def)) then
|
is_dynamic_array(def)) then
|
||||||
result:=false
|
result:=false
|
||||||
else
|
else
|
||||||
if is_special_array(def) then
|
result:=true;
|
||||||
result:=true
|
|
||||||
else
|
|
||||||
{ normal arrays }
|
|
||||||
begin
|
|
||||||
{ Win ABI depends on size to pass it in a register or not }
|
|
||||||
if (target_info.system=system_x86_64_win64) then
|
|
||||||
result:=not structure_in_registers(varspez,def.size)
|
|
||||||
else
|
|
||||||
{ linux ABI always passes it var parameter }
|
|
||||||
result:=true;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
objectdef :
|
objectdef :
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user