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

IDE: fixed PkgSrcPath macro to return the unit paths plus src paths

Browse Source 
git-svn-id: trunk@27363 -
This commit is contained in:
mattias 2010-09-14 16:14:52 +00:00
parent 0e6e2f89de
commit 3844f28951
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/packagedefs.pas
View File

@ -664,6 +664,7 @@ type
function GetPOOutDirectory: string;
function GetUnitPath(RelativeToBaseDir: boolean): string;
function GetIncludePath(RelativeToBaseDir: boolean): string;
function GetSrcPath(RelativeToBaseDir: boolean): string;
function NeedsDefineTemplates: boolean;
function SubstitutePkgMacros(const s: string;
PlatformIndependent: boolean): string;
@ -3406,6 +3407,11 @@ begin
Result:=CompilerOptions.GetIncludePath(RelativeToBaseDir);
end;
function TLazPackage.GetSrcPath(RelativeToBaseDir: boolean): string;
begin
Result:=CompilerOptions.GetSrcPath(RelativeToBaseDir);
end;
function TLazPackage.NeedsDefineTemplates: boolean;
begin
if IsVirtual or AutoCreated or (lpfDestroying in Flags) or (Name='') then

2
packager/packagesystem.pas
View File

@ -695,7 +695,7 @@ begin
FuncData:=PReadFunctionData(Data);
Result:=GetPackageFromMacroParameter(FuncData^.Param,APackage);
if Result then
FuncData^.Result:=APackage.SourceDirectories.CreateSearchPathFromAllFiles;
FuncData^.Result:=APackage.GetUnitPath(false)+';'+APackage.GetSrcPath(false);
end;
function TLazPackageGraph.MacroFunctionCTPkgUnitPath(Data: Pointer): boolean;