* automatically call calcparas adter creating a procvardef from a procvdef,

    so it doesn't have to be done explicitly anymore afterwards

git-svn-id: branches/hlcgllvm@28473 -

compiler/ncnv.pas

@@ -2014,8 +2014,6 @@ implementation
               (not(m_nested_procvars in current_settings.modeswitches) or
                not is_nested_pd(tprocvardef(resultdef))) then
              include(tprocvardef(resultdef).procoptions,po_addressonly);
-           { calculate parameter list & order }
-           tprocvardef(resultdef).calcparas;
          end;
       end;
 

compiler/symdef.pas

@@ -5249,7 +5249,11 @@ implementation
       begin
         result:=inherited getcopyas(newtyp,copytyp);
         if newtyp=procvardef then
-          exit;
+          begin
+            { create new paralist }
+            tprocvardef(result).calcparas;
+            exit;
+          end;
         { don't copy mangled name, can be different }
         tprocdef(result).messageinf:=messageinf;
         tprocdef(result).dispid:=dispid;