%union
{
Sym *sym;
- int64 lval;
+ int32 lval;
double dval;
char sval[8];
Addr addr;
reglist:
spreg
{
- $$ = 1ULL << $1;
+ $$ = 1 << $1;
}
| spreg '-' spreg
{
int i;
$$=0;
for(i=$1; i<=$3; i++)
- $$ |= 1ULL<<i;
+ $$ |= 1<<i;
for(i=$3; i<=$1; i++)
- $$ |= 1ULL<<i;
+ $$ |= 1<<i;
}
| spreg comma reglist
{
- $$ = (1ULL<<$1) | $3;
+ $$ = (1<<$1) | $3;
}
gen:
#line 39 "a.y"
{
Sym *sym;
- int64 lval;
+ int32 lval;
double dval;
char sval[8];
Addr addr;
case 64:
#line 462 "a.y"
{
- (yyval.lval) = 1ULL << (yyvsp[(1) - (1)].lval);
+ (yyval.lval) = 1 << (yyvsp[(1) - (1)].lval);
}
break;
int i;
(yyval.lval)=0;
for(i=(yyvsp[(1) - (3)].lval); i<=(yyvsp[(3) - (3)].lval); i++)
- (yyval.lval) |= 1ULL<<i;
+ (yyval.lval) |= 1<<i;
for(i=(yyvsp[(3) - (3)].lval); i<=(yyvsp[(1) - (3)].lval); i++)
- (yyval.lval) |= 1ULL<<i;
+ (yyval.lval) |= 1<<i;
}
break;
case 66:
#line 475 "a.y"
{
- (yyval.lval) = (1ULL<<(yyvsp[(1) - (3)].lval)) | (yyvsp[(3) - (3)].lval);
+ (yyval.lval) = (1<<(yyvsp[(1) - (3)].lval)) | (yyvsp[(3) - (3)].lval);
}
break;
#line 39 "a.y"
{
Sym *sym;
- int64 lval;
+ int32 lval;
double dval;
char sval[8];
Addr addr;
switch(o->type) {
case 38: /* movm $con,oreg -> stm */
o1 = (0x4 << 25);
- o1 |= (p->from.offset >> REG_R0) & 0xffff;
+ o1 |= p->from.offset & 0xffff;
o1 |= (p->to.reg&15) << 16;
aclass(ctxt, &p->to);
break;
case 39: /* movm oreg,$con -> ldm */
o1 = (0x4 << 25) | (1 << 20);
- o1 |= (p->to.offset >> REG_R0) & 0xffff;
+ o1 |= p->to.offset & 0xffff;
o1 |= (p->from.reg&15) << 16;
aclass(ctxt, &p->from);
break;
{
char str[STRINGSZ];
Addr *a;
- int i;
- vlong v;
+ int i, v;
a = va_arg(fp->args, Addr*);
sprint(str, "GOK-reglist");
break;
if(a->sym != nil)
break;
- v = a->offset >> REG_R0;
+ v = a->offset;
strcpy(str, "");
for(i=0; i<NREG; i++) {
if(v & (1<<i)) {