* fixed crash when calling a procvar with too many parameters

(mantis 8109)

git-svn-id: trunk@5951 -

compiler/ncal.pas

@@ -1892,7 +1892,7 @@ implementation
                 begin
                    if assigned(pt) then
                      current_filepos:=pt.fileinfo;
-                   CGMessage1(parser_e_wrong_parameter_size,symtableprocentry.realname);
+                   CGMessage1(parser_e_wrong_parameter_size,'<Procedure Variable>');
                    goto errorexit;
                 end;
            end

tests/webtbs/tw7963.pp

@@ -12,4 +12,5 @@ var
 
 begin
   Proc(a, b);
+  Proc(a, b, a, b);
 end.