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

ide: use debugger SrcFullName record when available

Browse Source 
git-svn-id: trunk@22961 -
This commit is contained in:
paul 2009-12-04 14:39:47 +00:00
parent 378fa711b4
commit 4212ad71e2
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/debugmanager.pas
View File

@ -1547,7 +1547,7 @@ procedure TDebugManager.DebuggerCurrentLine(Sender: TObject; const ALocation: TD
// -> show the current execution line in editor
// if SrcLine < 1 then no source is available
var
SrcFile: String;
SrcFile, SrcFullName: String;
NewSource: TCodeBuffer;
Editor: TSourceEditor;
SrcLine: Integer;
@ -1560,6 +1560,7 @@ begin
FCurrentLocation := ALocation;
SrcFile := ALocation.SrcFile;
SrcFullName := ALocation.SrcFullName;
SrcLine := ALocation.SrcLine;
if SrcLine < 1
@ -1573,6 +1574,7 @@ begin
then begin
SrcLine := StackEntry.Line;
SrcFile := StackEntry.Source;
SrcFullName := StackEntry.FullFileName;
StackEntry.Current := True;
Break;
end;
@ -1591,13 +1593,17 @@ begin
if SrcLine < 1 then Exit;
end;
if not GetFullFilename(SrcFile, true) then exit;
if (SrcFullName = '') or not GetFullFilename(SrcFullName, False) then
begin
SrcFullName := SrcFile;
if not GetFullFilename(SrcFullName, true) then exit;
end;
NewSource := CodeToolBoss.LoadFile(SrcFile, true, false);
NewSource := CodeToolBoss.LoadFile(SrcFullName, true, false);
if NewSource = nil
then begin
MessageDlg(lisDebugUnableToLoadFile,
Format(lisDebugUnableToLoadFile2, ['"', SrcFile, '"']),
Format(lisDebugUnableToLoadFile2, ['"', SrcFullName, '"']),
mtError,[mbCancel],0);
Exit;
end;