From 500ef9344e0f80ad0c14806e02130ed26da0704a Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Mon, 6 Apr 2015 11:37:13 +0200 Subject: Missing case for the new 'annot' instruction. --- backend/PrintXTL.ml | 3 +++ backend/RTLgenaux.ml | 1 + 2 files changed, 4 insertions(+) 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) -> diff --git a/backend/RTLgenaux.ml b/backend/RTLgenaux.ml index 27a4908e..40bb5c41 100644 --- a/backend/RTLgenaux.ml +++ b/backend/RTLgenaux.ml @@ -73,6 +73,7 @@ let rec size_stmt = function | Stailcall(sg, eos, args) -> 3 + size_eos eos + size_exprs args + length_exprs args | Sbuiltin(optid, ef, args) -> 1 + size_exprs args + | Sannot(txt, args) -> 0 | Sseq(s1, s2) -> size_stmt s1 + size_stmt s2 | Sifthenelse(ce, s1, s2) -> size_condexpr ce + max (size_stmt s1) (size_stmt s2) -- cgit