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

IDE+lazbuild: target processor: changed -Op to -Cp, the -Op is only for optimization

Browse Source 
git-svn-id: trunk@45878 -
This commit is contained in:
mattias 2014-07-15 13:00:24 +00:00
parent d44a2412b8
commit 8d3f97d41e
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/compileroptions.pp
View File

@ -3108,7 +3108,7 @@ begin
switches := switches + ' -P' + CurTargetCPU; switches := switches + ' -P' + CurTargetCPU;
{ TargetProcessor } { TargetProcessor }
if TargetProcessor<>'' then if TargetProcessor<>'' then
Switches:=Switches+' -Op'+UpperCase(TargetProcessor); Switches:=Switches+' -Cp'+UpperCase(TargetProcessor);
{ --------------- Linking Tab ------------------- } { --------------- Linking Tab ------------------- }

26
ide/frames/compiler_config_target.pas
View File

@ -95,17 +95,17 @@ begin
if aProcessor = '' then if aProcessor = '' then
Result := '('+lisDefault+')' Result := '('+lisDefault+')'
else if CompareText(aProcessor, '80386') = 0 then else if CompareText(aProcessor, '80386') = 0 then
Result := '386/486 (-Op80386)' Result := '386/486 (-Cp80386)'
else if CompareText(aProcessor, 'pentium') = 0 then else if CompareText(aProcessor, 'pentium') = 0 then
Result := 'Pentium/Pentium MMX (-OpPENTIUM)' Result := 'Pentium/Pentium MMX (-CpPENTIUM)'
else if CompareText(aProcessor, 'pentium2') = 0 then else if CompareText(aProcessor, 'pentium2') = 0 then
Result := 'Pentium Pro/Pentium II/C6x86/K6 (-OpPENTIUM2)' Result := 'Pentium Pro/Pentium II/C6x86/K6 (-CpPENTIUM2)'
else if CompareText(aProcessor, 'pentium3') = 0 then else if CompareText(aProcessor, 'pentium3') = 0 then
Result := 'Pentium III (-OpPENTIUM3)' Result := 'Pentium III (-CpPENTIUM3)'
else if CompareText(aProcessor, 'pentium4') = 0 then else if CompareText(aProcessor, 'pentium4') = 0 then
Result := 'Pentium IV (-OpPENTIUM4)' Result := 'Pentium IV (-CpPENTIUM4)'
else if CompareText(aProcessor, 'pentiumm') = 0 then else if CompareText(aProcessor, 'pentiumm') = 0 then
Result := 'Pentium M (-OpPENTIUMM)' Result := 'Pentium M (-CpPENTIUMM)'
else else
Result := aProcessor; Result := aProcessor;
end; end;
@ -115,17 +115,17 @@ function CaptionToProcessor(const aCaption: string): string;
begin begin
if aCaption = '('+lisDefault+')' then if aCaption = '('+lisDefault+')' then
Result := '' Result := ''
else if Pos('-Op80386', aCaption) > 0 then else if Pos('-Cp80386', aCaption) > 0 then
Result := '80386' Result := '80386'
else if Pos('-OpPENTIUMM', aCaption) > 0 then else if Pos('-CpPENTIUMM', aCaption) > 0 then
Result := 'pentiumm' Result := 'pentiumm'
else if Pos('-OpPENTIUM4', aCaption) > 0 then else if Pos('-CpPENTIUM4', aCaption) > 0 then
Result := 'pentium4' Result := 'pentium4'
else if Pos('-OpPENTIUM3', aCaption) > 0 then else if Pos('-CpPENTIUM3', aCaption) > 0 then
Result := 'pentium3' Result := 'pentium3'
else if Pos('-OpPENTIUM2', aCaption) > 0 then else if Pos('-CpPENTIUM2', aCaption) > 0 then
Result := 'pentium2' Result := 'pentium2'
else if Pos('-OpPENTIUM', aCaption) > 0 then else if Pos('-CpPENTIUM', aCaption) > 0 then
Result := 'pentium' Result := 'pentium'
else else
Result := aCaption; Result := aCaption;
@ -273,7 +273,7 @@ begin
ItemIndex := 0; ItemIndex := 0;
end; end;
lblTargetProc.Caption := dlgTargetProc+' (-Op)'; lblTargetProc.Caption := dlgTargetProc+' (-Cp)';
LCLWidgetTypeLabel.Caption := lisSelectAnotherLCLWidgetSetMacroLCLWidgetType; LCLWidgetTypeLabel.Caption := lisSelectAnotherLCLWidgetSetMacroLCLWidgetType;
// Target options // Target options