From 6adf021f3661e671af017c445df7238c2c561fb5 Mon Sep 17 00:00:00 2001 From: xleroy Date: Tue, 6 Mar 2012 16:02:15 +0000 Subject: 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 --- cfrontend/CPragmas.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'cfrontend') 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 *) -- cgit v1.2.3