* fixed web bug #7963 (crash when trying to print the name of a procvar

    with too few parameters specified)

git-svn-id: trunk@5591 -

.gitattributes

@@ -7756,6 +7756,7 @@ tests/webtbs/tw7679.pp svneol=native#text/plain
 tests/webtbs/tw7756.pp svneol=native#text/plain
 tests/webtbs/tw7817a.pp svneol=native#text/plain
 tests/webtbs/tw7817b.pp svneol=native#text/plain
+tests/webtbs/tw7963.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

compiler/ncal.pas

@@ -1799,7 +1799,7 @@ implementation
                         internalerror(200402261);
                       if not assigned(tparavarsym(procdefinition.paras[paraidx]).defaultconstsym) then
                         begin
-                          CGMessage1(parser_e_wrong_parameter_size,symtableprocentry.realname);
+                          CGMessage1(parser_e_wrong_parameter_size,'<Procedure Variable>');
                           goto errorexit;
                         end;
                       dec(paraidx);

tests/webtbs/tw7963.pp

@@ -0,0 +1,15 @@
+{ %fail }
+program fpcbug;
+
+{$mode objfpc}
+
+type
+  TCallback = function(const a, b, c: pointer): integer; stdcall;
+
+var
+  Proc: TCallback;
+  a,b: Pointer;
+
+begin
+  Proc(a, b);
+end.