paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* nice PentiumM string

Browse Source 
* fixed duplicate shortcuts

git-svn-id: trunk@8738 -
This commit is contained in:
florian 2007-10-07 17:23:56 +00:00
parent 218aa2dd1d
commit 5c288f06c7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpswitch.pas
View File

@ -261,10 +261,11 @@ const
opt_level3optimizations = 'Level ~3~ optimizations';
{ optimization processor target }
opt_i386486 = 'i~3~86/i486';
opt_pentium = 'Pentium (tm)';
opt_pentium = 'P~e~ntium (tm)';
opt_pentiummmx = 'PentiumMM~X~ (tm)';
opt_pentiumpro = '~P~entium2/PentiumM/AMD';
opt_pentiumiv = 'Pentium~4~';
opt_pentiumm = 'Pentium~M~';
opt_m68000 = 'm~6~8000';
opt_m68020 = 'm680~2~0';
{ Assembler options }
@ -1249,6 +1250,8 @@ begin
st:=opt_pentiumpro;
if st='PENTIUM4' then
st:=opt_pentiumiv;
if st='PENTIUMM' then
st:=opt_pentiumM;
{$endif not I386}
{$ifdef m68k}
if st='68000' then
@ -1277,6 +1280,8 @@ begin
st:=opt_pentiumpro;
if st='PENTIUM4' then
st:=opt_pentiumiv;
if st='PENTIUMM' then
st:=opt_pentiumM;
{$endif not I386}
{$ifdef m68k}
if st='68000' then
@ -1284,6 +1289,10 @@ begin
if st='68020' then
st:=opt_m68020;
{$endif m68k}
{ we use the string twice so kill duplicate highlights }
while pos('~',st)<>0 do
delete(st,pos('~',st),1);
if st<>'' then
AddSelectItem(st,'p'+cputypestr[cpu],idNone);
end;