From df325dfefda5d7ffbfd3870c2af0378cb3862e07 Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 18 Jul 2019 17:57:42 +0100
Subject: Add a feature flag for barrier type change

Fix SMT mem_builtin test case
---
 src/process_file.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/process_file.ml')

diff --git a/src/process_file.ml b/src/process_file.ml
index b988895c..170a544a 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -94,6 +94,7 @@ let default_symbols =
   List.fold_left (fun set str -> StringSet.add str set) StringSet.empty
     [ "FEATURE_IMPLICITS";
       "FEATURE_CONSTANT_TYPES";
+      "FEATURE_UNION_BARRIER";
     ]
 
 let symbols = ref default_symbols
-- 
cgit v1.2.3


From 3bf4b4489f4e8ee114773802bfc9d5a4a9e13d0b Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 18 Jul 2019 18:36:52 +0100
Subject: Add a option to check for a feature symbol

---
 src/process_file.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/process_file.ml')

diff --git a/src/process_file.ml b/src/process_file.ml
index 170a544a..d239b0c0 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -99,6 +99,9 @@ let default_symbols =
 
 let symbols = ref default_symbols
 
+let have_symbol symbol =
+  StringSet.mem symbol !symbols
+
 let clear_symbols () = symbols := default_symbols
 
 let cond_pragma l defs =
-- 
cgit v1.2.3