mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
22 lines
253 B
ObjectPascal
22 lines
253 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
procedure clear(out x);
|
|
begin
|
|
pointer(x):=nil;
|
|
end;
|
|
|
|
procedure test;
|
|
var
|
|
ii1: iunknown;
|
|
begin
|
|
ii1:=tinterfacedobject.create;
|
|
clear(ii1);
|
|
end;
|
|
|
|
begin
|
|
HaltOnNotReleased:=true;
|
|
test;
|
|
end.
|