paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

added include path for fpc compiler sources

Browse Source 
git-svn-id: trunk@9388 -
This commit is contained in:
mattias 2006-06-02 17:51:16 +00:00
parent 9642645b61
commit 20698952d6
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/definetemplates.pas
View File

@ -3362,15 +3362,6 @@ begin
ctsFPDocSystemOn,'FPDocSystem','',da_DefineRecurse); ctsFPDocSystemOn,'FPDocSystem','',da_DefineRecurse);
MainDir.AddChild(DefTempl);} MainDir.AddChild(DefTempl);}
// compiler
CompilerDir:=TDefineTemplate.Create('Compiler',ctsCompiler,'','compiler',
da_Directory);
AddProcessorTypeDefine(CompilerDir);
CompilerDir.AddChild(TDefineTemplate.Create('SrcPath','SrcPath addition',
ExternalMacroStart+'SrcPath',
SrcPathMacro+';'+Dir+TargetProcessor,da_Define));
MainDir.AddChild(CompilerDir);
// rtl // rtl
RTLDir:=TDefineTemplate.Create('RTL',ctsRuntimeLibrary,'','rtl',da_Directory); RTLDir:=TDefineTemplate.Create('RTL',ctsRuntimeLibrary,'','rtl',da_Directory);
MainDir.AddChild(RTLDir); MainDir.AddChild(RTLDir);
@ -3485,6 +3476,18 @@ begin
SrcPathMacro+';'+Dir+'ide;'+Dir+'fv',da_Define)); SrcPathMacro+';'+Dir+'ide;'+Dir+'fv',da_Define));
MainDir.AddChild(InstallerDir); MainDir.AddChild(InstallerDir);
// compiler
CompilerDir:=TDefineTemplate.Create('Compiler',ctsCompiler,'','compiler',
da_Directory);
AddProcessorTypeDefine(CompilerDir);
CompilerDir.AddChild(TDefineTemplate.Create('SrcPath','SrcPath addition',
ExternalMacroStart+'SrcPath',
SrcPathMacro+';'+Dir+TargetProcessor,da_Define));
CompilerDir.AddChild(TDefineTemplate.Create('IncPath','IncPath addition',
ExternalMacroStart+'IncPath',
IncPathMacro+';'+Dir+'compiler',da_DefineRecurse));
MainDir.AddChild(CompilerDir);
// clean up // clean up
if UnitTree<>nil then begin if UnitTree<>nil then begin
UnitTree.FreeAndClear; UnitTree.FreeAndClear;