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

DBG: do not open virtual unit twice.

Browse Source 
git-svn-id: trunk@32724 -
This commit is contained in:
martin 2011-10-06 20:29:58 +00:00
parent 240ec1a82b
commit 5fd3a7a645
2 changed files with 4 additions and 4 deletions

4
debugger/breakpointsdlg.pp
View File

@ -40,7 +40,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, Menus, ComCtrls, IDEProcs, Debugger, DebuggerDlg, lclType, ActnList, MainBase,
IDEImagesIntf, SourceEditor;
IDEImagesIntf, SourceEditor, MainIntf;
type
TBreakPointsDlgState = (
@ -801,7 +801,7 @@ begin
if CurItem=nil then exit;
CurBreakPoint:=TIDEBreakPoint(CurItem.Data);
if CurBreakPoint.Kind = bpkSource then
MainIDE.DoJumpToSourcePosition(CurBreakPoint.Source, 0, CurBreakPoint.Line, 0, True);
MainIDE.DoJumpToSourcePosition(CurBreakPoint.Source, 0, CurBreakPoint.Line, 0, [jfAddJumpPoint, jfSearchVirtualFullPath]);
end;
procedure TBreakPointsDlg.ShowProperties;

4
debugger/debuggerdlg.pp
View File

@ -316,11 +316,11 @@ begin
ok := false;
if FilenameIsAbsolute(Filename) then
ok := MainIDEIntf.DoJumpToSourcePosition(Filename, 0, ALine, 0,
[jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug]
[jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug, jfSearchVirtualFullPath]
) = mrOK;
if not ok then
MainIDEIntf.DoJumpToSourcePosition(Filename, 0, ALine, 0,
[jfDoNotExpandFilename, jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug]);
[jfDoNotExpandFilename, jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug, jfSearchVirtualFullPath]);
end;
finally
DebugBoss.UnLockCommandProcessing;