* Set declaration returns type of name if named enumeration

git-svn-id: trunk@19623 -

packages/fcl-passrc/src/pastree.pp

@@ -1900,7 +1900,7 @@ Var
   i : Integer;
 
 begin
-  If EnumType is TPasEnumType then
+  If (EnumType is TPasEnumType) and (EnumType.Name='') then
     begin
     S:=TStringList.Create;
     Try