static BtorNode *
parse_write (BtorBTORParser * parser, int len)
{
BtorNode *array, *idx, *val, *res;
int idxlen, vallen;
if (parse_space (parser))
return 0;
if (parse_positive_int (parser, &idxlen))
return 0;
if (parse_space (parser))
return 0;
if (!(array = parse_array_exp (parser, len)))
return 0;
if (parse_space (parser))
{
RELEASE_ARRAY_AND_RETURN_ERROR:
btor_release_exp (parser->btor, array);
return 0;
}
if (!(idx = parse_exp (parser, idxlen, 0)))
goto RELEASE_ARRAY_AND_RETURN_ERROR;
if (parse_space (parser))
{
RELEASE_ARRAY_AND_IDX_AND_RETURN_ERROR:
btor_release_exp (parser->btor, idx);
goto RELEASE_ARRAY_AND_RETURN_ERROR;
}
vallen = btor_get_exp_len (parser->btor, array);
if (!(val = parse_exp (parser, vallen, 0)))
goto RELEASE_ARRAY_AND_IDX_AND_RETURN_ERROR;
res = btor_write_exp (parser->btor, array, idx, val);
btor_release_exp (parser->btor, array);
btor_release_exp (parser->btor, idx);
btor_release_exp (parser->btor, val);
return res;
}
BtorNode *
boolector_write (Btor * btor, BtorNode * e_array, BtorNode * e_index,
BtorNode * e_value)
{
BTOR_ABORT_ARG_NULL_BOOLECTOR (btor);
BTOR_ABORT_ARG_NULL_BOOLECTOR (e_array);
BTOR_ABORT_ARG_NULL_BOOLECTOR (e_index);
BTOR_ABORT_ARG_NULL_BOOLECTOR (e_value);
BTOR_ABORT_REFS_NOT_POS_BOOLECTOR (e_array);
BTOR_ABORT_REFS_NOT_POS_BOOLECTOR (e_index);
BTOR_ABORT_REFS_NOT_POS_BOOLECTOR (e_value);
e_array = btor_pointer_chase_simplified_exp (btor, e_array);
e_index = btor_pointer_chase_simplified_exp (btor, e_index);
e_value = btor_pointer_chase_simplified_exp (btor, e_value);
BTOR_ABORT_BV_BOLECTOR (e_array);
BTOR_ABORT_ARRAY_BOOLECTOR (e_index);
BTOR_ABORT_ARRAY_BOOLECTOR (e_value);
BTOR_ABORT_BOOLECTOR (e_array->index_len != BTOR_REAL_ADDR_NODE (e_index)->len,
"index bit-width of 'e_array' and bit-width of 'e_index' must not be unequal");
BTOR_ABORT_BOOLECTOR (e_array->len != BTOR_REAL_ADDR_NODE (e_value)->len,
"element bit-width of 'e_array' and bit-width of 'e_value' must not be unequal");
btor->external_refs++;
return btor_write_exp (btor, e_array, e_index, e_value);
}
static unsigned
extract_lambdas (Btor * btor, BtorPtrHashTable * map_value_index,
BtorPtrHashTable * map_lambda_base)
{
assert (btor);
assert (map_value_index);
assert (map_lambda_base);
bool is_top_eq;
BtorBitVector *inc;
unsigned i_range, i_index, i_value, i_inc;
BtorNode *subst, *base, *tmp, *array, *value, *lower, *upper;
BtorNode *src_array, *src_addr, *dst_addr;
BtorHashTableIterator it, iit;
BtorPtrHashTable *t, *index_value_map;
BtorPtrHashBucket *b;
BtorNodePtrStack ranges, indices, values, indices_itoi, indices_itoip1;
BtorNodePtrStack indices_cpy, indices_rem, *stack;
BtorBitVectorPtrStack increments;
BtorMemMgr *mm;
/* statistics */
unsigned num_total = 0, num_writes = 0;
unsigned num_set = 0, num_set_inc = 0, num_set_itoi = 0, num_set_itoip1 = 0;
unsigned num_cpy = 0, size_set = 0, size_set_inc = 0, size_set_itoi = 0;
unsigned size_set_itoip1 = 0, size_cpy = 0;
mm = btor->mm;
BTOR_INIT_STACK (ranges);
BTOR_INIT_STACK (indices);
BTOR_INIT_STACK (increments);
BTOR_INIT_STACK (values);
BTOR_INIT_STACK (indices_itoi);
BTOR_INIT_STACK (indices_itoip1);
BTOR_INIT_STACK (indices_cpy);
BTOR_INIT_STACK (indices_rem);
btor_init_node_hash_table_iterator (&it, map_value_index);
while (btor_has_next_node_hash_table_iterator (&it))
{
t = it.bucket->data.asPtr;
array = btor_next_node_hash_table_iterator (&it);
assert (t);
/* find memset patterns, the remaining unused indices are pushed onto
* stack 'indices' */
btor_init_node_hash_table_iterator (&iit, t);
while (btor_has_next_node_hash_table_iterator (&iit))
{
stack = iit.bucket->data.asPtr;
value = btor_next_node_hash_table_iterator (&iit);
assert (stack);
find_ranges (btor, stack, &ranges, &increments, &indices,
&num_set, &num_set_inc, &size_set, &size_set_inc);
BTOR_RELEASE_STACK (mm, *stack);
BTOR_DELETE (mm, stack);
BTOR_PUSH_STACK (mm, ranges, 0);
BTOR_PUSH_STACK (mm, indices, 0);
BTOR_PUSH_STACK (mm, values, value);
assert (BTOR_COUNT_STACK (ranges) - BTOR_COUNT_STACK (values) > 0
|| BTOR_COUNT_STACK (indices) -
BTOR_COUNT_STACK (values) > 0);
assert ((BTOR_COUNT_STACK (ranges) -
BTOR_COUNT_STACK (values)) % 2 == 0);
assert ((BTOR_COUNT_STACK (ranges) -
BTOR_COUNT_STACK (values)) / 2 ==
BTOR_COUNT_STACK (increments));
}
/* choose base array for patterns/writes:
* 1) write chains: base array of the write chains
* 2) top eqs: a new UF symbol */
if ((b = btor_find_in_ptr_hash_table (map_lambda_base, array)))
{
assert (BTOR_IS_LAMBDA_NODE (array));
b = btor_find_in_ptr_hash_table (map_lambda_base, array);
assert (b);
subst = btor_copy_exp (btor, b->data.asPtr);
is_top_eq = false;
}
else
{
assert (BTOR_IS_UF_ARRAY_NODE (array));
subst = btor_array_exp (btor,
btor_get_fun_exp_width (btor, array),
btor_get_index_exp_width (btor, array),
0);
is_top_eq = true;
}
index_value_map = btor_new_ptr_hash_table (mm, 0, 0);
base = subst;
i_range = i_index = i_inc = 0;
for (i_value = 0; i_value < BTOR_COUNT_STACK (values); i_value++)
{
value = BTOR_PEEK_STACK (values, i_value);
/* create memset regions */
for (; i_range < BTOR_COUNT_STACK (ranges) - 1; i_range += 2)
{
lower = BTOR_PEEK_STACK (ranges, i_range);
/* next value */
if (!lower)
{
i_range++;
break;
}
upper = BTOR_PEEK_STACK (ranges, i_range + 1);
assert (i_inc < BTOR_COUNT_STACK (increments));
inc = BTOR_PEEK_STACK (increments, i_inc);
tmp = create_pattern_memset (btor, lower, upper, value, subst,
inc);
tmp->is_array = 1;
btor_release_exp (btor, subst);
subst = tmp;
btor_free_bv (mm, inc);
i_inc++;
}
/* find patterns that are dependent on the current index */
for (; i_index < BTOR_COUNT_STACK (indices); i_index++)
{
lower = BTOR_PEEK_STACK (indices, i_index);
/* next value */
if (!lower)
{
i_index++;
break;
}
assert (!btor_find_in_ptr_hash_table (index_value_map,
lower));
/* save index value pairs for later */
btor_insert_in_ptr_hash_table (index_value_map,
lower)->data.asPtr = value;
/* pattern 1: index -> index */
if (is_itoi_pattern (lower, value))
BTOR_PUSH_STACK (mm, indices_itoi, lower);
/* pattern 2: index -> index + 1 */
else if (is_itoip1_pattern (lower, value))
BTOR_PUSH_STACK (mm, indices_itoip1, lower);
/* pattern 3: memcopy pattern */
else if (is_cpy_pattern (lower, value))
BTOR_PUSH_STACK (mm, indices_cpy, lower);
else /* no pattern found */
BTOR_PUSH_STACK (mm, indices_rem, lower);
}
}
/* pattern: index -> index */
BTOR_RESET_STACK (ranges);
BTOR_RESET_STACK (increments);
find_ranges (btor, &indices_itoi, &ranges, &increments, &indices_rem,
&num_set_itoi, 0, &size_set_itoi, 0);
if (!BTOR_EMPTY_STACK (ranges))
{
assert (BTOR_COUNT_STACK (ranges) % 2 == 0);
for (i_range = 0, i_inc = 0;
i_range < BTOR_COUNT_STACK (ranges) - 1;
i_range += 2, i_inc++)
{
lower = BTOR_PEEK_STACK (ranges, i_range);
upper = BTOR_PEEK_STACK (ranges, i_range + 1);
assert (i_inc < BTOR_COUNT_STACK (increments));
inc = BTOR_PEEK_STACK (increments, i_inc);
tmp = create_pattern_itoi (btor, lower, upper, subst, inc);
tmp->is_array = 1;
btor_release_exp (btor, subst);
subst = tmp;
btor_free_bv (mm, inc);
}
}
/* pattern: index -> index + 1 */
BTOR_RESET_STACK (ranges);
BTOR_RESET_STACK (increments);
find_ranges (btor, &indices_itoip1, &ranges, &increments, &indices_rem,
&num_set_itoip1, 0, &size_set_itoip1, 0);
if (!BTOR_EMPTY_STACK (ranges))
{
assert (BTOR_COUNT_STACK (ranges) % 2 == 0);
for (i_range = 0, i_inc = 0;
i_range < BTOR_COUNT_STACK (ranges) - 1;
i_range += 2, i_inc++)
{
lower = BTOR_PEEK_STACK (ranges, i_range);
upper = BTOR_PEEK_STACK (ranges, i_range + 1);
assert (i_inc < BTOR_COUNT_STACK (increments));
inc = BTOR_PEEK_STACK (increments, i_inc);
tmp = create_pattern_itoip1 (btor, lower, upper, subst, inc);
tmp->is_array = 1;
btor_release_exp (btor, subst);
subst = tmp;
btor_free_bv (mm, inc);
}
}
/* pattern: memcopy */
BTOR_RESET_STACK (ranges);
BTOR_RESET_STACK (increments);
find_ranges (btor, &indices_cpy, &ranges, &increments, &indices_rem,
&num_cpy, 0, &size_cpy, 0);
if (!BTOR_EMPTY_STACK (ranges))
{
assert (base == subst);
assert (BTOR_COUNT_STACK (ranges) % 2 == 0);
for (i_range = 0, i_inc = 0;
i_range < BTOR_COUNT_STACK (ranges) - 1;
i_range += 2, i_inc++)
{
lower = BTOR_PEEK_STACK (ranges, i_range);
upper = BTOR_PEEK_STACK (ranges, i_range + 1);
assert (i_inc < BTOR_COUNT_STACK (increments));
inc = BTOR_PEEK_STACK (increments, i_inc);
b = btor_find_in_ptr_hash_table (index_value_map, lower);
value = b->data.asPtr;
extract_cpy_src_dst_info (lower, value,
&src_array, &src_addr, &dst_addr, 0);
/* 'subst' == destination array */
tmp = create_pattern_cpy (btor, lower, upper,
src_array, subst,
src_addr, dst_addr, inc);
tmp->is_array = 1;
btor_release_exp (btor, subst);
subst = tmp;
btor_free_bv (mm, inc);
}
}
num_total = num_set + num_set_inc + num_set_itoi + num_set_itoip1 +
num_cpy;
/* we can skip creating writes if we did not find any pattern in a write
* chain, and thus can leave the write chain as-is.
* for the top equality case we always have to create writes since we
* convert top level equalities to writes. */
if (is_top_eq || num_total > 0)
{
/* no pattern found for indices in 'indices_rem'. create writes */
for (i_index = 0; i_index < BTOR_COUNT_STACK (indices_rem); i_index++)
{
lower = BTOR_PEEK_STACK (indices_rem, i_index);
b = btor_find_in_ptr_hash_table (index_value_map, lower);
assert (b);
value = b->data.asPtr;
tmp = btor_write_exp (btor, subst, lower, value);
btor_release_exp (btor, subst);
subst = tmp;
num_writes++;
}
}
assert ((is_top_eq || num_total > 0) || base == subst);
if (base != subst)
btor_insert_substitution (btor, array, subst, 0);
btor_release_exp (btor, subst);
btor_delete_ptr_hash_table (index_value_map);
btor_delete_ptr_hash_table (t);
BTOR_RESET_STACK (ranges);
BTOR_RESET_STACK (indices);
BTOR_RESET_STACK (values);
BTOR_RESET_STACK (increments);
BTOR_RESET_STACK (indices_itoi);
BTOR_RESET_STACK (indices_itoip1);
BTOR_RESET_STACK (indices_cpy);
BTOR_RESET_STACK (indices_rem);
}
BTOR_RELEASE_STACK (mm, ranges);
BTOR_RELEASE_STACK (mm, indices);
BTOR_RELEASE_STACK (mm, values);
BTOR_RELEASE_STACK (mm, increments);
BTOR_RELEASE_STACK (mm, indices_itoi);
BTOR_RELEASE_STACK (mm, indices_itoip1);
BTOR_RELEASE_STACK (mm, indices_cpy);
BTOR_RELEASE_STACK (mm, indices_rem);
BTOR_MSG (btor->msg, 1,
"set: %u (%u), "
"set_inc: %u (%u), "
"set_itoi: %u (%u), "
"set_itoip1: %u (%u), "
"cpy: %u (%u)",
num_set, size_set,
num_set_inc, size_set_inc,
num_set_itoi, size_set_itoi,
num_set_itoip1, size_set_itoip1,
num_cpy, size_cpy);
return num_total;
}
