From 16c9d3da82a1efa6697297d30d0ad067e36237c5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 31 Jan 2017 09:53:55 +0000
Subject: [PATCH] IDE: less hints

git-svn-id: trunk@54040 -
---
 debugger/debugger.pp | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index 005d34ac71..c93b13f76a 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -684,7 +684,7 @@ type
     procedure SetSnapShot(const AValue: TIdeWatchValue);
   protected
     procedure RequestData; override;
-    procedure DoDataValidityChanged(AnOldValidity: TDebuggerDataState); override;
+    procedure DoDataValidityChanged({%H-}AnOldValidity: TDebuggerDataState); override;
   public
     property SnapShot: TIdeWatchValue read FSnapShot write SetSnapShot;
   end;
@@ -821,7 +821,7 @@ type
                               APath: string);
   public
     constructor CreateFromXMLConfig(const AConfig: TXMLConfig; APath: string);
-    procedure SetDataValidity(AValidity: TDebuggerDataState); override;
+    procedure SetDataValidity({%H-}AValidity: TDebuggerDataState); override;
   end;
 
   { TCurrentLocals }
@@ -974,7 +974,7 @@ type
   TIDERegisterValue = class(TRegisterValue)
   protected
     procedure DoDataValidityChanged(AnOldValidity: TDebuggerDataState); override;
-    procedure DoDisplayFormatChanged(AnOldFormat: TRegisterDisplayFormat); override;
+    procedure DoDisplayFormatChanged({%H-}AnOldFormat: TRegisterDisplayFormat); override;
   end;
 
   { TIDERegisters }
@@ -1147,10 +1147,10 @@ type
   public
     procedure DoEntriesCreated; override;
     procedure DoEntriesUpdated; override;
-    procedure SetCountValidity(AValidity: TDebuggerDataState); override;
-    procedure SetHasAtLeastCountInfo(AValidity: TDebuggerDataState; AMinCount: Integer = - 1);
+    procedure SetCountValidity({%H-}AValidity: TDebuggerDataState); override;
+    procedure SetHasAtLeastCountInfo({%H-}AValidity: TDebuggerDataState; {%H-}AMinCount: Integer = - 1);
       override;
-    procedure SetCurrentValidity(AValidity: TDebuggerDataState); override;
+    procedure SetCurrentValidity({%H-}AValidity: TDebuggerDataState); override;
   public
     constructor Create;
     function CreateCopy: TCallStackBase; override;
@@ -1399,7 +1399,7 @@ type
                        const AThreadId: Integer; const AThreadName: String;
                        const AThreadState: String;
                        AState: TDebuggerDataState = ddsValid): TThreadEntry; override;
-    procedure SetValidity(AValidity: TDebuggerDataState); override;
+    procedure SetValidity({%H-}AValidity: TDebuggerDataState); override;
     property Entries[const AnIndex: Integer]: TIdeThreadEntry read GetEntry; default;
     property EntryById[const AnID: Integer]: TIdeThreadEntry read GetEntryById;
   end;