diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-01-29 10:15:34 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-01-29 10:15:34 +0000 |
commit | d2cf6277ac179c9e8432d4c11a79e9f906a19bbc (patch) | |
tree | 883dd5835cc8a3f8967f2a7983e07646a74652b9 /cfrontend | |
parent | 056068abd228fefab4951a61700aa6d54fb88287 (diff) |
Camlcoq.ml: bug in conversion Z to string
PrintClight: forgot "$" prefix on temporary names
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2102 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend')
-rw-r--r-- | cfrontend/PrintClight.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml index b05876a..7653f0c 100644 --- a/cfrontend/PrintClight.ml +++ b/cfrontend/PrintClight.ml @@ -40,7 +40,7 @@ let register_struct_union id fld = (* Naming temporaries *) -let temp_name (id: ident) = Z.to_string (Z.Zpos id) +let temp_name (id: ident) = "$" ^ Z.to_string (Z.Zpos id) (* Declarator (identifier + type) -- reuse from PrintCsyntax *) |