anchor.diff:  {$ENDREGION ' TPlayer '}
   {$REGION ' TEntities '}
   
  -procedure TEntities<T>.Clear;
  +procedure TEntities{$IFNDEF FPC} <T> {$ENDIF}.Clear;
   var
     I: Integer;
   begin
  
positive.code: {$ENDREGION ' TMapGenerator '}
  {$REGION ' TGenericEntities '}
  
  function TGenericEntities<T>.GetEntity(Index: Integer): T;
  begin
    Result := FEntity[Index];
  end;
  
  procedure TGenericEntities<T>.SetEntitiesLength(NewLength: Integer);
  begin
    SetLength(FEntity, NewLength);
  end;
  
  procedure TGenericEntities<T>.SetEntity(Index: Integer; const Value: T);
  begin
    FEntity[Index] := Value;
  end;
  
negative.code: {$REGION ' TEntities '}
  
  type
    {$IFDEF FPC} generic {$ENDIF} TEntities<T: TEntity> =
        class({$IFDEF FPC} specialize {$ENDIF} TGenericEntities<T>, IStorage)
    private
      Sections: TStringList;
    public
  