Merged revisions 3691 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

r3691 (florian)
* method pointers are now passed by value, fixes #5736

git-svn-id: branches/fixes_2_0@3692 -

compiler/arm/cpupara.pas

@@ -132,10 +132,7 @@ unit cpupara;
               else
                 getparaloc:=LOC_REGISTER;
             procvardef:
-              if (po_methodpointer in tprocvardef(p).procoptions) then
-                getparaloc:=LOC_REFERENCE
-              else
-                getparaloc:=LOC_REGISTER;
+              getparaloc:=LOC_REGISTER;
             filedef:
               getparaloc:=LOC_REGISTER;
             arraydef:
@@ -180,8 +177,6 @@ unit cpupara;
             result:=(tsetdef(def).settype<>smallset);
           stringdef :
             result:=tstringdef(def).string_typ in [st_shortstring,st_longstring];
-          procvardef :
-            result:=po_methodpointer in tprocvardef(def).procoptions;
         end;
       end;