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

LazDebuggerLldbFp: Improve workaround for FPC issue 37658 / Check both: full-path, and no-path.

Browse Source 
(cherry picked from commit 3e75833edd)
This commit is contained in:
Martin 2025-01-31 01:23:25 +01:00
parent 4c02d59d4d
commit de33a8216c
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
View File

@ -1102,8 +1102,10 @@ end;
function TFpLldbLineInfo.HasAddress(const AIndex: Integer; const ALine: Integer
): Boolean;
var
Map: PDWarfLineMap;
Map, Map2: PDWarfLineMap;
dummy: TDBGPtrArray;
FullName, BaseName: String;
i: Integer;
begin
Result := False;
if not FpDebugger.HasDwarf then
@ -1112,6 +1114,21 @@ begin
Map := PDWarfLineMap(FRequestedSources.Objects[AIndex]);
if Map <> nil then
Result := Map^.GetAddressesForLine(ALine, dummy, True);
if map = nil then begin
FullName := FRequestedSources[AIndex];
BaseName := ExtractFileName(FullName);
if (FullName <> BaseName) then begin
i := FRequestedSources.IndexOf(BaseName);
if i >= 0 then begin
Map2 := PDWarfLineMap(FRequestedSources.Objects[i]);
if (Map2 <> nil) and (Map2 <> Map) then begin
dummy:=nil;
Result := Map2^.GetAddressesForLine(ALine, dummy, True);
end;
end;
end;
end;
end;
function TFpLldbLineInfo.GetInfo(AAdress: TDbgPtr; out ASource, ALine,
@ -1131,10 +1148,16 @@ begin
end;
procedure TFpLldbLineInfo.Request(const ASource: String);
var
BaseName: String;
begin
if not FpDebugger.HasDwarf then
exit;
FRequestedSources.AddObject(ASource, TObject(FpDebugger.FDwarfInfo.GetLineAddressMap(ASource)));
BaseName := ExtractFileName(ASource);
if (ASource <> BaseName) and (IndexOf(BaseName) < 0) then
FRequestedSources.AddObject(ASource, TObject(FpDebugger.FDwarfInfo.GetLineAddressMap(BaseName)));
DoChange(ASource);
end;