71 lines
1.4 KiB
C
71 lines
1.4 KiB
C
#include "mcg.h"
|
|
|
|
static void init_idf();
|
|
static struct idf* str2idf(char* tg, int cp);
|
|
|
|
#define IDF_TYPE struct basicblock*
|
|
#define IDF_NAME block
|
|
#include <idf_pkg.spec>
|
|
#include <idf_pkg.body>
|
|
|
|
static int next_id = 0;
|
|
|
|
void bb_init(void)
|
|
{
|
|
init_idf();
|
|
}
|
|
|
|
struct basicblock* bb_get(const char* name)
|
|
{
|
|
struct idf* p;
|
|
|
|
if (!name)
|
|
name = aprintf("___anon_bb_%d", next_id++);
|
|
p = str2idf((char*) name, 0);
|
|
if (!p->block)
|
|
{
|
|
p->block = calloc(sizeof(struct basicblock), 1);
|
|
p->block->name = name;
|
|
}
|
|
return p->block;
|
|
}
|
|
|
|
void bb_alias(struct basicblock* block, const char* name)
|
|
{
|
|
struct idf* p = str2idf((char*) name, -1);
|
|
assert(p == NULL);
|
|
|
|
p = str2idf((char*) name, 0);
|
|
p->block = block;
|
|
}
|
|
|
|
void bb_wire_outs_to_ins(struct basicblock* inblock, struct basicblock* outblock)
|
|
{
|
|
int i;
|
|
|
|
if (!outblock->is_wired)
|
|
{
|
|
for (i=0; i<inblock->outs_count; i++)
|
|
{
|
|
struct ir* value = inblock->outs[i];
|
|
APPEND(outblock->ins,
|
|
new_phiir(value->size)
|
|
);
|
|
}
|
|
outblock->is_wired = true;
|
|
}
|
|
|
|
assert(inblock->outs_count == outblock->ins_count);
|
|
for (i=0; i<inblock->outs_count; i++)
|
|
{
|
|
struct ir* srcvalue = inblock->outs[i];
|
|
struct ir* destvalue = outblock->ins[i];
|
|
assert(srcvalue->size == destvalue->size);
|
|
assert(destvalue->opcode == IR_PHI);
|
|
|
|
APPENDU(destvalue->u.phivalue.srcs, srcvalue);
|
|
}
|
|
}
|
|
|
|
/* vim: set sw=4 ts=4 expandtab : */
|