diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-20 07:49:17 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-20 07:49:17 +0000 |
| commit | 19312255445aa74672b2bd1c07f0be7372606be2 (patch) | |
| tree | 3ea913a0dd15e2d231c395e3f15d709a0a8c5121 /exportclight/Clightgen.ml | |
| parent | de4b0df9e799c4f2f9462ea0962892b435934394 (diff) | |
Update clightgen to changes in Camlcoq and in AST.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2156 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'exportclight/Clightgen.ml')
| -rw-r--r-- | exportclight/Clightgen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/exportclight/Clightgen.ml b/exportclight/Clightgen.ml index 1805573..97bdcbd 100644 --- a/exportclight/Clightgen.ml +++ b/exportclight/Clightgen.ml @@ -39,7 +39,7 @@ let print_error oc msg = let print_one_error = function | Errors.MSG s -> output_string oc (Camlcoq.camlstring_of_coqstring s) | Errors.CTX i -> output_string oc (Camlcoq.extern_atom i) - | Errors.POS i -> fprintf oc "%ld" (Camlcoq.camlint_of_positive i) + | Errors.POS i -> fprintf oc "%ld" (Camlcoq.P.to_int32 i) in List.iter print_one_error msg; output_char oc '\n' |