diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-20 13:32:18 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-20 13:32:18 +0200 |
commit | 4d542bc7eafadb16b845cf05d1eb4988eb55ed0f (patch) | |
tree | 1961b41815fc6e392cc0bd2beeb0fb504bc160ce /common/Sections.ml | |
parent | 7a6bb90048db7a254e959b1e3c308bac5fe6c418 (diff) | |
download | compcert-4d542bc7eafadb16b845cf05d1eb4988eb55ed0f.tar.gz compcert-4d542bc7eafadb16b845cf05d1eb4988eb55ed0f.zip |
Updated PR by removing whitespaces. Bug 17450.
Diffstat (limited to 'common/Sections.ml')
-rw-r--r-- | common/Sections.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/common/Sections.ml b/common/Sections.ml index cc8b0758..0400bbc4 100644 --- a/common/Sections.ml +++ b/common/Sections.ml @@ -57,7 +57,7 @@ let default_section_info = { let builtin_sections = [ "CODE", - {sec_name_init = Section_text; + {sec_name_init = Section_text; sec_name_uninit = Section_text; sec_writable = false; sec_executable = true; sec_access = Access_default}; @@ -118,7 +118,7 @@ let initialize () = (* Define or update a given section. *) let define_section name ?iname ?uname ?writable ?executable ?access () = - let si = + let si = try Hashtbl.find current_section_table name with Not_found -> default_section_info in let writable = @@ -217,7 +217,7 @@ let for_function env id ty_res = with Not_found -> assert false in [si_code.sec_name_init; si_literal.sec_name_init; si_jumptbl.sec_name_init] - + (* Determine section for a string literal *) let for_stringlit() = |