* implemented r30870 for all platforms: pass dyn. array parameters like pointer parameters so typically in a register

git-svn-id: trunk@30878 -

compiler/arm/cpupara.pas

@@ -163,6 +163,9 @@ unit cpupara;
             filedef:
               getparaloc:=LOC_REGISTER;
             arraydef:
+              if is_dynamic_array(p) then
+                getparaloc:=LOC_REGISTER
+              else
                 getparaloc:=LOC_REFERENCE;
             setdef:
               if is_smallset(p) then

compiler/avr/cpupara.pas

@@ -99,6 +99,9 @@ unit cpupara;
             filedef:
               getparaloc:=LOC_REGISTER;
             arraydef:
+              if is_dynamic_array(p) then
+                getparaloc:=LOC_REGISTER
+              else
                 getparaloc:=LOC_REFERENCE;
             setdef:
               if is_smallset(p) then

compiler/i8086/cpupara.pas

@@ -629,7 +629,8 @@ unit cpupara;
                     if (parareg<=high(parasupregs)) and
                        (paralen<=sizeof(aint)) and
                        (not(hp.vardef.typ in [floatdef,recorddef,arraydef]) or
-                        pushaddr) and
+                        pushaddr or
+                        is_dynamic_array(hp.vardef)) and
                        (not(vo_is_parentfp in hp.varoptions) or
                         not(po_delphi_nested_cc in p.procoptions)) then
                       begin

compiler/powerpc/cpupara.pas

@@ -165,6 +165,9 @@ unit cpupara;
             filedef:
               result:=LOC_REGISTER;
             arraydef:
+              if is_dynamic_array(p) then
+                getparaloc:=LOC_REGISTER
+              else
                 result:=LOC_REFERENCE;
             setdef:
               if is_smallset(p) then

compiler/powerpc64/cpupara.pas

@@ -146,6 +146,9 @@ begin
     filedef:
       result := LOC_REGISTER;
     arraydef:
+      if is_dynamic_array(p) then
+        getparaloc:=LOC_REGISTER
+      else
         result := LOC_REFERENCE;
     setdef:
       if is_smallset(p) then