200 lines
No EOL
3.6 KiB
C
200 lines
No EOL
3.6 KiB
C
#include "rules.y"
|
|
| OP_LI GPR ',' expr
|
|
{
|
|
word_t reg = $2;
|
|
word_t type = $4.typ & S_TYP;
|
|
word_t val = $4.val;
|
|
if (type != S_ABS)
|
|
serror("li cannot be used with values that need a fixup");
|
|
|
|
if (val == 0)
|
|
emit4(0x00000025 | (reg<<11)); /* or reg, zero, zero */
|
|
else if ((val < -0x8000) || (val > 0xffff))
|
|
emit4(0x24000000 | (reg<<16) | (val & 0xffff)); /* addiu reg, zero, value */
|
|
else
|
|
{
|
|
emit4(0x3c000000 | (reg<<16) | (val>>16)); /* lui reg, value */
|
|
emit4(0x34000000 | (reg<<16) | (reg<<21) | (val & 0xffff)); /* ori reg, reg, value */
|
|
}
|
|
}
|
|
| OP_LA GPR ',' expr
|
|
{
|
|
word_t reg = $2;
|
|
word_t type = $4.typ & S_TYP;
|
|
word_t val = $4.val;
|
|
|
|
if (type != S_ABS)
|
|
newrelo($4.typ, RELO2HI | FIXUPFLAGS);
|
|
emit4(0x3c000000 | (reg<<16) | (val>>16)); /* lui reg, value */
|
|
if (type != S_ABS)
|
|
newrelo($4.typ, RELO2 | FIXUPFLAGS);
|
|
emit4(0x34000000 | (reg<<16) | (reg<<21) | (val & 0xffff)); /* ori reg, reg, value */
|
|
}
|
|
|
|
extabsexp
|
|
: absexp
|
|
| LO16 ASC_LPAR expr ASC_RPAR
|
|
{
|
|
newrelo($3.typ, RELO2 | FIXUPFLAGS);
|
|
$$ = $3.val;
|
|
}
|
|
| HI16 ASC_LPAR expr ASC_RPAR
|
|
{
|
|
newrelo($3.typ, RELO2HI | FIXUPFLAGS);
|
|
if ($3.val & 0xffff0000)
|
|
fatal("relocation offset in hi16[] too big");
|
|
$$ = $3.val;
|
|
}
|
|
| HA16 ASC_LPAR expr ASC_RPAR
|
|
{
|
|
newrelo($3.typ, RELO2HISAD | FIXUPFLAGS);
|
|
if ($3.val & 0xffff0000)
|
|
fatal("relocation offset in ha16[] too big");
|
|
$$ = $3.val;
|
|
}
|
|
;
|
|
|
|
gpr: GPR
|
|
fpr: FPR
|
|
|
|
fmt3
|
|
: OP__DOT_S { $$ = 0; }
|
|
| OP__DOT_D { $$ = 1; }
|
|
| OP__DOT_W { $$ = 4; }
|
|
| OP__DOT_L { $$ = 5; }
|
|
| OP__DOT_PS { $$ = 6; }
|
|
;
|
|
|
|
fmt
|
|
: fmt3 { $$ = $1 + 16; }
|
|
;
|
|
|
|
fcond
|
|
: OP__DOT_F { $$ = 0; }
|
|
| OP__DOT_UN { $$ = 1; }
|
|
| OP__DOT_EQ { $$ = 2; }
|
|
| OP__DOT_UEQ { $$ = 3; }
|
|
| OP__DOT_OLT { $$ = 4; }
|
|
| OP__DOT_ULT { $$ = 5; }
|
|
| OP__DOT_OLE { $$ = 6; }
|
|
| OP__DOT_ULE { $$ = 7; }
|
|
| OP__DOT_SF { $$ = 8; }
|
|
| OP__DOT_NGLE { $$ = 9; }
|
|
| OP__DOT_SEQ { $$ = 10; }
|
|
| OP__DOT_NGL { $$ = 11; }
|
|
| OP__DOT_LT { $$ = 12; }
|
|
| OP__DOT_NGE { $$ = 13; }
|
|
| OP__DOT_LE { $$ = 14; }
|
|
| OP__DOT_NGT { $$ = 15; }
|
|
;
|
|
|
|
e16
|
|
: extabsexp
|
|
{
|
|
/* Allow signed or unsigned 16-bit values. */
|
|
if (($1 < -0x8000) || ($1 > 0xffff))
|
|
serror("16-bit signed value out of range");
|
|
$$ = (uint16_t) $1;
|
|
}
|
|
;
|
|
|
|
e9
|
|
: absexp
|
|
{
|
|
/* Allow signed or unsigned 9-bit values. */
|
|
if (($1 < -0x100) || ($1 > 0x1ff))
|
|
serror("9-bit signed value out of range");
|
|
$$ = (uint16_t) $1;
|
|
}
|
|
;
|
|
|
|
u25
|
|
: absexp
|
|
{
|
|
if (($1 < 0) || ($1 > 0x1ffffff))
|
|
serror("25-bit unsigned value out of range");
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
u20
|
|
: absexp
|
|
{
|
|
if (($1 < 0) || ($1 > 0xfffff))
|
|
serror("20-bit unsigned value out of range");
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
u16
|
|
: extabsexp
|
|
{
|
|
if (($1 < 0) || ($1 > 0xffff))
|
|
serror("16-bit unsigned value out of range");
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
u5
|
|
: absexp
|
|
{
|
|
if (($1 < 0) || ($1 > 0x1f))
|
|
serror("5-bit unsigned value out of range");
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
u3
|
|
: absexp
|
|
{
|
|
if (($1 < 0) || ($1 > 0x7))
|
|
serror("3-bit unsigned value out of range");
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
offset16
|
|
: expr
|
|
{
|
|
int dist = $1.val - DOTVAL - 4;
|
|
fit(fitx(dist, 18));
|
|
|
|
if (dist & 0x3)
|
|
serror("jump targets must be 4-aligned");
|
|
|
|
newrelo($1.typ, RELOMIPS | RELPC | FIXUPFLAGS);
|
|
$$ = (dist >> 2) & 0x0000ffff;
|
|
}
|
|
;
|
|
|
|
abs26
|
|
: expr
|
|
{
|
|
int target = $1.val;
|
|
fit(fitx(target, 28));
|
|
|
|
if (target & 0x3)
|
|
serror("jump targets must be 4-aligned");
|
|
|
|
newrelo($1.typ, RELOMIPS | FIXUPFLAGS);
|
|
$$ = (target >> 2) & 0x03fffffd;
|
|
}
|
|
;
|
|
|
|
extmsblsb
|
|
: u5 ',' u5
|
|
{
|
|
int pos = $1;
|
|
int size = $3;
|
|
$$ = ((size-1) << 5) | pos;
|
|
}
|
|
;
|
|
|
|
insmsblsb
|
|
: u5 ',' u5
|
|
{
|
|
int pos = $1;
|
|
int size = $3;
|
|
$$ = ((pos+size-1) << 5) | pos;
|
|
}
|
|
; |