diff options
Diffstat (limited to 'common')
| -rw-r--r-- | common/Switchaux.ml | 3 | ||||
| -rw-r--r-- | common/Values.v | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/common/Switchaux.ml b/common/Switchaux.ml index 4035e299..1744a932 100644 --- a/common/Switchaux.ml +++ b/common/Switchaux.ml @@ -80,6 +80,7 @@ let compile_switch_as_jumptable default cases minkey maxkey = CTaction default) let dense_enough (numcases: int) (minkey: Z.t) (maxkey: Z.t) = + (* DM Settings this to constant false disables jump tables *) let span = Z.sub maxkey minkey in assert (Z.ge span Z.zero); let tree_size = Z.mul (Z.of_uint 4) (Z.of_uint numcases) @@ -87,7 +88,7 @@ let dense_enough (numcases: int) (minkey: Z.t) (maxkey: Z.t) = numcases >= 7 (* small jump tables are always less efficient *) && Z.le table_size tree_size && Z.lt span (Z.of_uint Sys.max_array_length) - + let compile_switch modulus default table = let (tbl, keys) = normalize_table table in if ZSet.is_empty keys then CTaction default else begin diff --git a/common/Values.v b/common/Values.v index 2eb778a5..59e6388f 100644 --- a/common/Values.v +++ b/common/Values.v @@ -783,6 +783,7 @@ Definition rolml (v: val) (amount: int) (mask: int64): val := | _ => Vundef end. + (** Comparisons *) Section COMPARISONS. |