mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
e3b97d99c6
type that contains managed types, but this child doesn't contain any
managed type itself (since r16632, the parent should be considered as a
field of the child in terms of needing initialization/finalization)
git-svn-id: trunk@22461 -
56 lines
732 B
ObjectPascal
56 lines
732 B
ObjectPascal
{ %OPT=-gh }
|
|
// Validate that objects with parent are finalized when statically allocated
|
|
type
|
|
pobj = ^tobj;
|
|
tobj = object
|
|
public
|
|
foo: ansistring;
|
|
constructor init(const s: ansistring);
|
|
destructor done;
|
|
end;
|
|
|
|
pobj1 = ^tobj1;
|
|
tobj1 = object(tobj)
|
|
constructor init;
|
|
destructor done;
|
|
end;
|
|
|
|
constructor tobj.init(const s: ansistring);
|
|
begin
|
|
foo:=s;
|
|
end;
|
|
|
|
destructor tobj.done;
|
|
begin
|
|
end;
|
|
|
|
constructor tobj1.init;
|
|
var
|
|
s: ansistring;
|
|
begin
|
|
s:='abc';
|
|
uniquestring(s);
|
|
inherited init(s);
|
|
end;
|
|
|
|
destructor tobj1.done;
|
|
begin
|
|
inherited done;
|
|
end;
|
|
|
|
var
|
|
obj: tobj1;
|
|
|
|
procedure local;
|
|
var
|
|
instance: tobj1;
|
|
begin
|
|
instance.init;
|
|
end;
|
|
|
|
begin
|
|
HaltOnNotReleased:=true;
|
|
local;
|
|
obj.init;
|
|
end.
|