- Код: Выделить всё
{$MODE OBJFPC}
{$INTERFACES CORBA}
Program generic_error_test;
type
IList = Interface
end;
type
generic TList<_T> = Class(IList)
var private
i : integer;
function some_func(): integer;
end;
function TList.some_func(): integer;
begin
end;
type
TA = specialize TList<integer>;
begin
end.
как я понимаю ничего криминального в наследовании generic от Interface нет
результат - ppc386 generic2.pp
- Код: Выделить всё
Free Pascal Compiler version 2.2.0 [2007/10/04] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling generic2.pp
generic2.pp(17,16) Warning: Function result does not seem to be set
generic2.pp(14,14) Warning: Function result does not seem to be set
generic2.pp(13,5) Note: Private field "TList.i" is never used
generic2.pp(13,5) Note: Private field "TA.i" is never used
Fatal: Compilation aborted
An unhandled exception occurred at $0811CB8F :
EAccessViolation : Access violation
$0811CB8F
$0811CFA5
$0811D2E7
$081111B8
$080FBCAB
$080618D8
$08048276