diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-15 11:00:24 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-15 11:00:24 +0100 |
| commit | 34a7ec51c1f1bbfeb973f8e295ac81b65c70251c (patch) | |
| tree | b5d1de65396c1bd08e44c282ffd59ab0ba876e8f /cfrontend/C2C.ml | |
| parent | bac2a0854ea51217690bc6f225da62053ed7ac06 (diff) | |
| download | compcert-34a7ec51c1f1bbfeb973f8e295ac81b65c70251c.tar.gz compcert-34a7ec51c1f1bbfeb973f8e295ac81b65c70251c.zip | |
Revert "Removed unused parameter from is_small/rel_data."
This reverts commit bac2a0854ea51217690bc6f225da62053ed7ac06.
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index d29bb295..c3e07995 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -76,13 +76,13 @@ let atom_sections a = with Not_found -> [] -let atom_is_small_data a = +let atom_is_small_data a _ = try (Hashtbl.find decl_atom a).a_access = Sections.Access_near with Not_found -> false -let atom_is_rel_data a = +let atom_is_rel_data a _ = try (Hashtbl.find decl_atom a).a_access = Sections.Access_far with Not_found -> @@ -478,7 +478,7 @@ let checkFunctionType env tres targs = l end end - + let rec convertTyp env t = match t with | C.TVoid _ -> Tvoid |