* make sure the calcparas() is called when calling getcopyas() on a

    procvardef

git-svn-id: trunk@30371 -

compiler/symdef.pas

@@ -615,6 +615,7 @@ interface
           function  is_methodpointer:boolean;override;
           function  is_addressonly:boolean;override;
           function  getmangledparaname:TSymStr;override;
+          function getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef; override;
        end;
        tprocvardefclass = class of tprocvardef;
 
@@ -5935,6 +5936,13 @@ implementation
       end;
 
 
+    function tprocvardef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef;
+      begin
+        result:=inherited;
+        tabstractprocdef(result).calcparas;
+      end;
+
+
     function tprocvardef.is_publishable : boolean;
       begin
          is_publishable:=(po_methodpointer in procoptions);