paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 13:01:45 +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 for aMachine:=low(TMachineType) to high(TMachineType) do
begin begin
if Machines[aMachine].name=tmp then if (Machines[aMachine].name=tmp) or (Machines[aMachine].alias = tmp) then
begin begin
fTarget.machine:=aMachine; fTarget.machine:=aMachine;
fTarget.submachine:=GetDefaultSubMachineForMachine(fTarget.machine); fTarget.submachine:=GetDefaultSubMachineForMachine(fTarget.machine);

3
utils/fpcres/target.pas
View File

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