From 056068abd228fefab4951a61700aa6d54fb88287 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Tue, 29 Jan 2013 09:10:29 +0000
Subject: Ported to Coq 8.4pl1.  Merge of branches/coq-8.4.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2101 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/Coloringaux.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'backend/Coloringaux.ml')

diff --git a/backend/Coloringaux.ml b/backend/Coloringaux.ml
index 2fce25e6..ddd30944 100644
--- a/backend/Coloringaux.ml
+++ b/backend/Coloringaux.ml
@@ -12,8 +12,6 @@
 
 open Camlcoq
 open Datatypes
-open BinPos
-open BinInt
 open AST
 open Maps
 open Registers
@@ -766,8 +764,8 @@ let rec reuse_slot conflicts n mvlist =
 let find_slot conflicts typ =
   let rec find curr =
     let l = S(Local(curr, typ)) in
-    if Locset.mem l conflicts then find (coq_Zsucc curr) else l
-  in find Z0
+    if Locset.mem l conflicts then find (Z.succ curr) else l
+  in find Z.zero
 
 let assign_color n =
   let conflicts = ref Locset.empty in
-- 
cgit