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

* arrays always by addr

Browse Source 
git-svn-id: trunk@8232 -
This commit is contained in:
peter 2007-08-06 19:44:25 +00:00
parent 134427700b
commit 2e9968d46c
1 changed files with 1 additions and 12 deletions

13
compiler/x86_64/cpupara.pas
View File

@ -256,18 +256,7 @@ unit cpupara;
is_dynamic_array(def)) then
result:=false
else
if is_special_array(def) then
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;
result:=true;
end;
objectdef :
begin