diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-02-02 08:35:08 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-02-02 08:35:08 +0100 |
commit | 44b2d04414b13811868a134f1eae9eaece506b69 (patch) | |
tree | c064ad602874710694fb9cbf52478361d06479e3 /common/Switchaux.ml | |
parent | d9e66c1e1fda350a5714316ffb2a515835fa974a (diff) | |
download | compcert-kvx-44b2d04414b13811868a134f1eae9eaece506b69.tar.gz compcert-kvx-44b2d04414b13811868a134f1eae9eaece506b69.zip |
Disable the generation of jump tables until issues are fixed
Diffstat (limited to 'common/Switchaux.ml')
-rw-r--r-- | common/Switchaux.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/common/Switchaux.ml b/common/Switchaux.ml index 4035e299..06337e7d 100644 --- a/common/Switchaux.ml +++ b/common/Switchaux.ml @@ -80,6 +80,10 @@ let compile_switch_as_jumptable default cases minkey maxkey = CTaction default) let dense_enough (numcases: int) (minkey: Z.t) (maxkey: Z.t) = + (* FIXME DMonniaux disable jump tables until we can prove them through *) + false + +(* 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 +91,8 @@ 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 |