mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
0698678f86
object file is not available for linking when tw13345x is recompiled) git-svn-id: trunk@12959 -
18 lines
238 B
ObjectPascal
18 lines
238 B
ObjectPascal
{ %opt=-gh }
|
|
{ %recompile }
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
uw13345y;
|
|
|
|
type
|
|
tc = class(tinterfacedobject,ta)
|
|
end;
|
|
|
|
begin
|
|
HaltOnNotReleased:=true;
|
|
{ should be automatically freed by the finalization code of tw13345y }
|
|
c:=tc.create;
|
|
end.
|