* assign name to anonymous string type

git-svn-id: trunk@23536 -

packages/fcl-passrc/src/pparser.pp

@@ -757,6 +757,8 @@ Var
 begin
   Result := TPasAliasType(CreateElement(TPasAliasType, TypeName, Parent));
   try
+    If (Result.Name='') then
+      Result.Name:='string';
     NextToken;
     if CurToken=tkSquaredBraceOpen then
       begin