static /*@only@*/ cstring constraint_unparseDetailedPostCondition (/*@observer@*/ /*@temp@*/ constraint c)
{
cstring st = cstring_undefined;
cstring genExpr;
llassert (constraint_isDefined (c) );
st = message ("Unsatisfied ensures constraint condition:\nSplint is unable to verify the constraint %q",
constraint_unparseDeep (c));
genExpr = exprNode_unparse (c->generatingExpr);
if (context_getFlag (FLG_CONSTRAINTLOCATION))
{
cstring temp;
temp = message ("\nOriginal Generating expression %q: %s\n",
fileloc_unparse (exprNode_loc (c->generatingExpr)),
genExpr);
st = cstring_concatFree (st, temp);
if (constraint_hasMaxSet (c))
{
temp = message ("Has MaxSet\n");
st = cstring_concatFree (st, temp);
}
}
return st;
}
static cstring constraint_unparseDeep (constraint c)
{
cstring genExpr;
cstring st;
llassert (constraint_isDefined (c));
st = constraint_unparse (c);
if (c->orig != constraint_undefined)
{
st = cstring_appendChar (st, '\n');
genExpr = exprNode_unparse (c->orig->generatingExpr);
if (!c->post)
{
if (c->orig->fcnPre)
{
st = cstring_concatFree (st, message (" derived from %s precondition: %q",
genExpr, constraint_unparseDeep (c->orig)));
}
else
{
st = cstring_concatFree (st, message (" needed to satisfy precondition:\n%q",
constraint_unparseDeep (c->orig)));
}
}
else
{
st = cstring_concatFree (st, message ("derived from: %q",
constraint_unparseDeep (c->orig)));
}
}
return st;
}
static constraint
constraint_makeEnsuresOp (/*@dependent@*/ exprNode e1, /*@dependent@*/ exprNode e2,
fileloc sequencePoint, arithType ar)
{
constraintExpr c1, c2;
if (!(exprNode_isDefined (e1) && exprNode_isDefined (e2)))
{
llcontbug (message ("Invalid exprNode, Exprnodes are %s and %s",
exprNode_unparse (e1), exprNode_unparse (e2)));
}
c1 = constraintExpr_makeValueExpr (e1);
c2 = constraintExpr_makeValueExpr (e2);
return constraint_makeEnsuresOpConstraintExpr (c1, c2, sequencePoint, ar);
}
cstring constraint_unparseDetailed (constraint c)
{
cstring st = cstring_undefined;
cstring temp = cstring_undefined;
cstring genExpr;
bool isLikely;
llassert (constraint_isDefined (c));
if (!c->post)
{
st = message ("Unable to resolve constraint:\n%q", constraint_unparseDeep (c));
}
else
{
st = message ("Block Post condition:\nThis function block has the post condition %q", constraint_unparseDeep (c));
}
isLikely = constraint_isConstantOnly (c);
if (isLikely)
{
if (constraint_hasMaxSet (c))
{
temp = cstring_makeLiteral ("Likely out-of-bounds store: ");
}
else
{
temp = cstring_makeLiteral ("Likely out-of-bounds read: ");
}
}
else
{
if (constraint_hasMaxSet (c))
{
temp = cstring_makeLiteral ("Possible out-of-bounds store: ");
}
else
{
temp = cstring_makeLiteral ("Possible out-of-bounds read: ");
}
}
genExpr = exprNode_unparse (c->generatingExpr);
if (context_getFlag (FLG_CONSTRAINTLOCATION))
{
cstring temp2;
temp2 = message ("%s\n", genExpr);
temp = cstring_concatFree (temp, temp2);
}
st = cstring_concatFree (temp,st);
return st;
}
/* old name mergeResolve renamed for czech naming convention */
void exprNode_mergeResolve (exprNode parent, exprNode child1, exprNode child2)
{
constraintList temp, temp2;
DPRINTF((message ("magically merging constraint into parent:%s for", exprNode_unparse (parent) )) );
DPRINTF((message (" children: %s and %s", exprNode_unparse (child1), exprNode_unparse(child2) ) ) );
if (exprNode_isUndefined(parent) )
{
llassert (exprNode_isDefined(parent) );
return;
}
if (exprNode_isError (child1) || exprNode_isError(child2) )
{
if (exprNode_isError (child1) && !exprNode_isError(child2) )
{
constraintList_free(parent->requiresConstraints);
parent->requiresConstraints = constraintList_copy (child2->requiresConstraints);
constraintList_free(parent->ensuresConstraints);
parent->ensuresConstraints = constraintList_copy (child2->ensuresConstraints);
DPRINTF((message ("Copied child constraints: pre: %s and post: %s",
constraintList_unparse( child2->requiresConstraints),
constraintList_unparse (child2->ensuresConstraints)
)
));
return;
}
else
{
llassert(exprNode_isError(child2) );
return;
}
}
llassert(!exprNode_isError (child1) && ! exprNode_isError(child2) );
DPRINTF((message ("Child constraints are %s %s and %s %s",
constraintList_unparse (child1->requiresConstraints),
constraintList_unparse (child1->ensuresConstraints),
constraintList_unparse (child2->requiresConstraints),
constraintList_unparse (child2->ensuresConstraints)
) ) );
constraintList_free(parent->requiresConstraints);
parent->requiresConstraints = constraintList_copy (child1->requiresConstraints);
if ( context_getFlag (FLG_ORCONSTRAINT) )
temp = constraintList_reflectChangesOr (child2->requiresConstraints, child1->ensuresConstraints);
else
temp = constraintList_reflectChanges(child2->requiresConstraints, child1->ensuresConstraints);
temp2 = constraintList_mergeRequires (parent->requiresConstraints, temp);
constraintList_free(parent->requiresConstraints);
constraintList_free(temp);
parent->requiresConstraints = temp2;
DPRINTF((message ("Parent requires constraints are %s ",
constraintList_unparse (parent->requiresConstraints)
) ) );
constraintList_free(parent->ensuresConstraints);
parent->ensuresConstraints = constraintList_mergeEnsures(child1->ensuresConstraints,
child2->ensuresConstraints);
DPRINTF((message ("Parent constraints are %s and %s ",
constraintList_unparse (parent->requiresConstraints),
constraintList_unparse (parent->ensuresConstraints)
) ) );
}
constraint constraint_origAddGeneratingExpr (/*@returned@*/ constraint c, exprNode e)
{
llassert (constraint_isDefined (c) );
if (c->orig != constraint_undefined)
{
c->orig = constraint_addGeneratingExpr (c->orig, e);
}
else
{
DPRINTF ((message ("constraint_origAddGeneratingExpr: Not setting generatingExpr for %s to %s", constraint_unparse (c), exprNode_unparse (e)) ));
}
return c;
}
constraint constraint_addGeneratingExpr (/*@returned@*/ constraint c, /*@exposed@*/ exprNode e)
{
if (!constraint_isDefined (c))
{
return c;
}
if (c->generatingExpr == NULL)
{
c->generatingExpr = e;
DPRINTF ((message ("setting generatingExpr for %s to %s", constraint_unparse (c), exprNode_unparse (e)) ));
}
else
{
DPRINTF ((message ("Not setting generatingExpr for %s to %s", constraint_unparse (c), exprNode_unparse (e)) ));
}
return c;
}
