blob: e9ae9e28244c7ad14f4d012a06e04b10b760546a [file] [log] [blame]
/* Graph representation and manipulation functions.
Copyright (C) 2007-2021 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "bitmap.h"
#include "graphds.h"
/* Dumps graph G into F. */
void
dump_graph (FILE *f, struct graph *g)
{
int i;
struct graph_edge *e;
for (i = 0; i < g->n_vertices; i++)
{
if (!g->vertices[i].pred
&& !g->vertices[i].succ)
continue;
fprintf (f, "%d (%d)\t<-", i, g->vertices[i].component);
for (e = g->vertices[i].pred; e; e = e->pred_next)
fprintf (f, " %d", e->src);
fprintf (f, "\n");
fprintf (f, "\t->");
for (e = g->vertices[i].succ; e; e = e->succ_next)
fprintf (f, " %d", e->dest);
fprintf (f, "\n");
}
}
/* Creates a new graph with N_VERTICES vertices. */
struct graph *
new_graph (int n_vertices)
{
struct graph *g = XNEW (struct graph);
gcc_obstack_init (&g->ob);
g->n_vertices = n_vertices;
g->vertices = XOBNEWVEC (&g->ob, struct vertex, n_vertices);
memset (g->vertices, 0, sizeof (struct vertex) * n_vertices);
return g;
}
/* Adds an edge from F to T to graph G. The new edge is returned. */
struct graph_edge *
add_edge (struct graph *g, int f, int t)
{
struct graph_edge *e = XOBNEW (&g->ob, struct graph_edge);
struct vertex *vf = &g->vertices[f], *vt = &g->vertices[t];
e->src = f;
e->dest = t;
e->pred_next = vt->pred;
vt->pred = e;
e->succ_next = vf->succ;
vf->succ = e;
e->data = NULL;
return e;
}
/* Moves all the edges incident with U to V. */
void
identify_vertices (struct graph *g, int v, int u)
{
struct vertex *vv = &g->vertices[v];
struct vertex *uu = &g->vertices[u];
struct graph_edge *e, *next;
for (e = uu->succ; e; e = next)
{
next = e->succ_next;
e->src = v;
e->succ_next = vv->succ;
vv->succ = e;
}
uu->succ = NULL;
for (e = uu->pred; e; e = next)
{
next = e->pred_next;
e->dest = v;
e->pred_next = vv->pred;
vv->pred = e;
}
uu->pred = NULL;
}
/* Helper function for graphds_dfs. Returns the source vertex of E, in the
direction given by FORWARD. */
static inline int
dfs_edge_src (struct graph_edge *e, bool forward)
{
return forward ? e->src : e->dest;
}
/* Helper function for graphds_dfs. Returns the destination vertex of E, in
the direction given by FORWARD. */
static inline int
dfs_edge_dest (struct graph_edge *e, bool forward)
{
return forward ? e->dest : e->src;
}
/* Helper function for graphds_dfs. Returns the first edge after E (including
E), in the graph direction given by FORWARD, that belongs to SUBGRAPH. If
SKIP_EDGE_P is not NULL, it points to a callback function. Edge E will be
skipped if callback function returns true. */
static inline struct graph_edge *
foll_in_subgraph (struct graph_edge *e, bool forward, bitmap subgraph,
skip_edge_callback skip_edge_p)
{
int d;
if (!e)
return e;
if (!subgraph && (!skip_edge_p || !skip_edge_p (e)))
return e;
while (e)
{
d = dfs_edge_dest (e, forward);
/* Return edge if it belongs to subgraph and shouldn't be skipped. */
if ((!subgraph || bitmap_bit_p (subgraph, d))
&& (!skip_edge_p || !skip_edge_p (e)))
return e;
e = forward ? e->succ_next : e->pred_next;
}
return e;
}
/* Helper function for graphds_dfs. Select the first edge from V in G, in the
direction given by FORWARD, that belongs to SUBGRAPH. If SKIP_EDGE_P is not
NULL, it points to a callback function. Edge E will be skipped if callback
function returns true. */
static inline struct graph_edge *
dfs_fst_edge (struct graph *g, int v, bool forward, bitmap subgraph,
skip_edge_callback skip_edge_p)
{
struct graph_edge *e;
e = (forward ? g->vertices[v].succ : g->vertices[v].pred);
return foll_in_subgraph (e, forward, subgraph, skip_edge_p);
}
/* Helper function for graphds_dfs. Returns the next edge after E, in the
graph direction given by FORWARD, that belongs to SUBGRAPH. If SKIP_EDGE_P
is not NULL, it points to a callback function. Edge E will be skipped if
callback function returns true. */
static inline struct graph_edge *
dfs_next_edge (struct graph_edge *e, bool forward, bitmap subgraph,
skip_edge_callback skip_edge_p)
{
return foll_in_subgraph (forward ? e->succ_next : e->pred_next,
forward, subgraph, skip_edge_p);
}
/* Runs dfs search over vertices of G, from NQ vertices in queue QS.
The vertices in postorder are stored into QT. If FORWARD is false,
backward dfs is run. If SUBGRAPH is not NULL, it specifies the
subgraph of G to run DFS on. Returns the number of the components
of the graph (number of the restarts of DFS). If SKIP_EDGE_P is not
NULL, it points to a callback function. Edge E will be skipped if
callback function returns true. */
int
graphds_dfs (struct graph *g, int *qs, int nq, vec<int> *qt,
bool forward, bitmap subgraph,
skip_edge_callback skip_edge_p)
{
int i, tick = 0, v, comp = 0, top;
struct graph_edge *e;
struct graph_edge **stack = XNEWVEC (struct graph_edge *, g->n_vertices);
bitmap_iterator bi;
unsigned av;
if (subgraph)
{
EXECUTE_IF_SET_IN_BITMAP (subgraph, 0, av, bi)
{
g->vertices[av].component = -1;
g->vertices[av].post = -1;
}
}
else
{
for (i = 0; i < g->n_vertices; i++)
{
g->vertices[i].component = -1;
g->vertices[i].post = -1;
}
}
for (i = 0; i < nq; i++)
{
v = qs[i];
if (g->vertices[v].post != -1)
continue;
g->vertices[v].component = comp++;
e = dfs_fst_edge (g, v, forward, subgraph, skip_edge_p);
top = 0;
while (1)
{
while (e)
{
if (g->vertices[dfs_edge_dest (e, forward)].component
== -1)
break;
e = dfs_next_edge (e, forward, subgraph, skip_edge_p);
}
if (!e)
{
if (qt)
qt->safe_push (v);
g->vertices[v].post = tick++;
if (!top)
break;
e = stack[--top];
v = dfs_edge_src (e, forward);
e = dfs_next_edge (e, forward, subgraph, skip_edge_p);
continue;
}
stack[top++] = e;
v = dfs_edge_dest (e, forward);
e = dfs_fst_edge (g, v, forward, subgraph, skip_edge_p);
g->vertices[v].component = comp - 1;
}
}
free (stack);
return comp;
}
/* Determines the strongly connected components of G, using the algorithm of
Tarjan -- first determine the postorder dfs numbering in reversed graph,
then run the dfs on the original graph in the order given by decreasing
numbers assigned by the previous pass. If SUBGRAPH is not NULL, it
specifies the subgraph of G whose strongly connected components we want
to determine. If SKIP_EDGE_P is not NULL, it points to a callback function.
Edge E will be skipped if callback function returns true.
After running this function, v->component is the number of the strongly
connected component for each vertex of G. Returns the number of the
sccs of G. */
int
graphds_scc (struct graph *g, bitmap subgraph,
skip_edge_callback skip_edge_p)
{
int *queue = XNEWVEC (int, g->n_vertices);
vec<int> postorder = vNULL;
int nq, i, comp;
unsigned v;
bitmap_iterator bi;
if (subgraph)
{
nq = 0;
EXECUTE_IF_SET_IN_BITMAP (subgraph, 0, v, bi)
{
queue[nq++] = v;
}
}
else
{
for (i = 0; i < g->n_vertices; i++)
queue[i] = i;
nq = g->n_vertices;
}
graphds_dfs (g, queue, nq, &postorder, false, subgraph, skip_edge_p);
gcc_assert (postorder.length () == (unsigned) nq);
for (i = 0; i < nq; i++)
queue[i] = postorder[nq - i - 1];
comp = graphds_dfs (g, queue, nq, NULL, true, subgraph, skip_edge_p);
free (queue);
postorder.release ();
return comp;
}
/* Runs CALLBACK for all edges in G. DATA is private data for CALLBACK. */
void
for_each_edge (struct graph *g, graphds_edge_callback callback, void *data)
{
struct graph_edge *e;
int i;
for (i = 0; i < g->n_vertices; i++)
for (e = g->vertices[i].succ; e; e = e->succ_next)
callback (g, e, data);
}
/* Releases the memory occupied by G. */
void
free_graph (struct graph *g)
{
obstack_free (&g->ob, NULL);
free (g);
}
/* Returns the nearest common ancestor of X and Y in tree whose parent
links are given by PARENT. MARKS is the array used to mark the
vertices of the tree, and MARK is the number currently used as a mark. */
static int
tree_nca (int x, int y, int *parent, int *marks, int mark)
{
if (x == -1 || x == y)
return y;
/* We climb with X and Y up the tree, marking the visited nodes. When
we first arrive to a marked node, it is the common ancestor. */
marks[x] = mark;
marks[y] = mark;
while (1)
{
x = parent[x];
if (x == -1)
break;
if (marks[x] == mark)
return x;
marks[x] = mark;
y = parent[y];
if (y == -1)
break;
if (marks[y] == mark)
return y;
marks[y] = mark;
}
/* If we reached the root with one of the vertices, continue
with the other one till we reach the marked part of the
tree. */
if (x == -1)
{
for (y = parent[y]; marks[y] != mark; y = parent[y])
continue;
return y;
}
else
{
for (x = parent[x]; marks[x] != mark; x = parent[x])
continue;
return x;
}
}
/* Determines the dominance tree of G (stored in the PARENT, SON and BROTHER
arrays), where the entry node is ENTRY. */
void
graphds_domtree (struct graph *g, int entry,
int *parent, int *son, int *brother)
{
vec<int> postorder = vNULL;
int *marks = XCNEWVEC (int, g->n_vertices);
int mark = 1, i, v, idom;
bool changed = true;
struct graph_edge *e;
/* We use a slight modification of the standard iterative algorithm, as
described in
K. D. Cooper, T. J. Harvey and K. Kennedy: A Simple, Fast Dominance
Algorithm
sort vertices in reverse postorder
foreach v
dom(v) = everything
dom(entry) = entry;
while (anything changes)
foreach v
dom(v) = {v} union (intersection of dom(p) over all predecessors of v)
The sets dom(v) are represented by the parent links in the current version
of the dominance tree. */
for (i = 0; i < g->n_vertices; i++)
{
parent[i] = -1;
son[i] = -1;
brother[i] = -1;
}
graphds_dfs (g, &entry, 1, &postorder, true, NULL);
gcc_assert (postorder.length () == (unsigned) g->n_vertices);
gcc_assert (postorder[g->n_vertices - 1] == entry);
while (changed)
{
changed = false;
for (i = g->n_vertices - 2; i >= 0; i--)
{
v = postorder[i];
idom = -1;
for (e = g->vertices[v].pred; e; e = e->pred_next)
{
if (e->src != entry
&& parent[e->src] == -1)
continue;
idom = tree_nca (idom, e->src, parent, marks, mark++);
}
if (idom != parent[v])
{
parent[v] = idom;
changed = true;
}
}
}
free (marks);
postorder.release ();
for (i = 0; i < g->n_vertices; i++)
if (parent[i] != -1)
{
brother[i] = son[parent[i]];
son[parent[i]] = i;
}
}