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

Debugger: Fixed trouble with execution-line, when changing units (would go to wrong line); introduced in r24569 #b60616fe5a (track line changes)

Browse Source 
git-svn-id: trunk@24584 -
This commit is contained in:
martin 2010-04-11 18:29:39 +00:00
parent 6b98807014
commit 37b03ff6d4
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/debugmanager.pas
View File

@ -1699,7 +1699,7 @@ begin
Editor := nil; Editor := nil;
if SourceEditorManager <> nil if SourceEditorManager <> nil
then begin then begin
Editor := SourceEditorManager.GetActiveSE; Editor := SourceEditorManager.SourceEditorIntfWithFilename(NewSource.Filename);
SourceEditorManager.ClearExecutionLines; SourceEditorManager.ClearExecutionLines;
SourceEditorManager.ClearErrorLines; SourceEditorManager.ClearErrorLines;
end; end;
@ -1717,7 +1717,7 @@ begin
then begin then begin
if not Editor.HasExecutionMarks then if not Editor.HasExecutionMarks then
Editor.FillExecutionMarks; Editor.FillExecutionMarks;
Editor.ExecutionLine := SrcLine; Editor.ExecutionLine := i;
end; end;
end; end;

1
ide/sourceeditor.pp
View File

@ -3374,7 +3374,6 @@ end;
procedure TSourceEditor.SetExecutionLine(NewLine: integer); procedure TSourceEditor.SetExecutionLine(NewLine: integer);
begin begin
NewLine := EditorComponent.IDEGutterMarks.DebugLineToSourceLine(NewLine);
if ExecutionLine=NewLine then exit; if ExecutionLine=NewLine then exit;
if (FSharedValues.ExecutionMark = nil) then begin if (FSharedValues.ExecutionMark = nil) then begin
if NewLine = -1 then if NewLine = -1 then