aboutsummaryrefslogtreecommitdiffstats
path: root/backend/PrintLTL.ml
diff options
context:
space:
mode:
authorXavier Leroy <xavierleroy@users.noreply.github.com>2015-04-01 18:28:02 +0200
committerXavier Leroy <xavierleroy@users.noreply.github.com>2015-04-01 18:28:02 +0200
commit95ba79b10e832025bbc9843f9d14614f7dff0fcb (patch)
tree8ca03b99cf6be2aab8c7b266196569019a2a7f13 /backend/PrintLTL.ml
parent68e2ce02f8d69b26c9cea6e0d338f855cbea3ace (diff)
parente11b3b885a6d359925b86743b89698cc6757157a (diff)
downloadcompcert-95ba79b10e832025bbc9843f9d14614f7dff0fcb.tar.gz
compcert-95ba79b10e832025bbc9843f9d14614f7dff0fcb.zip
Merge pull request #34 from AbsInt/extended-annotations
Extended annotations
Diffstat (limited to 'backend/PrintLTL.ml')
-rw-r--r--backend/PrintLTL.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/PrintLTL.ml b/backend/PrintLTL.ml
index 52e51309..27936f9b 100644
--- a/backend/PrintLTL.ml
+++ b/backend/PrintLTL.ml
@@ -81,8 +81,8 @@ let print_instruction pp succ = function
fprintf pp "%a = %s(%a)"
mregs res (name_of_external ef) mregs args
| Lannot(ef, args) ->
- fprintf pp "%s(%a)"
- (name_of_external ef) locs args
+ fprintf pp "%s(%a)\n"
+ (name_of_external ef) (print_annot_args loc) args
| Lbranch s ->
print_succ pp s succ
| Lcond(cond, args, s1, s2) ->