Generics bug?

[e-moe]

при компиляции ругается на присвоения -1

Код: Выделить всё

{$mode objfpc}

type
  generic GList<_T> = class
    var private
      i : integer;
    function some_func(): integer;
  end;

function GList.some_func(): integer;
begin
  i := -1;
  Result := -1;
end { some_func };


type
  TA = specialize GList<integer>;

begin

end.

это только у меня такое или ст0ит написать багрепорт?

[e-moe]

забыл сказать, fpc 2.2.0

[e-moe]

профиксили в 8735 ревизии
http://www.freepascal.org/mantis/view.php?id=9827