qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-04-04 08:25:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make some minor improvements to flow graph dumps.

Browse source
This commit is contained in:
Bill Currie 2012-11-06 19:18:00 +09:00
parent 3298e4d67e
commit c4d4174ebc
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tools/qfcc/source/dot_flow.c
View file

@ -58,10 +58,18 @@ print_flow_node (dstring_t *dstr, flowgraph_t *graph, flownode_t *node,
int indent = level * 2 + 2;
set_iter_t *var_iter;
flowvar_t *var;
int live;
live = node->live_vars.out && !set_is_empty (node->live_vars.out);
if (live) {
dasprintf (dstr, "%*ssubgraph sub_%p {\n", indent, "", node);
//dasprintf (dstr, "%*s rank=same;\n", indent, "");
indent += 2;
}
dasprintf (dstr, "%*s\"fn_%p\" [label=\"%d (%d)\"];\n", indent, "", node,
node->id, node->dfn);
if (node->live_vars.out && !set_is_empty (node->live_vars.out)) {
if (live) {
dasprintf (dstr, "%*slv_%p [shape=none,label=<\n", indent, "", node);
dasprintf (dstr, "%*s<table border=\"0\" cellborder=\"1\" "
"cellspacing=\"0\">\n", indent + 2, "");
@ -73,8 +81,12 @@ print_flow_node (dstring_t *dstr, flowgraph_t *graph, flownode_t *node,
var->number, html_string(operand_string (var->op)));
}
dasprintf (dstr, "%*s</table>>];\n", indent + 2, "");
dasprintf (dstr, "%*sfn_%p -> lv_%p [constraint=false,style=dashed];\n",
dasprintf (dstr, "%*sfn_%p -> lv_%p "
//"[constraint=false,style=dashed,weight=10];\n",
"[style=dashed,weight=10];\n",
indent, "", node, node);
indent -= 2;
dasprintf (dstr, "%*s}\n", indent, "");
}
}