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) | |
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 4806275..59178bd 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 *) |