diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2020-04-01 11:41:16 +0200 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2020-04-01 11:41:16 +0200 |
commit | f54e11c4f80cfa1b05a5c407adb1df86d1470cf7 (patch) | |
tree | a50c7734ec877e8ee0ac24e81356d6b8ea5b09a8 /cfrontend | |
parent | 7ad6991534ba4ab10fe29d5456393f45cb4e5605 (diff) | |
parent | 76a4ff8f5b37429a614a2a97f628d9d862c93f46 (diff) | |
download | compcert-kvx-f54e11c4f80cfa1b05a5c407adb1df86d1470cf7.tar.gz compcert-kvx-f54e11c4f80cfa1b05a5c407adb1df86d1470cf7.zip |
Merge remote-tracking branch 'origin/master' into attempt-fix-mppa-work
Diffstat (limited to 'cfrontend')
-rw-r--r-- | cfrontend/C2C.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index ec5fb4dc..bc5173ca 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -1258,7 +1258,7 @@ let convertFundef loc env fd = { a_storage = fd.fd_storage; a_alignment = None; a_size = None; - a_sections = Sections.for_function env id' fd.fd_attrib; + a_sections = Sections.for_function env loc id' fd.fd_attrib; a_access = Sections.Access_default; a_inline = inline; a_loc = loc }; @@ -1343,7 +1343,7 @@ let convertGlobvar loc env (sto, id, ty, optinit) = | Some i -> convertInitializer env ty i in let (section, access) = - Sections.for_variable env id' ty (optinit <> None) in + Sections.for_variable env loc id' ty (optinit <> None) in if Z.gt sz (Z.of_uint64 0xFFFF_FFFFL) then error "'%s' is too big (%s bytes)" id.name (Z.to_string sz); |