From 7ab7dcc846d9c35af0d362621d3a813248bcdcee Mon Sep 17 00:00:00 2001 From: pierre Date: Tue, 24 Sep 2013 12:23:41 +0000 Subject: [PATCH] Accept both mips and mipseb as architecture git-svn-id: trunk@25545 - --- utils/fpcres/paramparser.pas | 2 +- utils/fpcres/target.pas | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/utils/fpcres/paramparser.pas b/utils/fpcres/paramparser.pas index 0980838638..ab0ff926b3 100644 --- a/utils/fpcres/paramparser.pas +++ b/utils/fpcres/paramparser.pas @@ -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); diff --git a/utils/fpcres/target.pas b/utils/fpcres/target.pas index 992b1c884b..ac165f5788 100644 --- a/utils/fpcres/target.pas +++ b/utils/fpcres/target.pas @@ -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