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

aded ibase src path to fcl interbase dir

Browse Source 
git-svn-id: trunk@4526 -
This commit is contained in:
mattias 2003-08-26 10:22:30 +00:00
parent 414c67d333
commit 12db19c7f6
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/codetools/definetemplates.pas
View File

@ -2925,6 +2925,9 @@ var
UtilsDir, DebugSvrDir: TDefineTemplate;
s: string;
RTLWin32Dir: TDefineTemplate;
FCLDBDir: TDefineTemplate;
FCLDBInterbaseDir: TDefineTemplate;
SrcPathMacro: String;
begin
//writeln('CreateFPCSrcTemplate ',FPCSrcDir,': ',length(UnitSearchPath),' Valid=',UnitLinkListValid,' PPUExt=',PPUExt);
Result:=nil;
@ -2936,6 +2939,7 @@ begin
SrcOS:='$('+ExternalMacroStart+'SrcOS)';
TargetProcessor:='$('+ExternalMacroStart+'TargetProcessor)';
IncPathMacro:='$('+ExternalMacroStart+'IncPath)';
SrcPathMacro:='$('+ExternalMacroStart+'SrcPath)';
UnitLinks:=ExternalMacroStart+'UnitLinks';
UnitTree:=nil;
@ -3022,6 +3026,17 @@ begin
+';'+Dir+'fcl'+DS+'inc'+DS
+';'+Dir+'fcl'+DS+SrcOS+DS
,da_DefineRecurse));
FCLDBDir:=TDefineTemplate.Create('DB','DB','','db',da_Directory);
FCLDir.AddChild(FCLDBDir);
FCLDBInterbaseDir:=TDefineTemplate.Create('interbase','interbase','',
'interbase',da_Directory);
FCLDBDir.AddChild(FCLDBInterbaseDir);
FCLDBInterbaseDir.AddChild(TDefineTemplate.Create('SrcPath',
'SrcPath addition',
ExternalMacroStart+'SrcPath',
SrcPathMacro
+';'+Dir+'packages'+DS+'base'+DS+'ibase'
,da_Define));
// packages
PackagesDir:=TDefineTemplate.Create('Packages',ctsPackageDirectories,'',