paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 00:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add few more IDE directives to suppress notes about unused Sender parameter. Issue #29704.

Browse Source 
git-svn-id: trunk@52990 -
This commit is contained in:
juha 2016-09-18 19:42:55 +00:00
parent 3d340067d6
commit 9ca4db530f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/lazloggerprofiling.pas
View File

@ -29,8 +29,8 @@ type
procedure SetMaxDepth(AValue: Integer); procedure SetMaxDepth(AValue: Integer);
public public
constructor Create; constructor Create;
procedure EnterBlock(Sender: TLazLogger; Level: Integer); override; procedure EnterBlock({%H-}Sender: TLazLogger; Level: Integer); override;
procedure ExitBlock(Sender: TLazLogger; Level: Integer); override; procedure ExitBlock({%H-}Sender: TLazLogger; Level: Integer); override;
property MaxDepth: Integer read FMaxDepth write SetMaxDepth; property MaxDepth: Integer read FMaxDepth write SetMaxDepth;
property TimeDiff[ALevel: Integer]: QWord read GetTimeDiff; property TimeDiff[ALevel: Integer]: QWord read GetTimeDiff;
property Nested[ALevel: Integer]: QWord read GetNested; property Nested[ALevel: Integer]: QWord read GetNested;
@ -48,8 +48,8 @@ type
procedure SetMaxDepth(AValue: Integer); procedure SetMaxDepth(AValue: Integer);
public public
constructor Create; constructor Create;
procedure EnterBlock(Sender: TLazLogger; Level: Integer); override; procedure EnterBlock({%H-}Sender: TLazLogger; Level: Integer); override;
procedure ExitBlock(Sender: TLazLogger; Level: Integer); override; procedure ExitBlock({%H-}Sender: TLazLogger; Level: Integer); override;
property MaxDepth: Integer read FMaxDepth write SetMaxDepth; property MaxDepth: Integer read FMaxDepth write SetMaxDepth;
property MemDiff[ALevel: Integer]: Int64 read GetMemDiff; property MemDiff[ALevel: Integer]: Int64 read GetMemDiff;
property Nested[ALevel: Integer]: Int64 read GetNested; property Nested[ALevel: Integer]: Int64 read GetNested;