paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:56:16 +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;
{ TargetProcessor }
if TargetProcessor<>'' then
Switches:=Switches+' -Op'+UpperCase(TargetProcessor);
Switches:=Switches+' -Cp'+UpperCase(TargetProcessor);
{ --------------- Linking Tab ------------------- }

26
ide/frames/compiler_config_target.pas
View File

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