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

codetools: added defines for FPC fcl-base/src include dirs

Browse Source 
git-svn-id: trunk@13493 -
This commit is contained in:
mattias 2007-12-28 00:34:06 +00:00
parent 82e314a897
commit e62b25127e
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/definetemplates.pas
View File

@ -3780,6 +3780,19 @@ begin
ctsFreePascalComponentLibrary,'','fcl-base',
da_Directory);
PackagesDir.AddChild(FCLBaseDir);
// packages/fcl-base/src
FCLBaseSrcDir:=TDefineTemplate.Create('src',
'src','','src',
da_Directory);
FCLBaseDir.AddChild(FCLBaseSrcDir);
FCLBaseSrcDir.AddChild(TDefineTemplate.Create('Include Path',
Format(ctsIncludeDirectoriesPlusDirs,['inc,'+SrcOS]),
ExternalMacroStart+'IncPath',
d( DefinePathMacro+'/inc/'
+';'+DefinePathMacro+'/'+TargetOS+DS // TargetOS before SrcOS !
+';'+DefinePathMacro+'/'+SrcOS+DS
+';'+IncPathMacro)
,da_DefineRecurse));
// packages/fcl-process
FCLSubDir:=TDefineTemplate.Create('FCL-process',
@ -3799,12 +3812,6 @@ begin
+';'+IncPathMacro)
,da_DefineRecurse));
// packages/fcl-base
FCLBaseDir:=TDefineTemplate.Create('FCL-base',
ctsFreePascalComponentLibrary,'','fcl-base',
da_Directory);
PackagesDir.AddChild(FCLBaseDir);
// packages/base
PackagesBaseDir:=TDefineTemplate.Create('base','base','','base',da_Directory);
PackagesDir.AddChild(PackagesBaseDir);