paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 06:33:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: removed olf fpc 1.0 defines

Browse Source 
git-svn-id: trunk@41481 -
This commit is contained in:
mattias 2013-06-01 09:07:27 +00:00
parent 8ad02e1a94
commit f665dbdab2
1 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/codetools/definetemplates.pas
View File

@ -1906,31 +1906,6 @@ var
Result:=SetDirSeparators(Filenames); Result:=SetDirSeparators(Filenames);
end; end;
procedure AddProcessorTypeDefine(ParentDefTempl: TDefineTemplate);
// some FPC source files expects defines 'i386' instead of 'CPUi386'
// define them automatically with IF..THEN constructs
var
i: Integer;
CPUName: String;
IfTemplate: TDefineTemplate;
begin
// FPC defines CPUxxx defines (e.g. CPUI386, CPUPOWERPC).
// These defines are created by the compiler depending
// on xxx defines (i386, powerpc).
// Create:
// IF CPUi386 then define i386
// IF CPUpowerpc then define powerpc
// ...
for i:=Low(FPCProcessorNames) to high(FPCProcessorNames) do begin
CPUName:=FPCProcessorNames[i];
IfTemplate:=TDefineTemplate.Create('IFDEF CPU'+CPUName,
'IFDEF CPU'+CPUName,'CPU'+CPUName,'',da_IfDef);
IfTemplate.AddChild(TDefineTemplate.Create('DEFINE '+CPUName,
'DEFINE '+CPUName,CPUName,'',da_DefineRecurse));
ParentDefTempl.AddChild(IfTemplate);
end;
end;
procedure AddSrcOSDefines(ParentDefTempl: TDefineTemplate); procedure AddSrcOSDefines(ParentDefTempl: TDefineTemplate);
var var
IfTargetOSIsNotSrcOS: TDefineTemplate; IfTargetOSIsNotSrcOS: TDefineTemplate;
@ -2079,7 +2054,6 @@ begin
RTLDir.AddChild(IFTempl); RTLDir.AddChild(IFTempl);
// add processor and SrcOS alias defines for the RTL // add processor and SrcOS alias defines for the RTL
AddProcessorTypeDefine(RTLDir);
AddSrcOSDefines(RTLDir); AddSrcOSDefines(RTLDir);
// rtl/$(#TargetOS) // rtl/$(#TargetOS)
@ -2243,7 +2217,6 @@ begin
// compiler // compiler
CompilerDir:=TDefineTemplate.Create('Compiler',ctsCompiler,'','compiler', CompilerDir:=TDefineTemplate.Create('Compiler',ctsCompiler,'','compiler',
da_Directory); da_Directory);
AddProcessorTypeDefine(CompilerDir);
CompilerDir.AddChild(TDefineTemplate.Create('SrcPath','SrcPath addition', CompilerDir.AddChild(TDefineTemplate.Create('SrcPath','SrcPath addition',
ExternalMacroStart+'SrcPath', ExternalMacroStart+'SrcPath',
SrcPathMacro+';'+Dir+TargetProcessor,da_Define)); SrcPathMacro+';'+Dir+TargetProcessor,da_Define));