Browse Source

Merged revisions 8232 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r8232 | peter | 2007-08-06 21:44:25 +0200 (Mon, 06 Aug 2007) | 2 lines

* arrays always by addr

........

git-svn-id: branches/fixes_2_2@8233 -

peter 18 years ago
parent
commit
0bff4aa069
1 changed files with 1 additions and 12 deletions
  1. 1 12
      compiler/x86_64/cpupara.pas

+ 1 - 12
compiler/x86_64/cpupara.pas

@@ -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
-                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;
             end;
           objectdef :
           objectdef :
             begin
             begin