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

FpDebug: Workaround for dangling pointer to FScanAllWorker.FScanScopeList (in FCompUnitScope.FScopeListPtr), set by FScanScopeList.BuildList.

Browse Source 
(cherry picked from commit 915fbfa830)
This commit is contained in:
Martin 2022-05-09 01:22:32 +02:00
parent a8d568ef55
commit e15e4a1843
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -4081,6 +4081,9 @@ function TFpThreadWorkerScanAll.FindCompileUnit: TDwarfScopeInfo;
begin begin
Result := FScanScopeList.BuildList(FCU.FAbbrevList, FCU.FInfoData, FCU.FLength, Result := FScanScopeList.BuildList(FCU.FAbbrevList, FCU.FInfoData, FCU.FLength,
FCU.FAddressSize, FCU.IsDwarf64, FCU.Version, DW_TAG_compile_unit); FCU.FAddressSize, FCU.IsDwarf64, FCU.Version, DW_TAG_compile_unit);
FCU.FScopeList := FScanScopeList;
Result.FScopeListPtr := @FCU.FScopeList;
end; end;
{ TFpThreadWorkerComputeNameHashes } { TFpThreadWorkerComputeNameHashes }