mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
25 lines
478 B
ObjectPascal
25 lines
478 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw40634;
|
|
{$mode objfpc}{$H+}
|
|
uses uw40634a, uw40634b;
|
|
|
|
type
|
|
TWatchesSupplier = class(specialize TWatchesSupplierClassTemplate<TObject>, IDbgWatchesSupplierIntf)
|
|
//TWatchesSupplier = class(specialize TWatchesSupplierClassTemplate<TObject>)
|
|
//TWatchesSupplier = class(TNormalClass, IDbgWatchesSupplierIntf)
|
|
protected
|
|
procedure DoFoo;
|
|
end;
|
|
|
|
{ TWatchesSupplier }
|
|
|
|
procedure TWatchesSupplier.DoFoo;
|
|
begin
|
|
if Monitor <> nil then;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|