* fix structure parameter passing

git-svn-id: trunk@5083 -

compiler/arm/cpupara.pas

@@ -120,12 +120,9 @@ unit cpupara;
             classrefdef:
               getparaloc:=LOC_REGISTER;
             recorddef:
-              getparaloc:=LOC_REFERENCE;
+              getparaloc:=LOC_REGISTER;
             objectdef:
-              if is_object(p) then
-                getparaloc:=LOC_REFERENCE
-              else
-                getparaloc:=LOC_REGISTER;
+              getparaloc:=LOC_REGISTER;
             stringdef:
               if is_shortstring(p) or is_longstring(p) then
                 getparaloc:=LOC_REFERENCE
@@ -143,7 +140,7 @@ unit cpupara;
               else
                 getparaloc:=LOC_REFERENCE;
             variantdef:
-              getparaloc:=LOC_REFERENCE;
+              getparaloc:=LOC_REGISTER;
             { avoid problems with errornous definitions }
             errordef:
               getparaloc:=LOC_REGISTER;
@@ -162,17 +159,16 @@ unit cpupara;
             exit;
           end;
         case def.deftype of
+          objectdef,
           variantdef,
           formaldef,
           recorddef:
-            result:=true;
+            result:=varspez=vs_const;
           arraydef:
             result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
                              is_open_array(def) or
                              is_array_of_const(def) or
                              is_array_constructor(def);
-          objectdef :
-            result:=is_object(def);
           setdef :
             result:=(tsetdef(def).settype<>smallset);
           stringdef :
@@ -278,11 +274,11 @@ unit cpupara;
              while paralen>0 do
                begin
                  paraloc:=hp.paraloc[side].add_location;
-                 { for things like formaldef }
-                 if paracgsize=OS_NO then
-                   paraloc^.size:=OS_ADDR
-                 else if paracgsize in [OS_64,OS_S64] then
-                   paraloc^.size:=OS_32
+
+                 if (paradef.deftype <> orddef) then
+                   paracgsize := int_cgsize(paralen);
+                 if (paracgsize in [OS_NO,OS_64,OS_S64]) then
+                   paraloc^.size := OS_32
                  else if (loc=LOC_REGISTER) and (paracgsize in [OS_F32,OS_F64,OS_F80]) then
                    case paracgsize of
                      OS_F32: