alwaysInline .urp setting

1 files changed, 9 insertions, 0 deletions

diff --git a/src/settings.sml b/src/settings.sml
index ec0f582d..5edb1fde 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -539,4 +539,13 @@ val minHeap = ref 0
 fun setMinHeap n = if n >= 0 then minHeap := n else raise Fail "Trying to set negative minHeap"
 fun getMinHeap () = !minHeap
 
+structure SS = BinarySetFn(struct
+                           type ord_key = string
+                           val compare = String.compare
+                           end)
+
+val alwaysInline = ref SS.empty
+fun addAlwaysInline s = alwaysInline := SS.add (!alwaysInline, s)
+fun checkAlwaysInline s = SS.member (!alwaysInline, s)
+
 end