1 files changed, 116 insertions, 0 deletions
diff --git a/compiler/mips/itcpugas.pas b/compiler/mips/itcpugas.pas
new file mode 100644
index 0000000000..c1fa15d809
--- /dev/null
+++ b/compiler/mips/itcpugas.pas
@@ -0,0 +1,116 @@
+{
+    Copyright (c) 1998-2005 by Florian Klaempfl
+
+    This unit contains the MIPS GAS instruction tables
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+unit itcpugas;
+
+{$i fpcdefs.inc}
+
+interface
+
+  uses
+    cpubase,cgbase;
+
+
+  const
+    { Standard opcode string table (for each tasmop enumeration). The
+      opcode strings should conform to the names as defined by the
+      processor manufacturer.
+    }
+    gas_op2str : op2strtable = (
+              'abs_d','abs_s','add','add_d','add_s','addi','addiu','addu',
+              'and','andi','bc1f','bc1fl','bc1t','bc1tl','bc2f','bc2fl',
+              'bc2t','bc2tl','beq','beql','bgez','bgezal','bgezall','bgezl',
+              'bgtz','bgtzl','blez','blezl','bltz','bltzal','bltzall','bltzl',
+              'bne','bnel','break','c_cond_d','c_cond_s','cache','ceil_w_d','ceil_w_s',
+              'cfc1','cfc2','clo','clz','cop2','ctc1','ctc2','cvt_d_s',
+              'cvt_d_w','cvt_s_d','cvt_s_w','cvt_w_d','cvt_w_s','div','div_d','div_s',
+              'divu','eret','floor_w_d','floor_w_s','j','jal','jalr','jr',
+              'lb','lbu','ldc1','ldc2','lh','lhu','ll','lui',
+              'lw','lwc1','lwc2','lwl','lwr','madd','maddu','mfc0',
+              'mfc1','mfc2','mfhi','mflo','mov_d','mov_s','movf','movf_d',
+              'movf_s','movn','movn_d','movn_s','movt','movt_d','movt_s','movz',
+              'movz_d','movz_s','msub','msubu','mtc0','mtc1','mtc2','mthi',
+              'mtlo','mul','mul_d','mul_s','mult','multu','neg_d','neg_s',
+              'nor','or','ori','pref','round_w_d','round_w_s','sb','sc',
+              'sdc1','sdc2','sh','sll','sllv','slt','slti','sltiu',
+              'sltu','sqrt_d','sqrt_s','sra','srav','srl','srlv','ssnop',
+              'sub','sub_d','sub_s','subu','sw','swc1','swc2','swl',
+              'swr','sync','syscall','teq','teqi','tge','tgei','tgeiu',
+              'tgeu','tlbp','tlbr','tlbwi','tlbwr','tlt','tlti','tltiu',
+              'tltu','tne','tnei','trunc_w_d','trunc_w_s','wait','xor','xori'
+             );
+
+
+    function gas_regnum_search(const s:string):Tregister;
+    function gas_regname(r:Tregister):string;
+
+
+implementation
+
+    uses
+      cutils,verbose;
+
+    const
+      gas_regname_table : array[tregisterindex] of string[7] = (
+        {$i rmipsgas.inc}
+      );
+
+      gas_regname_index : array[tregisterindex] of tregisterindex = (
+        {$i rmipssri.inc}
+      );
+
+    function findreg_by_gasname(const s:string):tregisterindex;
+      var
+        i,p : tregisterindex;
+      begin
+        {Binary search.}
+        p:=0;
+        i:=regnumber_count_bsstart;
+        repeat
+          if (p+i<=high(tregisterindex)) and (gas_regname_table[gas_regname_index[p+i]]<=s) then
+            p:=p+i;
+          i:=i shr 1;
+        until i=0;
+        if gas_regname_table[gas_regname_index[p]]=s then
+          findreg_by_gasname:=gas_regname_index[p]
+        else
+          findreg_by_gasname:=0;
+      end;
+
+
+    function gas_regnum_search(const s:string):Tregister;
+      begin
+        result:=regnumber_table[findreg_by_gasname(s)];
+      end;
+
+
+    function gas_regname(r:Tregister):string;
+      var
+        p : tregisterindex;
+      begin
+        p:=findreg_by_number(r);
+        if p<>0 then
+          result:=gas_regname_table[p]
+        else
+          result:=generic_regname(r);
+      end;
+
+end.