paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 05:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: less hints

Browse Source
This commit is contained in:
mattias 2023-08-03 11:12:11 +02:00
parent f6ae2ddc3b
commit b3e68a30e1
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/compileroptions.pp
View File

@ -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

4
ide/viewunit_dlg.pp
View File

@ -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;

2
packager/packagedefs.pas
View File

@ -888,7 +888,7 @@ begin
pftText: Result:=lisPkgFileTypeText;
pftBinary: Result:=lisPkgFileTypeBinary;
else
Result:='Unknown';
Result:='Unknown'{%H-};
end;
end;