From 6f01bb56d63bef7fb2feed42039b95fda11890b1 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 19 Aug 2014 20:22:03 +0000
Subject: [PATCH]   * 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   | 2 --
 compiler/symdef.pas | 6 +++++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 06d20edc0d..412dfa592d 100644
--- a/compiler/ncnv.pas
+++ b/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;
 
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 75cc529678..cff87fdaf8 100644
--- a/compiler/symdef.pas
+++ b/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;