diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 14:11:30 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-01-12 14:11:30 +0000 |
commit | 6a8f9945403c4856ad94b115f6bcc229e79bc492 (patch) | |
tree | cce76bc1d7c66e0ec9c707ad7f79ff3db812bd3b /driver | |
parent | 14f375f7b879d9ccfb06845b2dbe1a907851e330 (diff) |
Better printing of integer literals: add U and LL suffixes when needed.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2405 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'driver')
-rw-r--r-- | driver/Interp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Interp.ml b/driver/Interp.ml index 4f9debd..99f9f4f 100644 --- a/driver/Interp.ml +++ b/driver/Interp.ml @@ -47,7 +47,7 @@ let print_eventval p = function | EVint n -> fprintf p "%ld" (camlint_of_coqint n) | EVfloat f -> fprintf p "%F" (camlfloat_of_coqfloat f) | EVfloatsingle f -> fprintf p "%F" (camlfloat_of_coqfloat f) - | EVlong n -> fprintf p "%Ld" (camlint64_of_coqint n) + | EVlong n -> fprintf p "%LdLL" (camlint64_of_coqint n) | EVptr_global(id, ofs) -> fprintf p "&%a" print_id_ofs (id, ofs) let print_eventval_list p = function |