paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 10:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix -Cp option failure due to cputypestr array that must be uppercased

Browse Source 
git-svn-id: trunk@23446 -
This commit is contained in:
pierre 2013-01-18 17:09:28 +00:00
parent 5df0afb5c6
commit 9e6a2b868c
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/mips/cpugas.pas
View File

@ -100,7 +100,7 @@ unit cpugas;
{ ABI selection }
Replace(result,'$ABI','-mabi='+abitypestr[mips_abi]);
{ ARCH selection }
Replace(result,'$ARCH','-march='+cputypestr[mips_cpu]);
Replace(result,'$ARCH','-march='+lower(cputypestr[mips_cpu]));
end;
{****************************************************************************}

19
compiler/mips/cpuinfo.pas
View File

@ -77,16 +77,17 @@ Const
];
{ cpu strings as accepted by
GNU assembler in -arch=XXX option }
GNU assembler in -arch=XXX option
this ilist needs to be uppercased }
cputypestr : array[tcputype] of string[8] = ('',
{ cpu_mips_default } 'mips2',
{ cpu_mips1 } 'mips1',
{ cpu_mips2 } 'mips2',
{ cpu_mips3 } 'mips3',
{ cpu_mips4 } 'mips4',
{ cpu_mips5 } 'mips5',
{ cpu_mips32 } 'mips32',
{ cpu_mips32r2 } 'mips32r2'
{ cpu_mips_default } 'MIPS2',
{ cpu_mips1 } 'MIPS1',
{ cpu_mips2 } 'MIPS2',
{ cpu_mips3 } 'MIPS3',
{ cpu_mips4 } 'MIPS4',
{ cpu_mips5 } 'MIPS5',
{ cpu_mips32 } 'MIPS32',
{ cpu_mips32r2 } 'MIPS32R2'
);
mips_cpu : tcputype = cpu_mips_default;