diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 19:38:53 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-06 19:38:53 +0200 |
| commit | dba05a9f6259c82a350987b511bf1a71f113d0ba (patch) | |
| tree | 6e7fee8d65b6a180447267da9a95a93827443caf /backend/PrintXTL.ml | |
| parent | 108db39b8b7c1d42cbc38c5aabf885ef5440f189 (diff) | |
| parent | 47d0e5256ab79b402faae14260fa2fabc1d24dcb (diff) | |
| download | compcert-kvx-dba05a9f6259c82a350987b511bf1a71f113d0ba.tar.gz compcert-kvx-dba05a9f6259c82a350987b511bf1a71f113d0ba.zip | |
X
Merge branch 'master' into debug_locations
Diffstat (limited to 'backend/PrintXTL.ml')
| -rw-r--r-- | backend/PrintXTL.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/backend/PrintXTL.ml b/backend/PrintXTL.ml index b9813db0..bb67dc96 100644 --- a/backend/PrintXTL.ml +++ b/backend/PrintXTL.ml @@ -101,10 +101,9 @@ let print_instruction pp succ = function fprintf pp "tailcall %a(%a)" ros fn vars args | 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 + (print_builtin_res var) res + (name_of_external ef) + (print_builtin_args var) args | Xbranch s -> print_succ pp s succ | Xcond(cond, args, s1, s2) -> |