X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbechordal_draw.c;h=6e20f43b927a2a3c7efc66e7302b2d360402f90c;hb=4d7a9507baf1737297cd4f7fc91eab209fd5d398;hp=10a734f839f2475d344fbf6acbe579a280138eef;hpb=03ffa62ef4f525aa0c45dbe766a17bc94b161695;p=libfirm diff --git a/ir/be/bechordal_draw.c b/ir/be/bechordal_draw.c index 10a734f83..6e20f43b9 100644 --- a/ir/be/bechordal_draw.c +++ b/ir/be/bechordal_draw.c @@ -9,14 +9,18 @@ * Copyright (C) 2005 Universitaet Karlsruhe * Released under the GPL */ +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif #include #include "pmap.h" +#include "pset.h" #include "irgwalk.h" #include "irprintf.h" -#include "irouts.h" +#include "iredges_t.h" #include "belive_t.h" #include "bechordal_t.h" @@ -67,6 +71,16 @@ typedef struct { FILE *f; } ps_plotter_t; + +/* + ____ ____ ____ _ _ _ + | _ \/ ___| | _ \| | ___ | |_| |_ ___ _ __ + | |_) \___ \ | |_) | |/ _ \| __| __/ _ \ '__| + | __/ ___) | | __/| | (_) | |_| || __/ | + |_| |____/ |_| |_|\___/ \__|\__\___|_| + +*/ + static void ps_begin(plotter_t *_self, const rect_t *vis) { FILE *f; @@ -144,6 +158,63 @@ plotter_t *new_plotter_ps(const char *filename) return p; } +/* + _____ _ _ _____ ____ _ _ _ + |_ _(_) | __|__ / | _ \| | ___ | |_| |_ ___ _ __ + | | | | |/ / / / | |_) | |/ _ \| __| __/ _ \ '__| + | | | | < / /_ | __/| | (_) | |_| || __/ | + |_| |_|_|\_\/____| |_| |_|\___/ \__|\__\___|_| + +*/ + +typedef struct { + base_plotter_t inh; + const char *filename; + FILE *f; +} tikz_plotter_t; + +static void tikz_begin(plotter_t *_self, const rect_t *vis) +{ + FILE *f; + decl_self(tikz_plotter_t, _self); + + f = self->f = fopen(self->filename, "wt"); + fprintf(f, "\\begin{tikzpicture}\n"); +} + +static void tikz_setcolor(plotter_t *_self, const color_t *color) +{ + decl_self(tikz_plotter_t, _self); + set_color(_self, color); +} + +static void tikz_line(plotter_t *_self, int x1, int y1, int x2, int y2) +{ + decl_self(tikz_plotter_t, _self); + fprintf(self->f, "\t\\draw (%d,%d) -- (%d,%d);\n", x1, y1, x2, y2); +} + +static void tikz_box(plotter_t *_self, const rect_t *rect) +{ + decl_self(tikz_plotter_t, _self); + + fprintf(self->f, "\t\\draw (%d,%d) rectangle (%d, %d)\n", + rect->x, rect->y, rect->x + rect->w, rect->y + rect->h); +} + +void tikz_text(plotter_t *_self, int x, int y, const char *str) +{ + decl_self(tikz_plotter_t, _self); + fprintf(self->f, "\t\\draw (%d,%d) node {%s};\n", x, y, str); +} + +static void tikz_finish(plotter_t *_self) +{ + decl_self(tikz_plotter_t, _self); + fclose(self->f); +} + + extern void plotter_free(plotter_t *self) { self->vtab->free(self); @@ -174,11 +245,13 @@ struct block_dims { rect_t subtree_box; }; +#undef min static INLINE int min(int a, int b) { return a < b ? a : b; } +#undef max static INLINE int max(int a, int b) { return a > b ? a : b; @@ -199,7 +272,7 @@ static void block_dims_walker(ir_node *block, void *data) list_for_each_entry_reverse(border_t, b, head, list) { ir_node *irn = b->irn; - const arch_register_t *reg = arch_get_irn_register(env->arch_env, irn, 0); + const arch_register_t *reg = arch_get_irn_register(env->arch_env, irn); int col = arch_register_get_index(reg); dims->max_step = max(dims->max_step, b->step); @@ -271,10 +344,11 @@ static void set_y(const draw_chordal_env_t *env, ir_node *bl, int up) static color_t *reg_to_color(const draw_chordal_env_t *env, ir_node *rel_bl, ir_node *irn, color_t *color) { - int i, n, phi_arg = 0; + int phi_arg = 0; + const ir_edge_t *edge; - for(i = 0, n = get_irn_n_outs(irn); i < n && !phi_arg; ++i) - phi_arg |= is_Phi(get_irn_out(irn, i)); + foreach_out_edge(irn, edge) + phi_arg |= is_Phi(edge->src); #if 1 color->r = is_Phi(irn) ? 0.5 : 0.0; @@ -300,7 +374,7 @@ static void draw_block(ir_node *bl, void *data) static const color_t black = { 0, 0, 0 }; const draw_chordal_env_t *env = data; - pset *live_in = get_live_in(bl); + pset *live_in = put_live_in(bl, pset_new_ptr_default()); ir_node *irn; border_t *b; struct list_head *head = get_block_border_head(env->chordal_env, bl); @@ -320,9 +394,8 @@ static void draw_block(ir_node *bl, void *data) list_for_each_entry(border_t, b, head, list) { if(b->is_def) { - const arch_register_t *reg = arch_get_irn_register(env->arch_env, b->irn, 0); + const arch_register_t *reg = arch_get_irn_register(env->arch_env, b->irn); int col = arch_register_get_index(reg); - int live_in = is_live_in(bl, b->irn); int live_out = is_live_out(bl, b->irn); int x = (col + 1) * opts->h_inter_gap; int ystart = (b->step) * opts->v_inter_gap; @@ -348,8 +421,8 @@ static void draw_block(ir_node *bl, void *data) struct block_dims *dom_dims = pmap_get(env->block_dims, dom); for(irn = pset_first(live_in); irn; irn = pset_next(live_in)) { - if(arch_irn_has_reg_class(env->arch_env, irn, 0, env->cls)) { - const arch_register_t *reg = arch_get_irn_register(env->arch_env, irn, 0); + if(arch_irn_has_reg_class(env->arch_env, irn, -1, env->cls)) { + const arch_register_t *reg = arch_get_irn_register(env->arch_env, irn); int col = arch_register_get_index(reg); int x = (col + 1) * opts->h_inter_gap; @@ -366,19 +439,7 @@ static void draw_block(ir_node *bl, void *data) } } -#if 0 - if(dom) { - struct block_dims *dom_dims = pmap_get(env->block_dims, dom); - rect_t line; - - line.x = dims->box.x; - line.y = dims->box.y; - line.w = dom_dims->box.x; - line.h = dom_dims->box.y; - - env->plotter->vtab->line(env->plotter, &line); - } -#endif + del_pset(live_in); } static void draw(draw_chordal_env_t *env, const rect_t *start_box) @@ -396,20 +457,18 @@ static void draw(draw_chordal_env_t *env, const rect_t *start_box) } void draw_interval_tree(const draw_chordal_opts_t *opts, - const be_chordal_env_t *chordal_env, - plotter_t *plotter, const arch_env_t *arch_env, - const arch_register_class_t *cls) + const be_chordal_env_t *chordal_env, + plotter_t *plotter) { draw_chordal_env_t env; struct block_dims *start_dims; ir_node *start_block = get_irg_start_block(chordal_env->irg); - env.arch_env = arch_env; + env.arch_env = chordal_env->birg->main_env->arch_env; env.opts = opts; env.block_dims = pmap_create(); env.plotter = plotter; - env.chordal_env = chordal_env; - env.cls = cls; + env.cls = chordal_env->cls; env.max_color = 0; env.chordal_env = chordal_env; obstack_init(&env.obst);