diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-06 16:53:12 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-06 16:53:12 +0100 |
commit | 8ace28abf0c70ebdc423baea9ae0e8c68e0b60ed (patch) | |
tree | 43e89a45ed321081cbcaaac06165a7e62b84a34b /common | |
parent | 9d4bb7ec914566b3920cca3c6823515448fb65c1 (diff) | |
parent | 4afaf8c23274752c8a6067bd785e114578068702 (diff) | |
download | compcert-8ace28abf0c70ebdc423baea9ae0e8c68e0b60ed.tar.gz compcert-8ace28abf0c70ebdc423baea9ae0e8c68e0b60ed.zip |
Merge branch 'elaboration-of-attributes'
Diffstat (limited to 'common')
-rw-r--r-- | common/Sections.ml | 3 | ||||
-rw-r--r-- | common/Sections.mli | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/common/Sections.ml b/common/Sections.ml index b792581f..1c2e8291 100644 --- a/common/Sections.ml +++ b/common/Sections.ml @@ -189,8 +189,7 @@ let for_variable env id ty init = (* Determine sections for a function definition *) -let for_function env id ty_res = - let attr = Cutil.attributes_of_type env ty_res in +let for_function env id attr = let si_code = try (* 1- Section explicitly associated with #use_section *) diff --git a/common/Sections.mli b/common/Sections.mli index 8a13fb8a..b83b0bb4 100644 --- a/common/Sections.mli +++ b/common/Sections.mli @@ -47,5 +47,5 @@ val use_section_for: AST.ident -> string -> bool val for_variable: Env.t -> AST.ident -> C.typ -> bool -> section_name * access_mode -val for_function: Env.t -> AST.ident -> C.typ -> section_name list +val for_function: Env.t -> AST.ident -> C.attributes -> section_name list val for_stringlit: unit -> section_name |