From a8c744000247af207b489d3cdd4e3d3cf60f72e1 Mon Sep 17 00:00:00 2001
From: blazy <blazy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Fri, 8 Jan 2010 07:53:02 +0000
Subject: ajout branche allocation de registres

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1220 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/IRC_graph.v | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 backend/IRC_graph.v

(limited to 'backend/IRC_graph.v')

diff --git a/backend/IRC_graph.v b/backend/IRC_graph.v
new file mode 100755
index 00000000..31e9ce80
--- /dev/null
+++ b/backend/IRC_graph.v
@@ -0,0 +1,15 @@
+Require Import FSets.
+Require Import InterfGraphMapImp.
+
+Record irc_graph := Make_IRC_Graph {
+irc_g : tt;
+irc_wl : WS;
+pal : VertexSet.t;
+irc_k : nat;
+HWS_irc : WS_properties irc_g irc_k irc_wl;
+Hk : VertexSet.cardinal pal = irc_k
+}.
+
+Definition graph_to_IRC_graph g palette :=
+let K := VertexSet.cardinal palette in
+Make_IRC_Graph g (get_WL g K) palette K (WS_prop_get _ _) (refl_equal _).
-- 
cgit