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: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@8233 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 12 deletions

diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas
index e9d342418d..31d18594e9 100644
--- a/compiler/x86_64/cpupara.pas
+++ b/compiler/x86_64/cpupara.pas
@@ -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