gen.c File Reference

#include "c.h"

Include dependency graph for gen.c:

Go to the source code of this file.

Defines
#define	ck(i)   return (i) ? 0 : LBURG_MAX
#define	readsreg(p)   (generic((p)->op)==INDIR && (p)->kids[0]->op==VREG+P)
#define	relink(a, b)   ((b)->x.prev = (a), (a)->x.next = (b))
#define	setsrc(d)
Functions
Symbol	askfixedreg (Symbol)
Symbol	askreg (Symbol rs, unsigned rmask[])
Symbol	askreg (Symbol, unsigned *)
int	askregvar (Symbol p, Symbol regs)
void	blkcopy (int dreg, int doff, int sreg, int soff, int size, int tmp[])
void	blkunroll (int, int, int, int, int, int, int[])
void	blockbeg (Env *e)
void	blockend (Env *e)
void	docall (Node)
void	dumpcover (Node, int, int)
void	dumpregs (char *, char *, char *)
void	dumprule (int)
void	dumptree (Node)
void	emit (Node p)
unsigned	emitasm (Node, int)
Node	gen (Node forest)
void	genreload (Node, Symbol, int)
void	genspill (Symbol, Node, Symbol)
Symbol	getreg (Symbol s, unsigned mask[], Node p)
Symbol	getreg (Symbol, unsigned *, Node)
int	getregnum (Node p)
int	getrule (Node, int)
void	linearize (Node, Node)
int	mayrecalc (Node p)
int	mkactual (int align, int size)
void	mkauto (Symbol p)
Symbol	mkreg (char *fmt, int n, int mask, int set)
Symbol	mkwildcard (Symbol *syms)
int	move (Node p)
int	moveself (Node)
int	notarget (Node p)
void	parseflags (int argc, char *argv[])
void	prelabel (Node)
Node *	prune (Node p, Node pp[])
Node *	prune (Node, Node *)
void	putreg (Symbol)
void	ralloc (Node)
int	range (Node p, int lo, int hi)
void	reduce (Node, int)
unsigned	regloc (Symbol p)
int	reprune (Node *, int, int, Node)
int	requate (Node)
Node	reuse (Node, int)
void	rewrite (Node)
void	rtarget (Node p, int n, Symbol r)
void	setreg (Node p, Symbol r)
void	spill (unsigned mask, int n, Node here)
Symbol	spillee (Symbol, unsigned mask[], Node)
void	spillr (Symbol, Node)
int	uses (Node, Regnode)
Variables
int	argoffset
int	bflag = 0
int	dalign
int	dflag = 0
unsigned(*	emitter )(Node, int) = emitasm
int	framesize
unsigned	freemask [2]
Node	head
int	maxargoffset
int	maxoffset
char	NeedsReg []
int	offset
int	salign
int	swap
unsigned	tmask [2]
unsigned	usedmask [2]
unsigned	vmask [2]

---

Define Documentation

#define ck (  i   )     return (i) ? 0 : LBURG_MAX

Definition at line 251 of file gen.c. Referenced by range().

#define readsreg (  p   )     (generic((p)->op)==INDIR && (p)->kids[0]->op==VREG+P)

Definition at line 4 of file gen.c. Referenced by requate(), and spillr().

#define relink (  a, b   )     ((b)->x.prev = (a), (a)->x.next = (b))

Definition at line 10 of file gen.c. Referenced by AAS_UpdateEntity(), gen(), and linearize().

#define setsrc (  d   )

Value: ((d) && (d)->x.regnode && \ (d)->x.regnode->set == src->x.regnode->set && \ (d)->x.regnode->mask&src->x.regnode->mask) Definition at line 6 of file gen.c. Referenced by requate().

---

Function Documentation

Symbol askfixedreg (  Symbol   )  [static]

Definition at line 533 of file gen.c. References freemask, Regnode::mask, n, r, Xsymbol::regnode, s, Regnode::set, Symbol, usedmask, and symbol::x. Referenced by askreg(). { Regnode r = s->x.regnode; int n = r->set; if (r->mask&~freemask[n]) return NULL; else { freemask[n] &= ~r->mask; usedmask[n] |= r->mask; return s; } }

Symbol askreg (  Symbol  rs, unsigned  rmask[] )  [static]

Definition at line 545 of file gen.c. References askfixedreg(), i, Regnode::mask, NULL, r, Xsymbol::regnode, Regnode::set, Symbol, Xsymbol::wildcard, and symbol::x. Referenced by askregvar(), and getreg(). { int i; if (rs->x.wildcard == NULL) return askfixedreg(rs); for (i = 31; i >= 0; i--) { Symbol r = rs->x.wildcard[i]; if (r != NULL && !(r->x.regnode->mask&~rmask[r->x.regnode->set]) && askfixedreg(r)) return r; } return NULL; }

Here is the call graph for this function:

Symbol askreg (  Symbol  , unsigned *  )  [static]

int askregvar (  Symbol  p, Symbol  regs )

Definition at line 572 of file gen.c. References askreg(), assert, debug, dumpregs(), isscalar, symbol::name, Xsymbol::name, p, r, Xsymbol::regnode, symbol::sclass, Symbol, symbol::temporary, symbol::type, Regnode::vbl, vmask, and symbol::x. { Symbol r; assert(p); if (p->sclass != REGISTER) return 0; else if (!isscalar(p->type)) { p->sclass = AUTO; return 0; } else if (p->temporary) { p->x.name = "?"; return 1; } else if ((r = askreg(regs, vmask)) != NULL) { p->x.regnode = r->x.regnode; p->x.regnode->vbl = p; p->x.name = r->x.name; debug(dumpregs("(allocating %s to symbol %s)\n", p->x.name, p->name)); return 1; } else { p->sclass = AUTO; return 0; } }

Here is the call graph for this function:

void blkcopy (  int  dreg, int  doff, int  sreg, int  soff, int  size, int  tmp[] )

Definition at line 129 of file gen.c. References assert, Xinterface::blkloop, blkunroll(), IR, and interface::x. { assert(size >= 0); if (size == 0) return; else if (size <= 2) blkunroll(size, dreg, doff, sreg, soff, size, tmp); else if (size == 3) { blkunroll(2, dreg, doff, sreg, soff, 2, tmp); blkunroll(1, dreg, doff+2, sreg, soff+2, 1, tmp); } else if (size <= 16) { blkunroll(4, dreg, doff, sreg, soff, size&~3, tmp); blkcopy(dreg, doff+(size&~3), sreg, soff+(size&~3), size&3, tmp); } else (*IR->x.blkloop)(dreg, doff, sreg, soff, size, tmp); }

Here is the call graph for this function:

void blkunroll (  int  , int  , int  , int  , int  , int  , int  [] )  [static]

Definition at line 147 of file gen.c. References assert, Xinterface::blkfetch, Xinterface::blkstore, i, IR, k, Xinterface::max_unaligned_load, salign, and interface::x. Referenced by blkcopy(). { int i; assert(IR->x.max_unaligned_load); if (k > IR->x.max_unaligned_load && (k > salign || k > dalign)) k = IR->x.max_unaligned_load; for (i = 0; i+k < size; i += 2*k) { (*IR->x.blkfetch)(k, soff+i, sreg, tmp[0]); (*IR->x.blkfetch)(k, soff+i+k, sreg, tmp[1]); (*IR->x.blkstore)(k, doff+i, dreg, tmp[0]); (*IR->x.blkstore)(k, doff+i+k, dreg, tmp[1]); } if (i < size) { (*IR->x.blkfetch)(k, i+soff, sreg, tmp[0]); (*IR->x.blkstore)(k, i+doff, dreg, tmp[0]); } }

void blockbeg (  Env *  e  )

Definition at line 104 of file gen.c. References e, freemask, Env::freemask, and Env::offset. Referenced by asdl_init(). { e->offset = offset; e->freemask[IREG] = freemask[IREG]; e->freemask[FREG] = freemask[FREG]; }

void blockend (  Env *  e  )

Definition at line 109 of file gen.c. References e, Env::freemask, freemask, maxoffset, Env::offset, and offset. Referenced by asdl_init(). { if (offset > maxoffset) maxoffset = offset; offset = e->offset; freemask[IREG] = e->freemask[IREG]; freemask[FREG] = e->freemask[FREG]; }

void docall (  Node   )  [static]

Definition at line 122 of file gen.c. References argoffset, intconst(), maxargoffset, Node, p, and node::syms. Referenced by gen(). { p->syms[1] = p->syms[0]; p->syms[0] = intconst(argoffset); if (argoffset > maxargoffset) maxargoffset = argoffset; argoffset = 0; }

Here is the call graph for this function:

void dumpcover (  Node  , int  , int  )  [static]

Definition at line 307 of file gen.c. References Xinterface::_kids, Xinterface::_nts, dumprule(), fprint(), getrule(), i, in, IR, Node, p, reuse(), stderr, and interface::x. Referenced by rewrite(). { int rulenum, i; short *nts; Node kids[10]; p = reuse(p, nt); rulenum = getrule(p, nt); nts = IR->x._nts[rulenum]; fprint(stderr, "dumpcover(%x) = ", p); for (i = 0; i < in; i++) fprint(stderr, " "); dumprule(rulenum); (*IR->x._kids)(p, rulenum, kids); for (i = 0; nts[i]; i++) dumpcover(kids[i], nts[i], in+1); }

Here is the call graph for this function:

void dumpregs (  char *  , char *  , char *  )  [static]

Definition at line 814 of file gen.c. References a, b, fprint(), freemask, and stderr. Referenced by askregvar(), putreg(), and ralloc(). { fprint(stderr, msg, a, b); fprint(stderr, "(free[0]=%x)\n", freemask[0]); fprint(stderr, "(free[1]=%x)\n", freemask[1]); }

Here is the call graph for this function:

void dumprule (  int   )  [static]

Definition at line 324 of file gen.c. References Xinterface::_isinstruction, Xinterface::_string, Xinterface::_templates, assert, fprint(), IR, stderr, and interface::x. Referenced by dumpcover(). { assert(rulenum); fprint(stderr, "%s / %s", IR->x._string[rulenum], IR->x._templates[rulenum]); if (!IR->x._isinstruction[rulenum]) fprint(stderr, "\n"); }

Here is the call graph for this function:

void dumptree (  Node   )  [static]

Definition at line 265 of file gen.c. References ADD, ADDRF, ADDRG, ADDRL, ARG, ASGN, assert, BAND, BCOM, BOR, BXOR, CALL, CNST, CVF, CVI, CVP, CVU, DIV, EQ, fprint(), GE, generic, GT, INDIR, JUMP, node::kids, LABEL, LE, LSH, LT, MOD, MUL, symbol::name, NE, NEG, Node, node::op, opname(), optype, P, p, RET, RSH, stderr, SUB, node::syms, and VREG. Referenced by dumptree(), genreload(), genspill(), and rewrite(). { if (p->op == VREG+P && p->syms[0]) { fprint(stderr, "VREGP(%s)", p->syms[0]->name); return; } else if (generic(p->op) == LOAD) { fprint(stderr, "LOAD("); dumptree(p->kids[0]); fprint(stderr, ")"); return; } fprint(stderr, "%s(", opname(p->op)); switch (generic(p->op)) { case CNST: case LABEL: case ADDRG: case ADDRF: case ADDRL: if (p->syms[0]) fprint(stderr, "%s", p->syms[0]->name); break; case RET: if (p->kids[0]) dumptree(p->kids[0]); break; case CVF: case CVI: case CVP: case CVU: case JUMP: case ARG: case BCOM: case NEG: case INDIR: dumptree(p->kids[0]); break; case CALL: if (optype(p->op) != B) { dumptree(p->kids[0]); break; } /* else fall thru */ case EQ: case NE: case GT: case GE: case LE: case LT: case ASGN: case BOR: case BAND: case BXOR: case RSH: case LSH: case ADD: case SUB: case DIV: case MUL: case MOD: dumptree(p->kids[0]); fprint(stderr, ", "); dumptree(p->kids[1]); break; default: assert(0); } fprint(stderr, ")"); }

Here is the call graph for this function:

void emit (  Node  p  )

Definition at line 368 of file gen.c. References assert, Xnode::equatable, Xnode::inst, moveself(), Xnode::next, Node, p, Xnode::registered, requate(), and node::x. Referenced by asdl_init(). { for (; p; p = p->x.next) { assert(p->x.registered); if (p->x.equatable && requate(p) || moveself(p)) ; else (*emitter)(p, p->x.inst); p->x.emitted = 1; } }

Here is the call graph for this function:

unsigned emitasm (  Node  , int  )  [static]

Definition at line 331 of file gen.c. References Xinterface::_isinstruction, Xinterface::_kids, Xinterface::_nts, Xinterface::_templates, assert, Xinterface::emit2, Xnode::emitted, fputs(), framesize, getrule(), IR, Xnode::kids, node::kids, Xsymbol::name, NELEMS, Node, p, print(), putchar, reuse(), RX, stdout, node::syms, symbol::x, node::x, and interface::x. { int rulenum; short *nts; char *fmt; Node kids[10]; p = reuse(p, nt); rulenum = getrule(p, nt); nts = IR->x._nts[rulenum]; fmt = IR->x._templates[rulenum]; assert(fmt); if (IR->x._isinstruction[rulenum] && p->x.emitted) print("%s", p->syms[RX]->x.name); else if (*fmt == '#') (*IR->x.emit2)(p); else { if (*fmt == '?') { fmt++; assert(p->kids[0]); if (p->syms[RX] == p->x.kids[0]->syms[RX]) while (*fmt++ != '\n') ; } for ((*IR->x._kids)(p, rulenum, kids); *fmt; fmt++) if (*fmt != '%') (void)putchar(*fmt); else if (*++fmt == 'F') print("%d", framesize); else if (*fmt >= '0' && *fmt <= '9') emitasm(kids[*fmt - '0'], nts[*fmt - '0']); else if (*fmt >= 'a' && *fmt < 'a' + NELEMS(p->syms)) fputs(p->syms[*fmt - 'a']->x.name, stdout); else (void)putchar(*fmt); } return 0; }

Here is the call graph for this function:

Node gen (  Node  forest  )

Definition at line 479 of file gen.c. References ASGN, assert, CALL, Xinterface::doarg, docall(), generic, head, i, IR, Xnode::kids, Xsymbol::lastuse, linearize(), node::link, Xnode::listed, LOAD, NeedsReg, NELEMS, Xnode::next, Node, opindex, opkind, p, Xnode::prev, Xnode::prevuse, prune(), putreg(), ralloc(), relink, rewrite(), Xinterface::rmap, RX, node::syms, symbol::x, node::x, and interface::x. Referenced by asdl_init(). { int i; struct node sentinel; Node dummy, p; head = forest; for (p = forest; p; p = p->link) { assert(p->count == 0); if (generic(p->op) == CALL) docall(p); else if ( generic(p->op) == ASGN && generic(p->kids[1]->op) == CALL) docall(p->kids[1]); else if (generic(p->op) == ARG) (*IR->x.doarg)(p); rewrite(p); p->x.listed = 1; } for (p = forest; p; p = p->link) prune(p, &dummy); relink(&sentinel, &sentinel); for (p = forest; p; p = p->link) linearize(p, &sentinel); forest = sentinel.x.next; assert(forest); sentinel.x.next->x.prev = NULL; sentinel.x.prev->x.next = NULL; for (p = forest; p; p = p->x.next) for (i = 0; i < NELEMS(p->x.kids) && p->x.kids[i]; i++) { assert(p->x.kids[i]->syms[RX]); if (p->x.kids[i]->syms[RX]->temporary) { p->x.kids[i]->x.prevuse = p->x.kids[i]->syms[RX]->x.lastuse; p->x.kids[i]->syms[RX]->x.lastuse = p->x.kids[i]; } } for (p = forest; p; p = p->x.next) { ralloc(p); if (p->x.listed && NeedsReg[opindex(p->op)] && (*IR->x.rmap)(opkind(p->op))) { assert(generic(p->op) == CALL || generic(p->op) == LOAD); putreg(p->syms[RX]); } } return forest; }

Here is the call graph for this function:

void genreload (  Node  , Symbol  , int  )  [static]

Definition at line 755 of file gen.c. References ADDRL, debug, dumptree(), fprint(), i, INDIR, IR, node::kids, Xnode::kids, linearize(), Xsymbol::name, newnode(), Node, NULL, node::op, opkind, P, p, prune(), interface::ptrmetric, q, reprune(), rewrite(), metrics::size, sizeop, stderr, Symbol, symbol::x, and node::x. Referenced by spillr(). { Node q; int ty; debug(fprint(stderr, "(replacing %x with a reload from %s)\n", p->x.kids[i], tmp->x.name)); debug(fprint(stderr, "(genreload: ")); debug(dumptree(p->x.kids[i])); debug(fprint(stderr, ")\n")); ty = opkind(p->x.kids[i]->op); q = newnode(ADDRL+P + sizeop(IR->ptrmetric.size), NULL, NULL, tmp); p->x.kids[i] = newnode(INDIR + ty, q, NULL, NULL); rewrite(p->x.kids[i]); prune(p->x.kids[i], &q); reprune(&p->kids[1], reprune(&p->kids[0], 0, i, p), i, p); prune(p, &q); linearize(p->x.kids[i], p); }

Here is the call graph for this function:

void genspill (  Symbol  , Node  , Symbol  )  [static]

Definition at line 726 of file gen.c. References ADDRL, ASGN, assert, debug, dumptree(), fprint(), FUNC, INDIR, IR, linearize(), Xnode::listed, symbol::name, Xsymbol::name, NeedsReg, NEW0, newnode(), Xnode::next, Node, NULL, node::op, opindex, opkind, p, P, prune(), interface::ptrmetric, q, r, ralloc(), Xsymbol::regnode, rewrite(), Xinterface::rmap, s, symbol::sclass, metrics::size, sizeop, Xnode::spills, stderr, Symbol, interface::x, node::x, and symbol::x. Referenced by spillr(). { Node p, q; Symbol s; unsigned ty; debug(fprint(stderr, "(spilling %s to local %s)\n", r->x.name, tmp->x.name)); debug(fprint(stderr, "(genspill: ")); debug(dumptree(last)); debug(fprint(stderr, ")\n")); ty = opkind(last->op); NEW0(s, FUNC); s->sclass = REGISTER; s->name = s->x.name = r->x.name; s->x.regnode = r->x.regnode; q = newnode(ADDRL+P + sizeop(IR->ptrmetric.size), NULL, NULL, s); q = newnode(INDIR + ty, q, NULL, NULL); p = newnode(ADDRL+P + sizeop(IR->ptrmetric.size), NULL, NULL, tmp); p = newnode(ASGN + ty, p, q, NULL); p->x.spills = 1; rewrite(p); prune(p, &q); q = last->x.next; linearize(p, q); for (p = last->x.next; p != q; p = p->x.next) { ralloc(p); assert(!p->x.listed || !NeedsReg[opindex(p->op)] || !(*IR->x.rmap)(opkind(p->op))); } }

<