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

DBG: Improved, jumping to correct line, if source was changed

Browse Source 
git-svn-id: trunk@32348 -
This commit is contained in:
martin 2011-09-15 11:40:05 +00:00
parent a23438a510
commit c8ef9d5556
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/callstackdlg.pp
View File

@ -38,7 +38,7 @@ interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Debugger, DebuggerDlg, Menus, ClipBrd, ExtCtrls, StdCtrls, Spin,
ActnList, MainBase, IDEImagesIntf, IDECommands;
ActnList, MainIntf, MainBase, IDEImagesIntf, IDECommands;
type
@ -321,7 +321,7 @@ begin
if Source = '' then // we do not have a source file => just show an adress
Source := ':' + IntToHex(Entry.Address, 8);
Item.SubItems[1] := Source;
Item.SubItems[2] := IntToStr(Entry.Line);
Item.SubItems[2] := IntToStr(Entry.Line); // TODO: if editor is open, map line SrcEdit.DebugToSourceLine
Item.SubItems[3] := GetFunction(Entry);
end;
end;
@ -439,7 +439,8 @@ begin
DebugBoss.LockCommandProcessing;
try
if DebugBoss.GetFullFilename(Entry.UnitInfo, Filename, False) then
MainIDE.DoJumpToSourcePosition(Filename, 0, Entry.Line, 0, True, True);
MainIDE.DoJumpToSourcePosition(Filename, 0, Entry.Line, 0,
[jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug]);
finally
DebugBoss.UnLockCommandProcessing;
end;

5
debugger/threaddlg.pp
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, ComCtrls, LCLProc, Debugger, DebuggerDlg, LazarusIDEStrConsts,
BaseDebugManager, MainBase, IDEImagesIntf;
BaseDebugManager, MainIntf, MainBase, IDEImagesIntf;
type
@ -155,7 +155,8 @@ begin
DebugBoss.LockCommandProcessing;
try
if DebugBoss.GetFullFilename(Entry.UnitInfo, Filename, False) then
MainIDE.DoJumpToSourcePosition(Filename, 0, Entry.Line, 0, True, True);
MainIDE.DoJumpToSourcePosition(Filename, 0, Entry.Line, 0,
[jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug]);
finally
DebugBoss.UnLockCommandProcessing;
end;end;