aboutsummaryrefslogtreecommitdiffstats
path: root/mppa_k1c/TargetPrinter.ml
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2020-04-08 13:06:00 +0200
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2020-04-08 13:06:00 +0200
commitd3a8a8870050810a7bc3fb5e004059197ec364f8 (patch)
tree8368172ddd21e31aea993c80a9740e8b1a2d9706 /mppa_k1c/TargetPrinter.ml
parentcce39d8408cfa33ae4cc7c586e35546a5b731dbf (diff)
downloadcompcert-kvx-d3a8a8870050810a7bc3fb5e004059197ec364f8.tar.gz
compcert-kvx-d3a8a8870050810a7bc3fb5e004059197ec364f8.zip
print hashes
Diffstat (limited to 'mppa_k1c/TargetPrinter.ml')
-rw-r--r--mppa_k1c/TargetPrinter.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml
index 491d2c14..eb2d7a97 100644
--- a/mppa_k1c/TargetPrinter.ml
+++ b/mppa_k1c/TargetPrinter.ml
@@ -329,8 +329,8 @@ module Target (*: TARGET*) =
print_inline_asm preg_asm oc (camlstring_of_coqstring txt) sg args res;
fprintf oc "%s end inline assembly\n" comment
| EF_profiling(id, kind) ->
- fprintf oc "%s profiling %LX %d\n" comment
- (Z.to_int64 id) (Z.to_int kind)
+ fprintf oc "%s profiling %a %d\n" comment
+ Profilingaux.pp_id id (Z.to_int kind)
| _ ->
assert false
end