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

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

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

8
components/lazutils/lazloggerprofiling.pas
View File

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