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

ide: fix debugging of non-saved units (issue #0011879)

Browse Source 
git-svn-id: trunk@18957 -
This commit is contained in:
paul 2009-03-11 14:33:49 +00:00
parent 2612bc98ea
commit 9c4108f86d
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/debugmanager.pas
View File

@ -1144,8 +1144,8 @@ begin
// => fix that
Filename := TrimFilename(Filename);
SrcFile := Filename;
SrcFile := MainIDE.FindSourceFile(SrcFile,Project1.ProjectDirectory,
[fsfSearchForProject,fsfUseIncludePaths,fsfUseDebugPath]);
SrcFile := MainIDE.FindSourceFile(SrcFile, Project1.ProjectDirectory,
[fsfSearchForProject, fsfUseIncludePaths, fsfUseDebugPath]);
if SrcFile = '' then SrcFile := Filename;
if not FilenameIsAbsolute(SrcFile)
@ -1168,11 +1168,14 @@ begin
end;
end;
if (not FilenameIsAbsolute(SrcFile)) then begin
AnUnitInfo:=Project1.FindFile(SrcFile,[pfsfOnlyEditorFiles]);
if AnUnitInfo<>nil then begin
if not FilenameIsAbsolute(SrcFile) then
begin
AnUnitInfo := Project1.FindFile(SrcFile, [pfsfOnlyEditorFiles]);
if AnUnitInfo <> nil then
begin
// the file is an unsaved file -> can not be extended
exit;
Result := True;
Exit;
end;
end;