Set a limit size for array cell propagation

The use of field_sensitivity for arrays can be expensive for big arrays
so we have to set a limit on the size of constant arrays which get
processed.
The value 64 was determined by changing the size of the array in the
test regression/cbmc/variable-access-to-constant-array and reducing it
until there was no significant difference in execution time between the
versions of CBMC with and without array cell propagation.
For the chosen value the execution time was around 0.05 second in both
cases (for comparison with size 1024 the time with propagation was 0.5
sec, against 0.1 without).

Author: romainbrenguier

src/goto-symex/field_sensitivity.cpp

@@ -98,6 +98,9 @@ exprt field_sensitivityt::apply(
       bool was_l2 = !tmp.get_level_2().empty();
       if(
         to_array_type(l2_array.get().type()).size().id() == ID_constant &&
+        numeric_cast_v<mp_integer>(to_constant_expr(to_array_type(
+          l2_array.get().type()).size()))
+        <= max_field_sensitive_array_size &&
         l2_index.get().id() == ID_constant)
       {
         // place the entire index expression, not just the array operand, in an
@@ -154,7 +157,9 @@ exprt field_sensitivityt::get_fields(
 #ifdef ENABLE_ARRAY_FIELD_SENSITIVITY
   else if(
     ssa_expr.type().id() == ID_array &&
-    to_array_type(ssa_expr.type()).size().id() == ID_constant)
+    to_array_type(ssa_expr.type()).size().id() == ID_constant &&
+    numeric_cast_v<mp_integer>(to_constant_expr(
+      to_array_type(ssa_expr.type()).size())) <= max_field_sensitive_array_size)
   {
     const array_typet &type = to_array_type(ssa_expr.type());
     const std::size_t array_size =
@@ -276,6 +281,9 @@ void field_sensitivityt::field_assignments_rec(
       numeric_cast_v<std::size_t>(to_constant_expr(type->size()));
     PRECONDITION(lhs_fs.operands().size() == array_size);
 
+    if(array_size > max_field_sensitive_array_size)
+      return;
+
     exprt::operandst::const_iterator fs_it = lhs_fs.operands().begin();
     for(std::size_t i = 0; i < array_size; ++i)
     {
@@ -315,7 +323,9 @@ bool field_sensitivityt::is_divisible(const ssa_exprt &expr)
 #ifdef ENABLE_ARRAY_FIELD_SENSITIVITY
   if(
     expr.type().id() == ID_array &&
-    to_array_type(expr.type()).size().id() == ID_constant)
+    to_array_type(expr.type()).size().id() == ID_constant &&
+    numeric_cast_v<mp_integer>(to_constant_expr(to_array_type(expr.type()).size()))
+      <= max_field_sensitive_array_size)
   {
     return true;
   }

src/goto-symex/field_sensitivity.h

@@ -9,6 +9,10 @@ Author: Michael Tautschnig
 #ifndef CPROVER_GOTO_SYMEX_FIELD_SENSITIVITY_H
 #define CPROVER_GOTO_SYMEX_FIELD_SENSITIVITY_H
 
+/// Limit the size of arrays for which field_sensitivity gets applied.
+/// Necessary because large constant arrays slow-down the process.
+static constexpr unsigned max_field_sensitive_array_size = 64;
+
 class exprt;
 class ssa_exprt;
 class namespacet;