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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#include <orc/orcmips.h>
#include <orc/orcdebug.h>
#include <stdlib.h>
void
mips_rule_load (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src = compiler->vars[insn->src_args[0]].ptr_register;
int dest = compiler->vars[insn->dest_args[0]].alloc;
/* such that 2^total_shift is the amount to load at a time */
int total_shift = compiler->insn_shift + ORC_PTR_TO_INT (user);
ORC_DEBUG ("insn_shift=%d", compiler->insn_shift);
/* FIXME: Check alignment. We are assuming data is aligned here */
switch (total_shift) {
case 0:
orc_mips_emit_lb (compiler, dest, src, 0);
break;
case 1:
orc_mips_emit_lh (compiler, dest, src, 0);
break;
case 2:
orc_mips_emit_lw (compiler, dest, src, 0);
break;
default:
ORC_PROGRAM_ERROR(compiler, "Don't know how to handle that shift");
}
}
void
mips_rule_store (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src = compiler->vars[insn->src_args[0]].alloc;
int dest = compiler->vars[insn->dest_args[0]].ptr_register;
int total_shift = compiler->insn_shift + ORC_PTR_TO_INT (user);
ORC_DEBUG ("insn_shift=%d", compiler->insn_shift);
/* FIXME: Check alignment. We are assuming data is aligned here */
switch (total_shift) {
case 0:
orc_mips_emit_sb (compiler, src, dest, 0);
break;
case 1:
orc_mips_emit_sh (compiler, src, dest, 0);
break;
case 2:
orc_mips_emit_sw (compiler, src, dest, 0);
break;
default:
ORC_PROGRAM_ERROR(compiler, "Don't know how to handle that shift");
}
}
void
mips_rule_addl (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src1 = ORC_SRC_ARG (compiler, insn, 0);
int src2 = ORC_SRC_ARG (compiler, insn, 1);
int dest = ORC_DEST_ARG (compiler, insn, 0);
orc_mips_emit_add (compiler, dest, src1, src2);
}
void
mips_rule_addw (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src1 = ORC_SRC_ARG (compiler, insn, 0);
int src2 = ORC_SRC_ARG (compiler, insn, 1);
int dest = ORC_DEST_ARG (compiler, insn, 0);
orc_mips_emit_add (compiler, dest, src1, src2);
}
void
mips_rule_addb (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src1 = ORC_SRC_ARG (compiler, insn, 0);
int src2 = ORC_SRC_ARG (compiler, insn, 1);
int dest = ORC_DEST_ARG (compiler, insn, 0);
switch (compiler->insn_shift) {
case 0:
orc_mips_emit_addu (compiler, dest, src1, src2);
break;
case 1:
case 2:
orc_mips_emit_addu_qb (compiler, dest, src1, src2);
break;
default:
ORC_PROGRAM_ERROR (compiler, "Don't know how to handle that insn_shift");
}
}
void
mips_rule_copyl (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src = ORC_SRC_ARG (compiler, insn, 0);
int dest = ORC_DEST_ARG (compiler, insn, 0);
orc_mips_emit_move (compiler, dest, src);
}
void
mips_rule_copyw (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src = ORC_SRC_ARG (compiler, insn, 0);
int dest = ORC_DEST_ARG (compiler, insn, 0);
orc_mips_emit_move (compiler, dest, src);
}
void
mips_rule_copyb (OrcCompiler *compiler, void *user, OrcInstruction *insn)
{
int src = ORC_SRC_ARG (compiler, insn, 0);
int dest = ORC_DEST_ARG (compiler, insn, 0);
orc_mips_emit_move (compiler, dest, src);
}
void
orc_compiler_orc_mips_register_rules (OrcTarget *target)
{
OrcRuleSet *rule_set;
rule_set = orc_rule_set_new (orc_opcode_set_get("sys"), target, 0);
orc_rule_register (rule_set, "loadl", mips_rule_load, (void *) 2);
orc_rule_register (rule_set, "loadw", mips_rule_load, (void *) 1);
orc_rule_register (rule_set, "loadb", mips_rule_load, (void *) 0);
orc_rule_register (rule_set, "storel", mips_rule_store, (void *)2);
orc_rule_register (rule_set, "storew", mips_rule_store, (void *)1);
orc_rule_register (rule_set, "storeb", mips_rule_store, (void *)0);
orc_rule_register (rule_set, "addl", mips_rule_addl, NULL);
orc_rule_register (rule_set, "addw", mips_rule_addw, NULL);
orc_rule_register (rule_set, "addb", mips_rule_addb, NULL);
orc_rule_register (rule_set, "copyl", mips_rule_copyl, NULL);
orc_rule_register (rule_set, "copyw", mips_rule_copyw, NULL);
orc_rule_register (rule_set, "copyb", mips_rule_copyb, NULL);
}
|
