sam/libqbe
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

emit code for extensions, move slots into RAlt

Browse source
This commit is contained in:
Quentin Carbonneaux 2015-10-20 13:04:07 -04:00
parent 993416481a
commit b284721c8a
6 changed files with 67 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisc/parse.c
View file

@ -388,9 +388,9 @@ parserefl(int arg)
err("invalid function parameter");
if (w == 2)
if (arg)
*curi = (Ins){OArgc, 0, R, {TYP(ty), r}};
*curi = (Ins){OArgc, 0, R, {TYPE(ty), r}};
else
*curi = (Ins){OParc, 0, r, {TYP(ty)}};
*curi = (Ins){OParc, 0, r, {TYPE(ty)}};
else
if (arg)
*curi = (Ins){OArg, w, R, {r}};
@ -526,7 +526,7 @@ DoOp:
op = OCall;
if (w == 2) {
w = 0;
arg[1] = TYP(ty);
arg[1] = TYPE(ty);
} else
arg[1] = R;
goto Ins;
@ -818,14 +818,14 @@ printref(Ref r, Fn *fn, FILE *f)
diag("printref: invalid constant");
}
break;
case RSlot:
fprintf(f, "S%d", r.val);
case RASlot:
fprintf(f, "S%d", r.val & AMask);
break;
case RAlt:
if (r.val & RCallm)
fprintf(f, "%x", r.val & (RCallm-1));
else
fprintf(f, ":%s", typ[r.val].name);
case RACall:
fprintf(f, "%x", r.val & AMask);
break;
case RAType:
fprintf(f, ":%s", typ[r.val & AMask].name);
break;
}
}