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

FpDebug: add workaround to prevent the IDE from creating empty/wrong Dbg-LineMaps (mapping all lines to zero)

Browse Source
This commit is contained in:
Martin 2023-02-16 14:48:43 +01:00
parent 04b384b34d
commit 0278edaea3
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -2492,8 +2492,20 @@ begin
end; end;
function TFpLineInfo.IndexOf(const ASource: String): integer; function TFpLineInfo.IndexOf(const ASource: String): integer;
var
Src: String;
begin begin
Result := FRequestedSources.IndexOf(ASource); Result := FRequestedSources.IndexOf(ASource);
(* For dsInit, dsPause:
- DebugManager.DebuggerChangeState calls SourceEditorManager.FillExecutionMarks;
- This happens, even if the data is not available.
- TSourceEditor.FillExecutionMarks will call this function ("IndexOf") and create an
empty non-functional map.
(Happens for libraries, loaded with LoadLibrary during dsInit, if the source is open)
- To avoid this => return -1
*)
if (Result >= 0) and (FRequestedSources.Objects[Result] = nil) then
Result := -1;
end; end;
procedure TFpLineInfo.Request(const ASource: String); procedure TFpLineInfo.Request(const ASource: String);