aboutsummaryrefslogtreecommitdiffstats
path: root/backend/PrintRTL.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/PrintRTL.ml')
-rw-r--r--backend/PrintRTL.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/backend/PrintRTL.ml b/backend/PrintRTL.ml
index 5c8347cb..ce2275cf 100644
--- a/backend/PrintRTL.ml
+++ b/backend/PrintRTL.ml
@@ -74,6 +74,10 @@ let print_instruction pp (pc, i) =
fprintf pp "%a = %s(%a)\n"
reg res (name_of_external ef) regs args;
print_succ pp s (pc - 1)
+ | Iannot(ef, args, s) ->
+ fprintf pp "%s(%a)\n"
+ (name_of_external ef) (print_annot_args reg) args;
+ print_succ pp s (pc - 1)
| Icond(cond, args, s1, s2) ->
fprintf pp "if (%a) goto %d else goto %d\n"
(PrintOp.print_condition reg) (cond, args)