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

Debugger: Shortcuts when debug filename is empty.

Browse Source 
git-svn-id: trunk@55546 -
This commit is contained in:
juha 2017-07-20 14:23:31 +00:00
parent b29a46c876
commit c94618ffa5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/debugmanager.pas
View File

@ -627,11 +627,14 @@ function TDebugManager.GetFullFilename(const AUnitinfo: TDebuggerUnitInfo;
function ResolveFromDbg: Boolean;
begin
Filename := AUnitinfo.FileName;
DebugLn('TDebugManager.GetFullFilename->ResolveFromDbg: Trying with Filename=', Filename);
if Filename<>'' then
DebugLn('TDebugManager.GetFullFilename->ResolveFromDbg: Trying with Filename=', Filename);
Result := (Filename<>'') and GetFullFilename(Filename, False) and FileExistsUTF8(Filename);
if not Result then
begin
Filename := AUnitinfo.DbgFullName;
if Filename='' then
Exit(False);
DebugLn('TDebugManager.GetFullFilename->ResolveFromDbg: Trying with DbgFullName=', Filename);
Result := FileExistsUTF8(Filename);
if not Result then