diff --git a/compiler/arm/cpupara.pas b/compiler/arm/cpupara.pas index 9fcf076b16..c147d23ad1 100644 --- a/compiler/arm/cpupara.pas +++ b/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;