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
---
 cfrontend/PrintClight.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'cfrontend/PrintClight.ml')

diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml
index 0e8b4949..b05876ab 100644
--- a/cfrontend/PrintClight.ml
+++ b/cfrontend/PrintClight.ml
@@ -40,8 +40,7 @@ let register_struct_union id fld =
 
 (* Naming temporaries *)
 
-let temp_name (id: ident) =
-  Printf.sprintf "$%ld" (camlint_of_positive id)
+let temp_name (id: ident) = Z.to_string (Z.Zpos id)
 
 (* Declarator (identifier + type) -- reuse from PrintCsyntax *)
 
-- 
cgit