summaryrefslogtreecommitdiff
path: root/src/process_file.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/process_file.ml')
-rw-r--r--src/process_file.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/process_file.ml b/src/process_file.ml
index b988895c..d239b0c0 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -94,10 +94,14 @@ 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
+let have_symbol symbol =
+ StringSet.mem symbol !symbols
+
let clear_symbols () = symbols := default_symbols
let cond_pragma l defs =