paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 23:40:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdebuggers: less hints

Browse Source
This commit is contained in:
mattias 2024-03-05 15:13:09 +01:00
parent 5dc2c5189b
commit 3ec604cc99
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazdebuggers/lazdebuggerintf/dbgutilstypepatternlist.pas
View File

@ -250,12 +250,16 @@ end;
procedure TDbgTypePatternList.InsertItem(Index: Integer; const S: string;
O: TObject);
begin
if Index=0 then ;
if S='' then ;
if O=nil then ;
raise Exception.Create('');
end;
function TDbgTypePatternList.AddObject(const S: string; AObject: TObject
): Integer;
begin
if AObject=nil then ;
Result := Add(S); // used in assign, ignore object from other list
end;