compiler: regenerate parameter list in tprocvardef.getcopy (fixes compiler crash, issue #0025077)

git-svn-id: trunk@25561 -

.gitattributes

@@ -13593,6 +13593,7 @@ tests/webtbs/tw2504.pp svneol=native#text/plain
 tests/webtbs/tw25054a.pp svneol=native#text/pascal
 tests/webtbs/tw25054b.pp svneol=native#text/pascal
 tests/webtbs/tw25059.pp svneol=native#text/pascal
+tests/webtbs/tw25077.pp svneol=native#text/pascal
 tests/webtbs/tw2514.pp svneol=native#text/plain
 tests/webtbs/tw2525.pp svneol=native#text/plain
 tests/webtbs/tw2536.pp svneol=native#text/plain

compiler/symdef.pas

@@ -5474,6 +5474,7 @@ implementation
         tprocvardef(result).savesize:=savesize;
 
         { create paralist copy }
+        calcparas;
         tprocvardef(result).paras:=tparalist.create(false);
         tprocvardef(result).paras.count:=paras.count;
         for j:=0 to paras.count-1 do

tests/webtbs/tw25077.pp

@@ -0,0 +1,7 @@
+{ %NORUN}
+program tw25077;
+
+TYPE AnyName = TYPE PROCEDURE (A : INTEGER);
+
+begin
+end.