diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-01-08 17:54:38 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-01-08 17:54:38 +0000 |
commit | fe98360191b130c1305063af6d13d0bac8d7b395 (patch) | |
tree | 8718778f9907ac907f33386a7b4e6191075e0c57 /backend/PrintCminor.ml | |
parent | d03cc7a4367e23f37f99bad003b88b8b419fa400 (diff) | |
download | compcert-fe98360191b130c1305063af6d13d0bac8d7b395.tar.gz compcert-fe98360191b130c1305063af6d13d0bac8d7b395.zip |
Quote idents for safe re-parsing
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2096 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/PrintCminor.ml')
-rw-r--r-- | backend/PrintCminor.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/PrintCminor.ml b/backend/PrintCminor.ml index 48062759..59178bde 100644 --- a/backend/PrintCminor.ml +++ b/backend/PrintCminor.ml @@ -43,7 +43,7 @@ let rec precedence = function (* Naming idents. *) -let ident_name = Camlcoq.extern_atom +let ident_name id = "'" ^ Camlcoq.extern_atom id ^ "'" (* Naming operators *) |