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

31
lisc/emit.c
View file

@ -37,9 +37,10 @@ emitf(Fn *fn, FILE *f, char *fmt, ...)
static char stoa[] = "qlwb";
va_list ap;
char c, *s, *s1;
int i, ty;
int i, ty, off;
Ref ref;
Con *con;
struct { int i:AShift; } x;
va_start(ap, fmt);
ty = SWord;
@ -81,10 +82,9 @@ Next:
assert(isreg(ref));
fprintf(f, "%%%s", rsub[ref.val][ty]);
break;
case RSlot:
Slot: {
int off;
struct { int i:14; } x = {ref.val}; /* fixme */
case RASlot:
Slot:
x.i = ref.val & AMask;
assert(NAlign == 3);
if (x.i < 0)
off = -4 * x.i;
@ -94,7 +94,6 @@ Next:
}
fprintf(f, "%d(%%rbp)", off);
break;
}
case RCon:
fputc('$', f);
Con:
@ -117,9 +116,9 @@ Next:
case 'M':
ref = va_arg(ap, Ref);
switch (rtype(ref)) {
default: diag("emit: invalid memory reference");
case RSlot: goto Slot;
case RCon: goto Con;
default: diag("emit: invalid memory reference");
case RASlot: goto Slot;
case RCon: goto Con;
case RTmp:
assert(isreg(ref));
fprintf(f, "(%%%s)", rsub[ref.val][SLong]);
@ -234,6 +233,20 @@ eins(Ins i, Fn *fn, FILE *f)
emitf(fn, f, "%s%w %M, %R", otoa[i.op],
i.wide, i.arg[0], i.to);
break;
case OExt+Tuw:
emitf(fn, f, "movl %R, %R", i.arg[0], i.to);
break;
case OExt+Tsw:
case OExt+Tsh:
case OExt+Tuh:
case OExt+Tsb:
case OExt+Tub:
emitf(fn, f, "mov%s%t%s %R, %W%R",
(i.op-OExt-Tsw)%2 ? "z" : "s",
1+(i.op-OExt-Tsw)/2,
i.wide ? "q" : "l",
i.arg[0], i.wide, i.to);
break;
case OCall:
switch (rtype(i.arg[0])) {
default: