|
@@ -1780,7 +1780,7 @@ begin
|
|
FreeAndNil(GenericTemplateTypes);
|
|
FreeAndNil(GenericTemplateTypes);
|
|
end;
|
|
end;
|
|
|
|
|
|
-procedure ReleaseElementList(ElList: TFPList; const Id: string);
|
|
|
|
|
|
+procedure ReleaseElementList(ElList: TFPList{$IFDEF CheckPasTreeRefCount}; const Id: string{$ENDIF});
|
|
var
|
|
var
|
|
i: Integer;
|
|
i: Integer;
|
|
El: TPasElement;
|
|
El: TPasElement;
|