Fix for Mantis #23571.

ptype.pas, single_type:
  * if using a message that expects a parameter, provide that parameter...

+ added tests

git-svn-id: trunk@23349 -

.gitattributes

@@ -12031,6 +12031,9 @@ tests/webtbf/tw23547a.pp svneol=native#text/pascal
 tests/webtbf/tw23547b.pp svneol=native#text/pascal
 tests/webtbf/tw23547c.pp svneol=native#text/pascal
 tests/webtbf/tw2357.pp svneol=native#text/plain
+tests/webtbf/tw23571a.pp svneol=native#text/pascal
+tests/webtbf/tw23571b.pp svneol=native#text/pascal
+tests/webtbf/tw23571c.pp svneol=native#text/pascal
 tests/webtbf/tw2359.pp svneol=native#text/plain
 tests/webtbf/tw2362.pp svneol=native#text/plain
 tests/webtbf/tw2383.pp svneol=native#text/plain

compiler/ptype.pas

@@ -444,7 +444,7 @@ implementation
           begin
             if not assigned(srsym) or not (srsym.typ=typesym) then
               begin
-                Message(type_e_type_is_not_completly_defined);
+                Message1(type_e_type_is_not_completly_defined,def.typename);
                 def:=generrordef;
                 dospecialize:=false;
               end;

tests/webtbf/tw23571a.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+
+{$MODE DELPHI}
+
+type Test<T> = ^Wrapper<T>;
+
+begin
+end.

tests/webtbf/tw23571b.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+
+{$MODE DELPHI}
+
+type Test<T> = ^Wrapper<>;
+
+begin
+end.

tests/webtbf/tw23571c.pp

@@ -0,0 +1,8 @@
+{ %FAIL }
+
+{$MODE DELPHI}
+
+type Test<T> = ^Wrapper<P, Q>;
+
+begin
+end.