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

IDE: improve mapping between target CPU and processor type. Issue #20311

Browse Source 
git-svn-id: trunk@42791 -
This commit is contained in:
juha 2013-09-14 09:05:01 +00:00
parent 07d52d2075
commit 543ef33806
1 changed files with 37 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/frames/compiler_config_target.pas
View File

@ -203,6 +203,17 @@ procedure TCompilerConfigTargetFrame.UpdateByTargetCPU(aTargetCPU: string);
var
IsIntel: Boolean;
procedure Arm(aList: TStrings);
begin
aList.Add('ARMV3');
aList.Add('ARMV4');
aList.Add('ARMV5');
aList.Add('ARMV6');
aList.Add('ARMV7');
aList.Add('ARMV7M');
aList.Add('CORTEXM3');
end;
procedure Intel_i386(aList: TStrings);
begin
IsIntel := True;
@ -220,6 +231,24 @@ var
aList.Add('ATHLON64');
end;
procedure Sparc(aList: TStrings);
begin
aList.Add('SPARC V7');
aList.Add('SPARC V8');
aList.Add('SPARC V9');
end;
procedure Mips(aList: TStrings);
begin
aList.Add('mips1');
aList.Add('mips2');
aList.Add('mips3');
aList.Add('mips4');
aList.Add('mips5');
aList.Add('mips32');
aList.Add('mips32r2');
end;
var
DbgMsg: String;
ParsingFrame: TCompilerParsingOptionsFrame;
@ -239,15 +268,15 @@ begin
TargetProcComboBox.Clear;
TargetProcComboBox.Items.Add('('+lisDefault+')');
case aTargetCPU of
'arm': begin end;
'i386': Intel_i386(TargetProcComboBox.Items);
'm68k': begin end;
'arm' : Arm(TargetProcComboBox.Items);
'i386' : Intel_i386(TargetProcComboBox.Items);
'm68k' : begin end;
'powerpc': begin end;
'sparc': begin end;
'x86_64': Intel_x86_64(TargetProcComboBox.Items);
'mipsel': begin end;
'mips': begin end;
'jvm': begin end;
'sparc' : Sparc(TargetProcComboBox.Items);
'x86_64' : Intel_x86_64(TargetProcComboBox.Items);
'mipsel' : Mips(TargetProcComboBox.Items);
'mips' : Mips(TargetProcComboBox.Items);
'jvm' : begin end;
end;
TargetProcComboBox.ItemIndex := 0;