diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-06 16:02:15 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-06 16:02:15 +0000 |
| commit | 6adf021f3661e671af017c445df7238c2c561fb5 (patch) | |
| tree | 35883becabbedd5593609ea206eadafc6604f575 /cfrontend | |
| parent | eba1a2fc06f269191407b734779b60b2e012b8e7 (diff) | |
Remove 'near-code' access mode, makes no sense in CompCert
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1833 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/CPragmas.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/cfrontend/CPragmas.ml b/cfrontend/CPragmas.ml index 2a86977..6fa6d5c 100644 --- a/cfrontend/CPragmas.ml +++ b/cfrontend/CPragmas.ml @@ -27,8 +27,7 @@ let process_section_pragma classname istring ustring addrmode accmode = ?uname: (if ustring = "" then None else Some ustring) ?writable: (if accmode = "" then None else Some(String.contains accmode 'W')) ?executable: (if accmode = "" then None else Some(String.contains accmode 'X')) - ?near: (if addrmode = "" then None - else Some(addrmode = "near-code" || addrmode = "near-data")) + ?near: (if addrmode = "" then None else Some(addrmode = "near-data")) () (* #pragma use_section *) |