diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-12-09 15:09:08 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-12-09 15:09:08 +0100 |
| commit | 7429e1f28da407de3dc64de9394dc4eab9c783a8 (patch) | |
| tree | 0402177a460a248939ed982bab763fe6ba909401 /cfrontend | |
| parent | 37de1399449067121a8bb9a51a7cc7a043ad17e2 (diff) | |
| parent | ec49c7b8bd4502c380b88c78baa674000db109fd (diff) | |
| download | compcert-kvx-7429e1f28da407de3dc64de9394dc4eab9c783a8.tar.gz compcert-kvx-7429e1f28da407de3dc64de9394dc4eab9c783a8.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into mppa-work-upstream-merge
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/C2C.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index dc25b516..24e3cacf 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -61,6 +61,11 @@ let atom_alignof a = with Not_found -> None +let atom_is_aligned a sz = + match atom_alignof a with + | None -> false + | Some align -> align mod (Z.to_int sz) = 0 + let atom_sections a = try (Hashtbl.find decl_atom a).a_sections |