10 lines
115 B
ObjectPascal
10 lines
115 B
ObjectPascal
unit u_indirect1;
|
|
|
|
uses u_indirect2;
|
|
|
|
procedure p1<T>(o: t1<T>) := exit;
|
|
|
|
begin
|
|
p1(new t2);
|
|
p1(new t3);
|
|
end. |