diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-01 09:57:01 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-01 09:57:01 +0200 |
| commit | 951963b380f1ff1e0b55f8303e4ae098cedb3cb5 (patch) | |
| tree | 6cc793efe8fc8d2950d7b313bfde79b2ecf40d24 /backend/PrintMach.ml | |
| parent | 7cfaf10b604372044f53cb65b03df33c23f8b26d (diff) | |
| parent | 3324ece265091490d5380caf753d76aeee059d3f (diff) | |
| download | compcert-951963b380f1ff1e0b55f8303e4ae098cedb3cb5.tar.gz compcert-951963b380f1ff1e0b55f8303e4ae098cedb3cb5.zip | |
Merge branch 'new-builtins'
Diffstat (limited to 'backend/PrintMach.ml')
| -rw-r--r-- | backend/PrintMach.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/backend/PrintMach.ml b/backend/PrintMach.ml index 8484a5c3..0ce2e87b 100644 --- a/backend/PrintMach.ml +++ b/backend/PrintMach.ml @@ -67,10 +67,9 @@ let print_instruction pp i = fprintf pp "\ttailcall %a\n" ros fn | Mbuiltin(ef, args, res) -> fprintf pp "\t%a = %s(%a)\n" - regs res (name_of_external ef) regs args - | Mannot(ef, args) -> - fprintf pp "\t%s(%a)\n" - (name_of_external ef) (print_annot_args reg) args + (print_builtin_res reg) res + (name_of_external ef) + (print_builtin_args reg) args | Mlabel lbl -> fprintf pp "%5d:" (P.to_int lbl) | Mgoto lbl -> |