1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
{
Copyright (c) 1998-2002 by Florian Klaempfl
This unit contains the Risc-V32 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
gas_op2str : array[tasmop] of string[14] = ('<none>',
'lui','auipc','jal','jalr',
'b','lb','lh','lw','lbu','lhu',
'sb','sh','sw',
'addi','slti','sltiu',
'xori','ori','andi',
'slli','srli','srai',
'add','sub','sll','slt','sltu',
'xor','srl','sra','or','and',
'fence','fence.i','scall','sbreak',
'rdcycle','rdcycleh','rdtime','rdtimeh','rdinstret','rdinstreth',
{ m-extension }
'mul','mulh','mulhsu','mulhu',
'div','divu','rem','remu',
{ a-extension }
'lr','sc','amoswap','amoadd','amoxor','amoand',
'amoor','amomin','amomax','amominu','amomaxu',
{ f-extension }
'flw','fsw',
'fmadd.s','fmsub.s','fnmsub.s','fnmadd.s',
'fadd.s','fsub.s','fmul.s','fdiv.s',
'fsqrt.s','fsgnj.s','fsgnjn.s','fsgnjx.s',
'fmin.s','fmax.s',
'fmv.x.s','feq.s','flt.s','fle.s','fclass.s',
'fcvt.w.s','fcvt.wu.s','fcvt.s.w','fcvt.s.wu',
'fmv.s.x',
'frcsr','frrm','frflags','fscsr','fsrm',
'fsflags','fsrmi','fsflagsi',
{ d-extension }
'fld','fsd',
'fmadd.d','fmsub.d','fnmsub.d','fnmadd.d',
'fadd.d','fsub.d','fmul.d','fdiv.d',
'fsqrt.d','fsgnj.d','fsgnjn.d','fsgnjx.d',
'fmin.d','fmax.d',
'feq.d','flt.d','fle.d','fclass.d',
'fcvt.d.s','fcvt.s.d',
'fcvt.w.d','fcvt.wu.d','fcvt.d.w','fcvt.d.wu');
function gas_regnum_search(const s:string):Tregister;
function gas_regname(r:Tregister):string;
implementation
uses
globtype,globals,aasmbase,
cutils,verbose, systems,
rgbase;
const
gas_regname_table : TRegNameTable = (
{$i rrv32std.inc}
);
gas_regname_index : array[tregisterindex] of tregisterindex = (
{$i rrv32sri.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.
|