diff options
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 |