Bläddra i källkod

Accept both mips and mipseb as architecture

git-svn-id: trunk@25545 -
pierre 12 år sedan
förälder
incheckning
7ab7dcc846
2 ändrade filer med 3 tillägg och 2 borttagningar
  1. 1 1
      utils/fpcres/paramparser.pas
  2. 2 1
      utils/fpcres/target.pas

+ 1 - 1
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);

+ 2 - 1
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