paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 08:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: prevent crash, if library is added twice (incorrect handling for Linux in SynchronizeProcMapsWithLibraryList)

Browse Source 
(cherry picked from commit a6999c26a6)
This commit is contained in:
Martin 2023-10-14 13:45:26 +02:00
parent dd778f0c8d
commit 6169d36d26
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/fpdebug/fpdbgclasses.pp
View File

@ -2787,6 +2787,10 @@ end;
procedure TDbgProcess.AddLibrary(ALib: TDbgLibrary; AnID: TDbgPtr); procedure TDbgProcess.AddLibrary(ALib: TDbgLibrary; AnID: TDbgPtr);
begin begin
if FLibMap.HasId(AnID) then begin
debugln(DBG_VERBOSE or DBG_WARNINGS, ['Error: Attempt to add duplicate library ', AnID]);
exit;
end;
FLibMap.Add(AnID, ALib); FLibMap.Add(AnID, ALib);
if (ALib.DbgInfo.HasInfo) or (ALib.SymbolTableInfo.HasInfo) then if (ALib.DbgInfo.HasInfo) or (ALib.SymbolTableInfo.HasInfo) then