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

tentative support for fast allocs

Browse source 
It seems that the MEM reference type is
meaningless in too many positions.
Because of this, it is unclear if we
should keep it or just introduce a
OAddr instruction that only accepts
slots.

Regardless of the above, the spilling
module needs to use the new slot_()
function, also, the emit function needs
to fetch the size of the stack frame
from the slot[] array.

The naming is still very transitional,
here is a list of all bogus names I can
think of:

  - SLOT()
  - Tmp.spill
  - slot_
This commit is contained in:
Quentin Carbonneaux 2015-08-14 15:54:25 -04:00
parent 0f3846e261
commit 67d3c2834d
5 changed files with 170 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisc/emit.c
View file

@ -76,13 +76,14 @@ eref(Ref r, Fn *fn, FILE *f)
{
switch (rtype(r)) {
default:
diag("emitref: invalid reference");
diag("emit: invalid reference");
case RTmp:
assert(r.val < Tmp0);
fprintf(f, "%%%s", rtoa(r.val));
break;
case RMem:
case RSlot:
fprintf(f, "-%d(%%rbp)", 8 * r.val);
fprintf(f, "-%d(%%rbp)", 4 * r.val);
break;
case RCon:
fprintf(f, "$");
@ -94,9 +95,18 @@ eref(Ref r, Fn *fn, FILE *f)
static void
emem(Ref r, Fn *fn, FILE *f)
{
/* this function is now a hack
* when full memory references
* are supported, constants and
* temporaries will not have
* multiple meanings as they do
* now
*/
switch (rtype(r)) {
default:
diag("emem: invalid memory reference");
diag("emit: invalid memory reference");
case RMem:
case RSlot:
eref(r, fn, f);
break;
@ -171,7 +181,10 @@ eins(Ins i, Fn *fn, FILE *f)
break;
}
}
if (!req(i.arg[0], i.to))
if (rtype(i.arg[0]) == RMem) {
assert(rtype(i.to)==RTmp && i.to.val<EAX);
eop("lea", i.arg[0], i.to, fn, f);
} else if (!req(i.arg[0], i.to))
eop("mov", i.arg[0], i.to, fn, f);
break;
case OStorel:
@ -258,8 +271,6 @@ emitfn(Fn *fn, FILE *f)
"liscf:\n"
"\tpush %%rbp\n"
"\tmov %%rsp, %%rbp\n"
"\tsub $%u, %%rsp\n",
fn->nspill * 8
);
for (b=fn->start; b; b=b->link) {
fprintf(f, ".L%s:\n", b->name);