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

IDE: create package uses section: use disk file names

Browse Source 
git-svn-id: trunk@41582 -
This commit is contained in:
mattias 2013-06-07 12:24:44 +00:00
parent e1df88cc73
commit 985a7b4d07
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packager/packagesystem.pas
View File

@ -4331,6 +4331,7 @@ begin
NeedsRegisterProcCall:=CurFile.HasRegisterProc
and (APackage.PackageType in [lptDesignTime,lptRunAndDesignTime]);
AFilename:=CodeToolBoss.DirectoryCachePool.FindDiskFilename(AFilename,true);
CurUnitName:=ExtractFileNameOnly(AFilename);
if not (NeedsRegisterProcCall or CurFile.AddToUsesPkgSection) then