paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 21:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: open lpk: always resolve symlinks in lpk filename, because package directory is used as working directory for fpc

Browse Source 
git-svn-id: trunk@45249 -
This commit is contained in:
mattias 2014-05-30 14:41:30 +00:00
parent 62828003be
commit 67dd475567
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/pkgmanager.pas
View File

@ -48,7 +48,7 @@ uses
contnrs, StringHashList, Translations, LResources, contnrs, StringHashList, Translations, LResources,
// codetools // codetools
CodeToolsConfig, CodeToolManager, CodeCache, CodeToolsStructs, BasicCodeTools, CodeToolsConfig, CodeToolManager, CodeCache, CodeToolsStructs, BasicCodeTools,
FileProcs, Laz2_XMLCfg, lazutf8classes, LazFileUtils, FileProcs, Laz2_XMLCfg, lazutf8classes, LazFileUtils, LazFileCache,
// IDE Interface // IDE Interface
SrcEditorIntf, NewItemIntf, ProjectIntf, PackageIntf, CompOptsIntf, SrcEditorIntf, NewItemIntf, ProjectIntf, PackageIntf, CompOptsIntf,
MenuIntf, IDEWindowIntf, PropEdits, MacroIntf, LazIDEIntf, MenuIntf, IDEWindowIntf, PropEdits, MacroIntf, LazIDEIntf,
@ -2245,7 +2245,7 @@ begin
if not GlobalMacroList.SubstituteStr(AFilename) then exit(mrCancel); if not GlobalMacroList.SubstituteStr(AFilename) then exit(mrCancel);
end; end;
AFilename:=CleanAndExpandFilename(AFilename); AFilename:=GetPhysicalFilenameCached(CleanAndExpandFilename(AFilename),false);
// check file extension // check file extension
if (CompareFileExt(AFilename,'.lpk',false)<>0) if (CompareFileExt(AFilename,'.lpk',false)<>0)