From 500ef9344e0f80ad0c14806e02130ed26da0704a Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Mon, 6 Apr 2015 11:37:13 +0200
Subject: Missing case for the new 'annot' instruction.

---
 backend/RTLgenaux.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'backend/RTLgenaux.ml')

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