From b3e68a30e1e47686e3e66f0eff4c133b465a8c03 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 3 Aug 2023 11:12:11 +0200
Subject: [PATCH] ide: less hints

---
 ide/compileroptions.pp   | 14 +++++++-------
 ide/viewunit_dlg.pp      |  4 ++--
 packager/packagedefs.pas |  2 +-
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/ide/compileroptions.pp b/ide/compileroptions.pp
index cdd5b1d083..ab80df8f12 100644
--- a/ide/compileroptions.pp
+++ b/ide/compileroptions.pp
@@ -829,7 +829,7 @@ begin
             icoLinkerOptions,icoCustomOptions:
               CurOptions:=MergeWithDelimiter(CurOptions,UnparsedOption,' ');
             else
-              RaiseGDBException('GatherInheritedOptions');
+              RaiseGDBException('GatherInheritedOptions'){%H-};
             end;
             InheritedOptionStrings[o]:=CurOptions;
           end;
@@ -2087,7 +2087,7 @@ begin
   cetLibrary:
     Result:=GetLibraryExt(fTargetOS);
   else
-    RaiseGDBException('');
+    RaiseGDBException(''){%H-};
   end;
   //DebugLn('TBaseCompilerOptions.GetTargetFileExt ',Result,' ',dbgs(ord(ExecutableType)),' ',fTargetOS);
 end;
@@ -2256,7 +2256,7 @@ begin
   coptParsedPlatformIndependent:
                CurNamespaces:=ParsedOpts.GetParsedPIValue(pcosNamespaces);
   else
-    RaiseGDBException('');
+    RaiseGDBException(''){%H-};
   end;
   // inherited namespaces
   InhNamespaces:=GetInheritedOption(icoNamespaces,false,Parsed);
@@ -2334,7 +2334,7 @@ begin
   coptParsedPlatformIndependent:
     Result:=GetParsedPIPath(Option,InheritedOption,RelativeToBaseDir);
   else
-    RaiseGDBException('');
+    RaiseGDBException(''){%H-};
   end;
   if WithBaseDir then begin
     if RelativeToBaseDir then
@@ -2486,7 +2486,7 @@ begin
   coptParsedPlatformIndependent:
                CurCustomOptions:=ParsedOpts.GetParsedPIValue(pcosCustomOptions);
   else
-    RaiseGDBException('');
+    RaiseGDBException(''){%H-};
   end;
   // inherited custom options
   InhCustomOptions:=GetInheritedOption(icoCustomOptions,true,Parsed);
@@ -3664,7 +3664,7 @@ begin
     icoLinkerOptions: Result:=LinkerOptions;
     icoCustomOptions: Result:=CustomOptions;
   else
-    RaiseGDBException(''); // inconsistency detected
+    RaiseGDBException(''){%H-}; // inconsistency detected
   end;
 end;
 
@@ -4031,7 +4031,7 @@ begin
   Command:=XMLConfig.GetValue(Path+'Command/Value','');
   if DoSwitchPathDelims then begin
     if (Command<>'')
-    and (PathDelim='\') then begin
+    and (PathDelim='\') then {%H-}begin
       // specialhandling on windows to not switch path delimiters in options
       Params:=TStringList.Create;
       try
diff --git a/ide/viewunit_dlg.pp b/ide/viewunit_dlg.pp
index 9bfd53b436..819c08a088 100644
--- a/ide/viewunit_dlg.pp
+++ b/ide/viewunit_dlg.pp
@@ -122,7 +122,7 @@ type
     ProgressBar1: TProgressBar;
     RemoveBitBtn: TSpeedButton;
     SortAlphabeticallySpeedButton: TSpeedButton;
-    function FilterEditFilterItemEx(const ACaption: string; ItemData: Pointer;
+    function FilterEditFilterItemEx(const ACaption: string; {%H-}ItemData: Pointer;
       out Done: Boolean): Boolean;
     procedure FilterEditKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -355,7 +355,7 @@ function TViewUnitDialog.FilterEditFilterItemEx(const ACaption: string;
   ItemData: Pointer; out Done: Boolean): Boolean;
 begin
   Done := true;
-  result := MultiWordSearch(FilterEdit.Text, ACaption);
+  Result := MultiWordSearch(FilterEdit.Text, ACaption);
 end;
 
 procedure TViewUnitDialog.Init(const aCaption: string;
diff --git a/packager/packagedefs.pas b/packager/packagedefs.pas
index 288355eee7..b11cfb65df 100644
--- a/packager/packagedefs.pas
+++ b/packager/packagedefs.pas
@@ -888,7 +888,7 @@ begin
   pftText: Result:=lisPkgFileTypeText;
   pftBinary: Result:=lisPkgFileTypeBinary;
   else
-    Result:='Unknown';
+    Result:='Unknown'{%H-};
   end;
 end;