diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-14 15:15:51 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-14 15:15:51 +0200 |
commit | b597ce896a8a9cd7c3ed028a34e0612229d1a36a (patch) | |
tree | 92e3df204d3e27d6b4c0ac56c3f7b292a4143d01 /backend/PrintXTL.ml | |
parent | 0ae69bc62cbe50e1fb426c4816aef689c359c75a (diff) | |
parent | 1e19ffdc01a94b485b61b824ce2fa9e440e36ae7 (diff) | |
download | compcert-kvx-b597ce896a8a9cd7c3ed028a34e0612229d1a36a.tar.gz compcert-kvx-b597ce896a8a9cd7c3ed028a34e0612229d1a36a.zip |
Merge branch 'master' into dwarf
Diffstat (limited to 'backend/PrintXTL.ml')
-rw-r--r-- | backend/PrintXTL.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/backend/PrintXTL.ml b/backend/PrintXTL.ml index 08ccf129..b9813db0 100644 --- a/backend/PrintXTL.ml +++ b/backend/PrintXTL.ml @@ -102,6 +102,9 @@ let print_instruction pp succ = function | Xbuiltin(ef, args, res) -> fprintf pp "%a = %s(%a)" vars res (name_of_external ef) vars args + | Xannot(ef, args) -> + fprintf pp "%s(%a)" + (name_of_external ef) (print_annot_args var) args | Xbranch s -> print_succ pp s succ | Xcond(cond, args, s1, s2) -> |