diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-14 15:15:51 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-14 15:15:51 +0200 |
| commit | b597ce896a8a9cd7c3ed028a34e0612229d1a36a (patch) | |
| tree | 92e3df204d3e27d6b4c0ac56c3f7b292a4143d01 /backend/RTLgenaux.ml | |
| parent | 0ae69bc62cbe50e1fb426c4816aef689c359c75a (diff) | |
| parent | 1e19ffdc01a94b485b61b824ce2fa9e440e36ae7 (diff) | |
| download | compcert-b597ce896a8a9cd7c3ed028a34e0612229d1a36a.tar.gz compcert-b597ce896a8a9cd7c3ed028a34e0612229d1a36a.zip | |
Merge branch 'master' into dwarf
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) |