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

IDE: comment

Browse Source 
git-svn-id: trunk@54069 -
This commit is contained in:
mattias 2017-02-02 11:23:57 +00:00
parent 0b272c3409
commit e5eb17948e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcefilemanager.pas
View File

@ -1227,6 +1227,8 @@ begin
end; end;
// check if symlink and ask user if the real file should be opened instead // check if symlink and ask user if the real file should be opened instead
// Note that compiler never resolves symlinks, so files in the compiler
// search path must not be resolved.
if FilenameIsAbsolute(FFileName) then begin if FilenameIsAbsolute(FFileName) then begin
s:=CodeToolBoss.GetCompleteSrcPathForDirectory(''); s:=CodeToolBoss.GetCompleteSrcPathForDirectory('');
if SearchDirectoryInSearchPath(s,ExtractFilePath(FFileName))<1 then if SearchDirectoryInSearchPath(s,ExtractFilePath(FFileName))<1 then