fpdoc: cleaned up obsolete okspecialize code

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38186 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 22 deletions

diff --git a/packages/fcl-passrc/examples/test_parser.pp b/packages/fcl-passrc/examples/test_parser.pp
index 6ded90c066..48992060cf 100644
--- a/packages/fcl-passrc/examples/test_parser.pp
+++ b/packages/fcl-passrc/examples/test_parser.pp
@@ -1459,30 +1459,10 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
      else
        write(s,pc.Name,' = ');
      if pc.IsPacked then write('packed ');
-     case pc.ObjKind of
-      okObject:write('Object');
-      okClass:write('Class');
-      okInterface:write('Interface');
-      okGeneric:write('class');
-      okspecialize : write('specialize');
-     end;
+     write(ObjKindNames[pc.ObjKind]);
      if assigned(pc.AncestorType) and (pc.AncestorType.ElementTypeName <> '') then
         begin
-        if pc.ObjKind<>okspecialize then
-          write('(',pc.AncestorType.Name,')')
-        else
-          begin
-          write(' ',pc.AncestorType.Name);
-          for l:=0 to pc.GenericTemplateTypes.Count-1 do
-           begin
-           if l=0 then
-            Write('<')
-           else
-            Write(',');
-           Write(TPasGenericTemplateType(pc.GenericTemplateTypes[l]).Name);
-           end;
-          Write('>');
-          end;
+        write('(',pc.AncestorType.Name,')');
         end;
      if pc.IsForward or pc.IsShortDefinition then //pparser.pp: 3417 :class(anchestor); is allowed !
       begin