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

IDE, Code Generation options: changed wrong -Op386 option to correct -Op80386. Patch by barlone with some consistency changes, bug #22062.

Browse Source 
git-svn-id: trunk@37327 -
This commit is contained in:
maxim 2012-05-18 23:44:00 +00:00
parent 15e9aa53b6
commit 7ba5f9b762
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/frames/compiler_codegen_options.pas
View File

@ -69,8 +69,8 @@ end;
function ProcessorToCaption(const Processor: string): string;
begin
if SysUtils.CompareText(Processor, '386') = 0 then
Result := '386/486' + ' (-Op386)'
if SysUtils.CompareText(Processor, '80386') = 0 then
Result := '386/486 (-Op80386)'
else if SysUtils.CompareText(Processor, 'pentium') = 0 then
Result := 'Pentium/Pentium MMX (-OpPENTIUM)'
else if SysUtils.CompareText(Processor, 'pentium2') = 0 then
@ -87,8 +87,8 @@ end;
function CaptionToProcessor(const Caption: string): string;
begin
if System.Pos('-Op386', Caption) > 0 then
Result := '386'
if System.Pos('-Op80386', Caption) > 0 then
Result := '80386'
else if System.Pos('-OpPENTIUMM', Caption) > 0 then
Result := 'pentiumm'
else if System.Pos('-OpPENTIUM4', Caption) > 0 then
@ -202,7 +202,7 @@ begin
begin
Clear;
Add(ProcessorToCaption(''));
Add(ProcessorToCaption('386'));
Add(ProcessorToCaption('80386'));
Add(ProcessorToCaption('Pentium'));
Add(ProcessorToCaption('Pentium2'));
Add(ProcessorToCaption('Pentium3'));