fcl-passrc: fixed double free

git-svn-id: trunk@39461 -

packages/fcl-passrc/src/pastree.pp

@@ -3723,7 +3723,7 @@ end;
 
 function TPasArrayType.IsGenericArray: Boolean;
 begin
-  Result:=elType is TPasGenericTemplateType;
+  Result:=ElType is TPasGenericTemplateType;
 end;
 
 function TPasArrayType.IsPacked: Boolean;

packages/fcl-passrc/src/pparser.pp

@@ -3470,6 +3470,7 @@ begin
              CheckHint(ArrEl,True);
              ArrEl.ElType.Release{$IFDEF CheckPasTreeRefCount}('CreateElement'){$ENDIF};
              ArrEl.ElType:=TPasGenericTemplateType(List[0]);
+             List.Clear;
              Engine.FinishScope(stTypeDef,ArrEl);
              end;
           else

packages/fcl-passrc/tests/tctypeparser.pas

@@ -2989,8 +2989,8 @@ begin
   ParseDeclarations;
   AssertEquals('One type definition',1,Declarations.Types.Count);
   AssertEquals('First declaration is type definition.',TPasArrayType,TObject(Declarations.Types[0]).ClassType);
-  AssertEquals('First declaration has correct name.','TArray',TPasType(Declarations.Types[0]).Name);
   FType:=TPasType(Declarations.Types[0]);
+  AssertEquals('First declaration has correct name.','TArray',FType.Name);
   AssertEquals('Array type','',TPasArrayType(TheType).IndexRange);
   AssertEquals('Generic Array type',True,TPasArrayType(TheType).IsGenericArray);
 end;