blob: 05c67f2efcd2e13083f925895e08f7dccfa623a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{ %opt=-g-h }
program project1;
{$mode objfpc}{$H+}
uses
SysUtils;
type
TClassA = class(TInterfacedObject,IInterface)
public
constructor Create();
end;
constructor TClassA.Create();
var
x : IInterface;
begin
x := Self;
end;
var
y : IInterface;
begin
HaltOnNotReleased := true;
y := TClassA.Create();
end.
|
