codetools: include path for fpc src dir packages/rtl-*

git-svn-id: trunk@52554 -
This commit is contained in:
mattias 2016-06-22 11:23:09 +00:00
parent 07ac12da44
commit 9e4e6e88b3

View File

@ -2207,6 +2207,8 @@ end;
function CreateFPCSourceTemplate(FPCSrcDir: string; Owner: TObject
): TDefineTemplate;
const
RTLPkgDirs: array[1..4] of string = ('rtl-console','rtl-extra','rtl-objpas','rtl-unicode');
var
Dir, SrcOS, SrcOS2, aTargetCPU,
IncPathMacro: string;
@ -2274,7 +2276,7 @@ var
PkgExtraGraphDir: TDefineTemplate;
PkgExtraAMunitsDir: TDefineTemplate;
FCLSubSrcDir: TDefineTemplate;
FCLSubDir: TDefineTemplate;
FCLSubDir, SubPkgDir: TDefineTemplate;
Ok: Boolean;
begin
{$IFDEF VerboseFPCSrcScan}
@ -2390,7 +2392,6 @@ begin
ExternalMacroStart+'SrcPath',s,da_DefineRecurse));
RTLDir.AddChild(RTLOSDir);
// fcl
FCLDir:=TDefineTemplate.Create('FCL',ctsFreePascalComponentLibrary,'','fcl',
da_Directory);
@ -2422,6 +2423,16 @@ begin
'packages',da_Directory);
MainDir.AddChild(PackagesDir);
// packages/rtl-*
for s in RTLPkgDirs do begin
SubPkgDir:=TDefineTemplate.Create(s,s,'',s,da_Directory);
PackagesDir.AddChild(SubPkgDir);
SubPkgDir.AddChild(TDefineTemplate.Create('Include Path',
Format(ctsIncludeDirectoriesPlusDirs,['inc']),
IncludePathMacroName,
d(DefinePathMacro+'/inc'),da_DefineRecurse));
end;
// packages/fcl-base
FCLBaseDir:=TDefineTemplate.Create('FCL-base',
ctsFreePascalComponentLibrary,'','fcl-base',