From 2aaefc86513147c6fb75a49cae7c23f32c52595e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 20 Jul 2023 14:52:13 +0200
Subject: [PATCH] lazutils: less hints

---
 components/lazutils/laz2_xmlcfg.pas    | 2 +-
 components/lazutils/laz2_xpath.pas     | 2 +-
 components/lazutils/lazlogger.pas      | 2 +-
 components/lazutils/lazloggerbase.pas  | 6 +++---
 components/lazutils/lazloggerdummy.pas | 2 +-
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/components/lazutils/laz2_xmlcfg.pas b/components/lazutils/laz2_xmlcfg.pas
index 90a995d8f9..115be32276 100644
--- a/components/lazutils/laz2_xmlcfg.pas
+++ b/components/lazutils/laz2_xmlcfg.pas
@@ -794,7 +794,7 @@ begin
     tkQWord: Result := IntToStr(QWord(AValue));
     tkSet:   Result := SetToString(APTypeInfo, @AValue, True);
     tkChar:  Result := Char(AValue);
-    tkWChar: Result := WideChar(AValue);
+    tkWChar: Result := {%H-}WideChar(AValue);
   end;
 end;
 
diff --git a/components/lazutils/laz2_xpath.pas b/components/lazutils/laz2_xpath.pas
index 41f3ac4034..604d427360 100644
--- a/components/lazutils/laz2_xpath.pas
+++ b/components/lazutils/laz2_xpath.pas
@@ -698,7 +698,7 @@ begin
   end;
 end;
 
-procedure AddNodes(var Dst: TXPathNodeArray; const Src: array of TXPathExprNode;
+procedure AddNodes(var Dst: TXPathNodeArray; const {%H-}Src: array of TXPathExprNode;
   var Count: Integer);
 var
   L: Integer;
diff --git a/components/lazutils/lazlogger.pas b/components/lazutils/lazlogger.pas
index 403d8a79ad..4b112f7212 100644
--- a/components/lazutils/lazlogger.pas
+++ b/components/lazutils/lazlogger.pas
@@ -164,7 +164,7 @@ type
 
     procedure DoDbgOut(s: string; AGroup: PLazLoggerLogGroup = nil); override;
     procedure DoDebugLn(s: string; AGroup: PLazLoggerLogGroup = nil); override;
-    procedure DoDebuglnStack(const s: string; AGroup: PLazLoggerLogGroup = nil); override;
+    procedure DoDebuglnStack(const s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); override;
 
     property FileHandle: TLazLoggerFileHandle read GetFileHandle write SetFileHandle;
   public
diff --git a/components/lazutils/lazloggerbase.pas b/components/lazutils/lazloggerbase.pas
index 5589c4c142..2d0bc438ff 100644
--- a/components/lazutils/lazloggerbase.pas
+++ b/components/lazutils/lazloggerbase.pas
@@ -133,9 +133,9 @@ type
     procedure IndentChanged; virtual;
     function  GetBlockHandler({%H-}AIndex: Integer): TLazLoggerBlockHandler; virtual;
 
-    procedure DoDbgOut({%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
-    procedure DoDebugLn({%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
-    procedure DoDebuglnStack(const {%H-}s: string; AGroup: PLazLoggerLogGroup = nil); virtual;
+    procedure DoDbgOut({%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
+    procedure DoDebugLn({%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
+    procedure DoDebuglnStack(const {%H-}s: string; {%H-}AGroup: PLazLoggerLogGroup = nil); virtual;
 
     function  ArgsToString(Args: array of const): string;
     property  IsInitialized: Boolean read FIsInitialized;
diff --git a/components/lazutils/lazloggerdummy.pas b/components/lazutils/lazloggerdummy.pas
index 22fcb15291..078ce187fb 100644
--- a/components/lazutils/lazloggerdummy.pas
+++ b/components/lazutils/lazloggerdummy.pas
@@ -194,7 +194,7 @@ type
                           const {%H-}s16: string = ''; const {%H-}s17: string = ''; const {%H-}s18: string = ''); overload;
 
     procedure DumpExceptionBackTrace;
-    procedure DumpExceptionBackTrace(LogEnabled: TLazLoggerLogEnabled);
+    procedure DumpExceptionBackTrace({%H-}LogEnabled: TLazLoggerLogEnabled);
   end;