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

Accept both mips and mipseb as architecture

Browse Source 
git-svn-id: trunk@25545 -
This commit is contained in:
pierre 2013-09-24 12:23:41 +00:00
parent 52a5ffc386
commit 7ab7dcc846
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpcres/paramparser.pas
View File

@ -241,7 +241,7 @@ begin
for aMachine:=low(TMachineType) to high(TMachineType) do
begin
if Machines[aMachine].name=tmp then
if (Machines[aMachine].name=tmp) or (Machines[aMachine].alias = tmp) then
begin
fTarget.machine:=aMachine;
fTarget.submachine:=GetDefaultSubMachineForMachine(fTarget.machine);

3
utils/fpcres/target.pas
View File

@ -46,6 +46,7 @@ type
TMachineInfo = record
name : string;
formats : TObjFormats;
alias : string;
end;
TFormatInfo = record
@ -80,7 +81,7 @@ var
(name : 'sparc'; formats : [ofElf]), //mtsparc
(name : 'alpha'; formats : [ofElf]), //mtalpha
(name : 'ia64'; formats : [ofElf]), //mtia64
(name : 'mips'; formats : [ofElf]), //mtmips
(name : 'mips'; formats : [ofElf]; alias : 'mipseb'), //mtmips
(name : 'mipsel'; formats : [ofElf]), //mtmipsel
(name : 'bigendian'; formats : [ofExt]), //mtBigEndian
(name : 'littleendian'; formats : [ofExt]) //mtLittleEndian