diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-04-06 11:37:13 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-04-06 11:37:13 +0200 |
commit | 500ef9344e0f80ad0c14806e02130ed26da0704a (patch) | |
tree | f4381bfc5d124a19b82215597d04962ce1101506 /backend/RTLgenaux.ml | |
parent | 428e71dc00798d49244088ba4a0c46ee11c79c61 (diff) | |
download | compcert-500ef9344e0f80ad0c14806e02130ed26da0704a.tar.gz compcert-500ef9344e0f80ad0c14806e02130ed26da0704a.zip |
Missing case for the new 'annot' instruction.
Diffstat (limited to 'backend/RTLgenaux.ml')
-rw-r--r-- | backend/RTLgenaux.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |