* address that define the memory address space. These
* bits decode 32-MByte blocks of memory.
*/
- PCI_ADDR(0, 0x18, 2, 0x40), 0x001f01fe, 0x00000001,
#if MEMORY_CONFIG == MEMORY_LNXI_SOLO
- PCI_ADDR(0, 0x18, 2, 0x44), 0x001f01fe, 0x01000001,
- PCI_ADDR(0, 0x18, 2, 0x48), 0x001f01fe, 0x02000001,
- PCI_ADDR(0, 0x18, 2, 0x4C), 0x001f01fe, 0x03000001,
+ PCI_ADDR(0, 0x18, 2, 0x40), 0x001f01fe, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x44), 0x001f01fe, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x48), 0x001f01fe, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x4C), 0x001f01fe, 0x00000000,
#endif
#if MEMORY_CONFIG == MEMORY_SUSE_SOLO
+ PCI_ADDR(0, 0x18, 2, 0x40), 0x001f01fe, 0x00000001,
PCI_ADDR(0, 0x18, 2, 0x44), 0x001f01fe, 0x00800001,
PCI_ADDR(0, 0x18, 2, 0x48), 0x001f01fe, 0x01000001,
PCI_ADDR(0, 0x18, 2, 0x4C), 0x001f01fe, 0x01800001,
#endif
#if MEMORY_CONFIG == MEMORY_LNXI_HDAMA
+ PCI_ADDR(0, 0x18, 2, 0x40), 0x001f01fe, 0x00000001,
PCI_ADDR(0, 0x18, 2, 0x44), 0x001f01fe, 0x00001001,
PCI_ADDR(0, 0x18, 2, 0x48), 0x001f01fe, 0x00000000,
PCI_ADDR(0, 0x18, 2, 0x4C), 0x001f01fe, 0x00000000,
*
*/
#if MEMORY_CONFIG == MEMORY_LNXI_SOLO
- PCI_ADDR(0, 0x18, 2, 0x60), 0xC01f01ff, 0x00e0fe00,
- PCI_ADDR(0, 0x18, 2, 0x64), 0xC01f01ff, 0x00e0fe00,
- PCI_ADDR(0, 0x18, 2, 0x68), 0xC01f01ff, 0x00e0fe00,
- PCI_ADDR(0, 0x18, 2, 0x6C), 0xC01f01ff, 0x00e0fe00,
+ PCI_ADDR(0, 0x18, 2, 0x60), 0xC01f01ff, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x64), 0xC01f01ff, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x68), 0xC01f01ff, 0x00000000,
+ PCI_ADDR(0, 0x18, 2, 0x6C), 0xC01f01ff, 0x00000000,
#endif
#if MEMORY_CONFIG == MEMORY_SUSE_SOLO
PCI_ADDR(0, 0x18, 2, 0x60), 0xC01f01ff, 0x0060fe00,
* [31:15]
*/
#if MEMORY_CONFIG == MEMORY_LNXI_SOLO
- PCI_ADDR(0, 0x18, 2, 0x80), 0xffff8888, 0x00000033,
+ PCI_ADDR(0, 0x18, 2, 0x80), 0xffff8888, 0x00000000,
#endif
#if MEMORY_CONFIG == MEMORY_SUSE_SOLO
PCI_ADDR(0, 0x18, 2, 0x80), 0xffff8888, 0x00000022,
return sz;
}
-static unsigned spd_to_dimm_side0(unsigned device)
+static unsigned spd_to_dimm(unsigned device)
{
- return (device - SMBUS_MEM_DEVICE_START) << 1;
+ return (device - SMBUS_MEM_DEVICE_START);
}
-static unsigned spd_to_dimm_side1(unsigned device)
+static void set_dimm_size(struct dimm_size sz, unsigned index)
{
- return ((device - SMBUS_MEM_DEVICE_START) << 1) + 1;
-}
+ uint32_t base0, base1, map;
-static void set_dimm_size(unsigned long size, unsigned index)
-{
- unsigned value = 0;
- /* Make certain the dimm is at least 32MB */
- if (size >= (25 + 3)) {
- /* Place the dimm size in 32 MB quantities in the bits 31 - 21.
- * The initialize dimm size is in bits.
- * Set the base enable bit0.
- */
- value = (1 << ((size - (25 + 3)) + 21)) | 1;
+#if 1
+ print_debug("set_dimm_size: (");
+ print_debug_hex32(sz.side1);
+ print_debug_char(',');
+ print_debug_hex32(sz.side2);
+ print_debug_char(',');
+ print_debug_hex32(index);
+ print_debug(")\r\n");
+#endif
+ if (sz.side1 != sz.side2) {
+ sz.side2 = 0;
}
+ map = pci_read_config32(PCI_DEV(0, 0x18, 2), 0x80);
+ map &= ~(0xf << (index + 4));
+
+ /* For each base register.
+ * Place the dimm size in 32 MB quantities in the bits 31 - 21.
+ * The initialize dimm size is in bits.
+ * Set the base enable bit0.
+ */
+
+ base0 = base1 = 0;
+
+ /* Make certain side1 of the dimm is at least 32MB */
+ if (sz.side1 >= (25 + 3)) {
+ base0 = (1 << ((sz.side1 - (25 + 3)) + 21)) | 1;
+ map |= (sz.side1 - (25 + 3)) << (index *4);
+ }
+
+ /* Make certain side2 of the dimm is at least 32MB */
+ if (sz.side2 >= (25 + 3)) {
+ base1 = (1 << ((sz.side2 - (25 + 3)) + 21)) | 1;
+ }
+
/* Set the appropriate DIMM base address register */
- pci_write_config32(PCI_DEV(0, 0x18, 2), 0x40 + (index << 2), value);
+ pci_write_config32(PCI_DEV(0, 0x18, 2), 0x40 + (((index << 1)+0)<<2), base0);
+ pci_write_config32(PCI_DEV(0, 0x18, 2), 0x40 + (((index << 1)+1)<<2), base1);
+ pci_write_config32(PCI_DEV(0, 0x18, 2), 0x80, map);
}
static void spd_set_ram_size(void)
{
struct dimm_size sz;
sz = spd_get_dimm_size(device);
- set_dimm_size(sz.side1, spd_to_dimm_side0(device));
- set_dimm_size(sz.side2, spd_to_dimm_side1(device));
+ set_dimm_size(sz, spd_to_dimm(device));
}
}
static void order_dimms(void)
{
unsigned long tom;
- unsigned mask;
- unsigned index;
/* Remember which registers we have used in the high 8 bits of tom */
tom = 0;
for(;;) {
/* Find the largest remaining canidate */
- unsigned canidate;
+ unsigned index, canidate;
uint32_t csbase, csmask;
unsigned size;
csbase = 0;
/* Write the new base register */
pci_write_config32(PCI_DEV(0, 0x18, 2), 0x40 + (canidate << 2), csbase);
+ /* Write the new mask register */
pci_write_config32(PCI_DEV(0, 0x18, 2), 0x60 + (canidate << 2), csmask);
}
set_top_mem((tom & ~0xff000000) << 15);
}
+static void spd_set_dram_timing(void)
+{
+
+}
#define DRAM_CONFIG_LOW 0x90
#define DCL_DLL_Disable (1<<0)
static void sdram_set_spd_registers(void)
{
spd_set_ram_size();
+ spd_set_dram_timing();
spd_set_ecc_mode();
order_dimms();
}
char *pos;
int line;
char *line_start;
+ int report_line;
+ const char *report_name;
+ const char *report_dir;
};
struct hash_entry;
struct token {
#define MAX_MISC 15
#define MAX_TARG 15
+struct occurance {
+ int count;
+ const char *filename;
+ const char *function;
+ int line;
+ int col;
+ struct occurance *parent;
+};
struct triple {
struct triple *next, *prev;
struct triple_set *use;
#define TRIPLE_FLAG_FLATTENED (1 << 31)
#define TRIPLE_FLAG_PRE_SPLIT (1 << 30)
#define TRIPLE_FLAG_POST_SPLIT (1 << 29)
- const char *filename;
- int line;
- int col;
+ struct occurance *occurance;
union {
ulong_t cval;
struct block *block;
FILE *output;
struct triple *vars;
struct file_state *file;
+ struct occurance *last_occurance;
+ const char *function;
struct token token[4];
struct hash_entry *hash_table[HASH_TABLE_SIZE];
struct hash_entry *i_continue;
int col;
if (triple) {
fprintf(fp, "%s:%d.%d: ",
- triple->filename, triple->line, triple->col);
+ triple->occurance->filename,
+ triple->occurance->line,
+ triple->occurance->col);
return;
}
if (!state->file) {
}
col = get_col(state->file);
fprintf(fp, "%s:%d.%d: ",
- state->file->basename, state->file->line, col);
+ state->file->report_name, state->file->report_line, col);
}
static void __internal_error(struct compile_state *state, struct triple *ptr,
}
}
+static void put_occurance(struct occurance *occurance)
+{
+ occurance->count -= 1;
+ if (occurance->count <= 0) {
+ if (occurance->parent) {
+ put_occurance(occurance->parent);
+ }
+ xfree(occurance);
+ }
+}
+
+static void get_occurance(struct occurance *occurance)
+{
+ occurance->count += 1;
+}
+
+
+static struct occurance *new_occurance(struct compile_state *state)
+{
+ struct occurance *result, *last;
+ const char *filename;
+ const char *function;
+ int line, col;
+
+ function = "";
+ filename = 0;
+ line = 0;
+ col = 0;
+ if (state->file) {
+ filename = state->file->report_name;
+ line = state->file->report_line;
+ col = get_col(state->file);
+ }
+ if (state->function) {
+ function = state->function;
+ }
+ last = state->last_occurance;
+ if (last &&
+ (last->col == col) &&
+ (last->line == line) &&
+ (last->function == function) &&
+ (strcmp(last->filename, filename) == 0)) {
+ get_occurance(last);
+ return last;
+ }
+ if (last) {
+ state->last_occurance = 0;
+ put_occurance(last);
+ }
+ result = xmalloc(sizeof(*result), "occurance");
+ result->count = 2;
+ result->filename = filename;
+ result->function = function;
+ result->line = line;
+ result->col = col;
+ result->parent = 0;
+ state->last_occurance = result;
+ return result;
+}
+
+static struct occurance *inline_occurance(struct compile_state *state,
+ struct occurance *new, struct occurance *orig)
+{
+ struct occurance *result, *last;
+ last = state->last_occurance;
+ if (last &&
+ (last->parent == orig) &&
+ (last->col == new->col) &&
+ (last->line == new->line) &&
+ (last->function == new->function) &&
+ (last->filename == new->filename)) {
+ get_occurance(last);
+ return last;
+ }
+ if (last) {
+ state->last_occurance = 0;
+ put_occurance(last);
+ }
+ get_occurance(orig);
+ result = xmalloc(sizeof(*result), "occurance");
+ result->count = 2;
+ result->filename = new->filename;
+ result->function = new->function;
+ result->line = new->line;
+ result->col = new->col;
+ result->parent = orig;
+ state->last_occurance = result;
+ return result;
+}
+
+
+static struct occurance dummy_occurance = {
+ .count = 2,
+ .filename = __FILE__,
+ .function = "",
+ .line = __LINE__,
+ .col = 0,
+ .parent = 0,
+};
/* The zero triple is used as a place holder when we are removing pointers
* from a triple. Having allows certain sanity checks to pass even
* when the original triple that was pointed to is gone.
*/
static struct triple zero_triple = {
- .next = &zero_triple,
- .prev = &zero_triple,
- .use = 0,
- .op = OP_INTCONST,
- .sizes = TRIPLE_SIZES(0, 0, 0, 0),
- .id = -1, /* An invalid id */
+ .next = &zero_triple,
+ .prev = &zero_triple,
+ .use = 0,
+ .op = OP_INTCONST,
+ .sizes = TRIPLE_SIZES(0, 0, 0, 0),
+ .id = -1, /* An invalid id */
.u = { .cval = 0, },
- .filename = __FILE__,
- .line = __LINE__,
- .col = 0,
+ .occurance = &dummy_occurance,
.param { [0] = 0, [1] = 0, },
};
static struct triple *alloc_triple(struct compile_state *state,
int op, struct type *type, int lhs, int rhs,
- const char *filename, int line, int col)
+ struct occurance *occurance)
{
size_t size, sizes, extra_count, min_count;
struct triple *ret;
size = sizeof(*ret) + sizeof(ret->param[0]) * extra_count;
ret = xcmalloc(size, "tripple");
- ret->op = op;
- ret->sizes = sizes;
- ret->type = type;
- ret->next = ret;
- ret->prev = ret;
- ret->filename = filename;
- ret->line = line;
- ret->col = col;
+ ret->op = op;
+ ret->sizes = sizes;
+ ret->type = type;
+ ret->next = ret;
+ ret->prev = ret;
+ ret->occurance = occurance;
return ret;
}
src_lhs = TRIPLE_LHS(src->sizes);
src_rhs = TRIPLE_RHS(src->sizes);
src_size = TRIPLE_SIZE(src->sizes);
+ get_occurance(src->occurance);
dup = alloc_triple(state, src->op, src->type, src_lhs, src_rhs,
- src->filename, src->line, src->col);
+ src->occurance);
memcpy(dup, src, sizeof(*src));
memcpy(dup->param, src->param, src_size * sizeof(src->param[0]));
return dup;
int op, struct type *type, int lhs, int rhs)
{
struct triple *ret;
- const char *filename;
- int line, col;
- filename = 0;
- line = 0;
- col = 0;
- if (state->file) {
- filename = state->file->basename;
- line = state->file->line;
- col = get_col(state->file);
- }
- ret = alloc_triple(state, op, type, lhs, rhs,
- filename, line, col);
+ struct occurance *occurance;
+ occurance = new_occurance(state);
+ ret = alloc_triple(state, op, type, lhs, rhs, occurance);
return ret;
}
static struct triple *build_triple(struct compile_state *state,
int op, struct type *type, struct triple *left, struct triple *right,
- const char *filename, int line, int col)
+ struct occurance *occurance)
{
struct triple *ret;
size_t count;
- ret = alloc_triple(state, op, type, -1, -1, filename, line, col);
+ ret = alloc_triple(state, op, type, -1, -1, occurance);
count = TRIPLE_SIZE(ret->sizes);
if (count > 0) {
ret->param[0] = left;
base = MISC(base, 0);
}
block = block_of_triple(state, base);
- ret = build_triple(state, op, type, left, right,
- base->filename, base->line, base->col);
+ get_occurance(base->occurance);
+ ret = build_triple(state, op, type, left, right, base->occurance);
if (triple_stores_block(state, ret)) {
ret->u.block = block;
}
}
block = block_of_triple(state, base);
- ret = build_triple(state, op, type, left, right,
- base->filename, base->line, base->col);
+ get_occurance(base->occurance);
+ ret = build_triple(state, op, type, left, right, base->occurance);
if (triple_stores_block(state, ret)) {
ret->u.block = block;
}
static void display_triple(FILE *fp, struct triple *ins)
{
+ struct occurance *ptr;
+ const char *reg;
+ char pre, post;
+ pre = post = ' ';
+ if (ins->id & TRIPLE_FLAG_PRE_SPLIT) {
+ pre = '^';
+ }
+ if (ins->id & TRIPLE_FLAG_POST_SPLIT) {
+ post = 'v';
+ }
+ reg = arch_reg_str(ID_REG(ins->id));
if (ins->op == OP_INTCONST) {
- fprintf(fp, "(%p) %3d %-2d %-10s <0x%08lx> @ %s:%d.%d\n",
- ins, ID_REG(ins->id), ins->template_id, tops(ins->op),
- ins->u.cval,
- ins->filename, ins->line, ins->col);
+ fprintf(fp, "(%p) %c%c %-7s %-2d %-10s <0x%08lx> ",
+ ins, pre, post, reg, ins->template_id, tops(ins->op),
+ ins->u.cval);
}
else if (ins->op == OP_ADDRCONST) {
- fprintf(fp, "(%p) %3d %-2d %-10s %-10p <0x%08lx> @ %s:%d.%d\n",
- ins, ID_REG(ins->id), ins->template_id, tops(ins->op),
- MISC(ins, 0), ins->u.cval,
- ins->filename, ins->line, ins->col);
+ fprintf(fp, "(%p) %c%c %-7s %-2d %-10s %-10p <0x%08lx>",
+ ins, pre, post, reg, ins->template_id, tops(ins->op),
+ MISC(ins, 0), ins->u.cval);
}
else {
int i, count;
- fprintf(fp, "(%p) %3d %-2d %-10s",
- ins, ID_REG(ins->id), ins->template_id, tops(ins->op));
+ fprintf(fp, "(%p) %c%c %-7s %-2d %-10s",
+ ins, pre, post, reg, ins->template_id, tops(ins->op));
count = TRIPLE_SIZE(ins->sizes);
for(i = 0; i < count; i++) {
fprintf(fp, " %-10p", ins->param[i]);
for(; i < 2; i++) {
fprintf(fp, " ");
}
- fprintf(fp, " @ %s:%d.%d\n",
- ins->filename, ins->line, ins->col);
}
+ fprintf(fp, " @");
+ for(ptr = ins->occurance; ptr; ptr = ptr->parent) {
+ fprintf(fp, " %s,%s:%d.%d",
+ ptr->function,
+ ptr->filename,
+ ptr->line,
+ ptr->col);
+ }
+ fprintf(fp, "\n");
fflush(fp);
}
if (ptr->use) {
internal_error(state, ptr, "ptr->use != 0");
}
+ put_occurance(ptr->occurance);
memset(ptr, -1, size);
xfree(ptr);
}
while ((tokp < end) && spacep(c)) {
if (c == '\n') {
file->line++;
+ file->report_line++;
file->line_start = tokp + 1;
}
c = *(++tokp);
c = *tokp;
if (c == '\n') {
file->line++;
+ file->report_line++;
file->line_start = tokp +1;
break;
}
if (tok == TOK_UNKNOWN) {
error(state, 0, "unterminated comment");
}
+ file->report_line += line - file->line;
file->line = line;
file->line_start = line_start;
}
if (line != file->line) {
warning(state, 0, "multiline string constant");
}
+ file->report_line += line - file->line;
file->line = line;
file->line_start = line_start;
if (line != file->line) {
warning(state, 0, "multiline character constant");
}
+ file->report_line += line - file->line;
file->line = line;
file->line_start = line_start;
file->pos = file->buf;
file->line_start = file->pos;
file->line = 1;
+ file->report_line = 1;
+ file->report_name = file->basename;
+ file->report_dir = file->dirname;
file->prev = state->file;
state->file = file;
}
struct file_state *file = state->file;
state->file = file->prev;
/* file->basename is used keep it */
+ if (file->report_dir != file->dirname) {
+ xfree(file->report_dir);
+ }
xfree(file->dirname);
xfree(file->buf);
xfree(file);
tk->ident->name);
}
switch(tk->tok) {
- case TOK_UNDEF:
+ case TOK_LIT_INT:
+ {
+ int override_line;
+ override_line = strtoul(tk->val.str, 0, 10);
+ next_token(state, index);
+ /* I have a cpp line marker parse it */
+ if (tk->tok == TOK_LIT_STRING) {
+ const char *token, *base;
+ char *name, *dir;
+ int name_len, dir_len;
+ name = xmalloc(tk->str_len, "report_name");
+ token = tk->val.str + 1;
+ base = strrchr(token, '/');
+ name_len = tk->str_len -2;
+ if (base != 0) {
+ dir_len = base - token;
+ base++;
+ name_len -= base - token;
+ } else {
+ dir_len = 0;
+ base = token;
+ }
+ memcpy(name, base, name_len);
+ name[name_len] = '\0';
+ dir = xmalloc(dir_len + 1, "report_dir");
+ memcpy(dir, token, dir_len);
+ dir[dir_len] = '\0';
+ file->report_line = override_line - 1;
+ file->report_name = name;
+ file->report_dir = dir;
+ }
+ }
+ break;
case TOK_LINE:
+ meat(state, index, TOK_LINE);
+ meat(state, index, TOK_LIT_INT);
+ file->report_line = strtoul(tk->val.str, 0, 10) -1;
+ if (mpeek(state, index) == TOK_LIT_STRING) {
+ const char *token, *base;
+ char *name, *dir;
+ int name_len, dir_len;
+ meat(state, index, TOK_LIT_STRING);
+ name = xmalloc(tk->str_len, "report_name");
+ token = tk->val.str + 1;
+ name_len = tk->str_len - 2;
+ if (base != 0) {
+ dir_len = base - token;
+ base++;
+ name_len -= base - token;
+ } else {
+ dir_len = 0;
+ base = token;
+ }
+ memcpy(name, base, name_len);
+ name[name_len] = '\0';
+ dir = xmalloc(dir_len + 1, "report_dir");
+ memcpy(dir, token, dir_len);
+ dir[dir_len] = '\0';
+ file->report_name = name;
+ file->report_dir = dir;
+ }
+ break;
+ case TOK_UNDEF:
case TOK_PRAGMA:
if (state->if_value < 0) {
break;
file->line_start = file->pos;
file->line = 1;
+ file->report_line = 1;
+ file->report_name = file->basename;
+ file->report_dir = file->dirname;
+
file->prev = state->file;
state->file = file;
return read_expr(state, val);
}
-struct triple *copy_func(struct compile_state *state, struct triple *ofunc)
+struct triple *copy_func(struct compile_state *state, struct triple *ofunc,
+ struct occurance *base_occurance)
{
struct triple *nfunc;
struct triple *nfirst, *ofirst;
ofirst = old = RHS(ofunc, 0);
do {
struct triple *new;
+ struct occurance *occurance;
int old_lhs, old_rhs;
old_lhs = TRIPLE_LHS(old->sizes);
old_rhs = TRIPLE_RHS(old->sizes);
+ occurance = inline_occurance(state, base_occurance, old->occurance);
new = alloc_triple(state, old->op, old->type, old_lhs, old_rhs,
- old->filename, old->line, old->col);
+ occurance);
if (!triple_stores_block(state, new)) {
memcpy(&new->u, &old->u, sizeof(new->u));
}
if (ofunc->op != OP_LIST) {
internal_error(state, 0, "improper function");
}
- nfunc = copy_func(state, ofunc);
+ nfunc = copy_func(state, ofunc, ptr->occurance);
nfirst = RHS(nfunc, 0)->next;
/* Prepend the parameter reading into the new function list */
ptype = nfunc->type->right;
op = ins->op;
def = RHS(ins, 0);
+ get_occurance(ins->occurance);
next = alloc_triple(state, OP_VAL_VEC, ins->type, -1, -1,
- ins->filename, ins->line, ins->col);
+ ins->occurance);
vector = &RHS(next, 0);
tptr = next->type->left;
vector[i] = triple(
state, op, mtype, sfield, 0);
- vector[i]->filename = next->filename;
- vector[i]->line = next->line;
- vector[i]->col = next->col;
+ put_occurance(vector[i]->occurance);
+ get_occurance(next->occurance);
+ vector[i]->occurance = next->occurance;
tptr = tptr->right;
}
propogate_use(state, ins, next);
op = ins->op;
src = RHS(ins, 0);
dst = LHS(ins, 0);
+ get_occurance(ins->occurance);
next = alloc_triple(state, OP_VAL_VEC, ins->type, -1, -1,
- ins->filename, ins->line, ins->col);
+ ins->occurance);
vector = &RHS(next, 0);
tptr = next->type->left;
dfield = deref_field(state, dst, mtype->field_ident);
vector[i] = triple(
state, op, mtype, dfield, sfield);
- vector[i]->filename = next->filename;
- vector[i]->line = next->line;
- vector[i]->col = next->col;
+ put_occurance(vector[i]->occurance);
+ get_occurance(next->occurance);
+ vector[i]->occurance = next->occurance;
tptr = tptr->right;
}
propogate_use(state, ins, next);
/* Dummy file state to get debug handling right */
memset(&file, 0, sizeof(file));
- file.basename = name;
+ file.basename = "<built-in>";
file.line = 1;
+ file.report_line = 1;
+ file.report_name = file.basename;
file.prev = state->file;
state->file = &file;
+ state->function = name;
/* Find the Parameter count */
valid_op(state, op);
symbol(state, ident, &ident->sym_ident, def, ftype);
state->file = file.prev;
+ state->function = 0;
#if 0
fprintf(stdout, "\n");
loc(stdout, state, 0);
type = declarator(state, base_type, &ident, 0);
if (global && ident && (peek(state) == TOK_LBRACE)) {
/* function */
+ state->function = ident->name;
def = function_definition(state, type);
symbol(state, ident, &ident->sym_ident, def, type);
+ state->function = 0;
}
else {
int done;
/* Count how many edges flow into this block */
in_edges = front->users;
/* Insert a phi function for this variable */
+ get_occurance(front->first->occurance);
phi = alloc_triple(
state, OP_PHI, var->type, -1, in_edges,
- front->first->filename,
- front->first->line,
- front->first->col);
+ front->first->occurance);
phi->u.block = front;
MISC(phi, 0) = var;
use_triple(var, phi);
continue;
}
+ get_occurance(val->occurance);
move = build_triple(state, OP_COPY, phi->type, val, 0,
- val->filename, val->line, val->col);
+ val->occurance);
move->u.block = eblock;
move->id |= TRIPLE_FLAG_PRE_SPLIT;
use_triple(val, move);
internal_error(state, user, "bad rhs");
}
tmp = pre_copy(state, user, i);
+ tmp->id |= TRIPLE_FLAG_PRE_SPLIT;
continue;
} else {
do_post_copy = 1;
internal_error(state, user, "bad rhs");
}
tmp = pre_copy(state, user, i);
+ tmp->id |= TRIPLE_FLAG_PRE_SPLIT;
continue;
} else {
do_post_copy = 1;
if (do_post_copy) {
struct reg_info pre, post;
tmp = post_copy(state, ins);
+ tmp->id |= TRIPLE_FLAG_PRE_SPLIT;
pre = arch_reg_lhs(state, ins, 0);
post = arch_reg_lhs(state, tmp, 0);
if ((pre.reg == post.reg) && (pre.regcm == post.regcm)) {
index = hash_live_edge(left, right);
ptr = &rstate->hash[index];
- while((*ptr) && ((*ptr)->left != left) && ((*ptr)->right != right)) {
+ while(*ptr) {
+ if (((*ptr)->left == left) && ((*ptr)->right == right)) {
+ break;
+ }
ptr = &(*ptr)->next;
}
return ptr;
if (*ptr) {
return;
}
+#if 0
+ fprintf(stderr, "new_live_edge(%p, %p)\n",
+ left, right);
+#endif
new_hash = xmalloc(sizeof(*new_hash), "lre_hash");
new_hash->next = *ptr;
new_hash->left = left;
*ptr = edge->next;
memset(edge, 0, sizeof(*edge));
xfree(edge);
+ right->degree--;
break;
}
}
*ptr = edge->next;
memset(edge, 0, sizeof(*edge));
xfree(edge);
+ left->degree--;
break;
}
}
fprintf(stderr, "lr2 pre\n");
}
#endif
-#if 0
+#if 1
fprintf(stderr, "coalesce color1(%p): %3d color2(%p) %3d\n",
lr1->defs->def,
lr1->color,
return;
}
+static struct live_range *get_verify_live_range(
+ struct compile_state *state, struct reg_state *rstate, struct triple *ins)
+{
+ struct live_range *lr;
+ struct live_range_def *lrd;
+ int ins_found;
+ if ((ins->id < 0) || (ins->id > rstate->defs)) {
+ internal_error(state, ins, "bad ins?");
+ }
+ lr = rstate->lrd[ins->id].lr;
+ ins_found = 0;
+ lrd = lr->defs;
+ do {
+ if (lrd->def == ins) {
+ ins_found = 1;
+ }
+ lrd = lrd->next;
+ } while(lrd != lr->defs);
+ if (!ins_found) {
+ internal_error(state, ins, "ins not in live range");
+ }
+ return lr;
+}
+
+static void verify_graph_ins(
+ struct compile_state *state,
+ struct reg_block *blocks, struct triple_reg_set *live,
+ struct reg_block *rb, struct triple *ins, void *arg)
+{
+ struct reg_state *rstate = arg;
+ struct triple_reg_set *entry1, *entry2;
+
+
+ /* Compare live against edges and make certain the code is working */
+ for(entry1 = live; entry1; entry1 = entry1->next) {
+ struct live_range *lr1;
+ lr1 = get_verify_live_range(state, rstate, entry1->member);
+ for(entry2 = live; entry2; entry2 = entry2->next) {
+ struct live_range *lr2;
+ struct live_range_edge *edge2;
+ int lr1_found;
+ int lr2_degree;
+ if (entry2 == entry1) {
+ continue;
+ }
+ lr2 = get_verify_live_range(state, rstate, entry2->member);
+ if (lr1 == lr2) {
+ internal_error(state, entry2->member,
+ "live range with 2 values simultaneously alive");
+ }
+ if (!arch_regcm_intersect(lr1->classes, lr2->classes)) {
+ continue;
+ }
+ if (!interfere(rstate, lr1, lr2)) {
+ internal_error(state, entry2->member,
+ "edges don't interfere?");
+ }
+
+ lr1_found = 0;
+ lr2_degree = 0;
+ for(edge2 = lr2->edges; edge2; edge2 = edge2->next) {
+ lr2_degree++;
+ if (edge2->node == lr1) {
+ lr1_found = 1;
+ }
+ }
+ if (lr2_degree != lr2->degree) {
+ internal_error(state, entry2->member,
+ "computed degree: %d does not match reported degree: %d\n",
+ lr2_degree, lr2->degree);
+ }
+ if (!lr1_found) {
+ internal_error(state, entry2->member, "missing edge");
+ }
+ }
+ }
+ return;
+}
+
static void print_interference_ins(
struct compile_state *state,
{
struct reg_state *rstate = arg;
struct live_range *lr;
+ unsigned id;
lr = rstate->lrd[ins->id].lr;
+ id = ins->id;
+ ins->id = rstate->lrd[id].orig_id;
+ SET_REG(ins->id, lr->color);
display_triple(stdout, ins);
+ ins->id = id;
if (lr->defs) {
struct live_range_def *lrd;
if (interfere(rstate, lr1, lr2)) {
continue;
}
-
+
res = coalesce_ranges(state, rstate, lr1, lr2);
coalesced += 1;
if (res != lr1) {
}
}
id = ptr->id;
+ ptr->id = rstate->lrd[id].orig_id;
SET_REG(ptr->id, lr->color);
display_triple(stdout, ptr);
ptr->id = id;
/* Forget previous live range edge calculations */
cleanup_live_edges(&rstate);
+#if 0
+ fprintf(stderr, "coalescing\n");
+#endif
/* Compute the interference graph */
walk_variable_lifetimes(
state, rstate.blocks, graph_ins, &rstate);
state, rstate.blocks,
print_interference_ins, &rstate);
}
+#if DEBUG_CONSISTENCY
+ /* Verify the interference graph */
+ walk_variable_lifetimes(
+ state, rstate.blocks, verify_graph_ins, &rstate);
+#endif
coalesced = coalesce_live_ranges(state, &rstate);
} while(coalesced);
static const char *arch_reg_str(int reg)
{
static const char *regs[] = {
- "%bad_register",
- "%bad_register2",
+ "%unset",
+ "%unneeded",
"%eflags",
"%al", "%bl", "%cl", "%dl", "%ah", "%bh", "%ch", "%dh",
"%ax", "%bx", "%cx", "%dx", "%si", "%di", "%bp", "%sp",
{
struct triple *first, *ins;
int print_location;
- int last_line;
- int last_col;
- const char *last_filename;
+ struct occurance *last_occurance;
FILE *fp;
print_location = 1;
- last_line = -1;
- last_col = -1;
- last_filename = 0;
+ last_occurance = 0;
fp = state->output;
fprintf(fp, ".section \"" TEXT_SECTION "\"\n");
first = RHS(state->main_function, 0);
ins = first;
do {
- if (print_location &&
- ((last_filename != ins->filename) ||
- (last_line != ins->line) ||
- (last_col != ins->col))) {
- fprintf(fp, "\t/* %s:%d */\n",
- ins->filename, ins->line);
- last_filename = ins->filename;
- last_line = ins->line;
- last_col = ins->col;
+ if (print_location &&
+ last_occurance != ins->occurance) {
+ if (!ins->occurance->parent) {
+ fprintf(fp, "\t/* %s,%s:%d.%d */\n",
+ ins->occurance->function,
+ ins->occurance->filename,
+ ins->occurance->line,
+ ins->occurance->col);
+ }
+ else {
+ struct occurance *ptr;
+ fprintf(fp, "\t/*\n");
+ for(ptr = ins->occurance; ptr; ptr = ptr->parent) {
+ fprintf(fp, "\t * %s,%s:%d.%d\n",
+ ptr->function,
+ ptr->filename,
+ ptr->line,
+ ptr->col);
+ }
+ fprintf(fp, "\t */\n");
+
+ }
+ if (last_occurance) {
+ put_occurance(last_occurance);
+ }
+ get_occurance(ins->occurance);
+ last_occurance = ins->occurance;
}
print_instruction(state, ins, fp);
projects / coreboot.git / commitdiff