/*to be used for structure checking */
/ *@only@* / static constraintExpr
-doSRefFixInvarConstraintTerm (/ *@only@* / constraintExpr e,
- sRef s, ctype ct)
+doSRefFixInvarConstraintTerm (/ *@only@* / constraintExpr e, sRef s, ctype ct)
{
constraintTerm t;
/*drl added these around 10/18/001*/
-static /*@only@*/ constraintExpr constraintExpr_div (/*@only@*/ constraintExpr e, ctype tfrom, ctype tto, fileloc loc)
+static /*@only@*/ constraintExpr
+constraintExpr_div (/*@only@*/ constraintExpr e, ctype tfrom, ctype tto, fileloc loc)
{
int sizefrom = ctype_getSize (tfrom);
int sizeto = ctype_getSize (tto);
if (sizeto == sizefrom)
{
+ DPRINTF (("Sizes match: %d / %d", sizeto, sizefrom));
; /* Sizes match, a-ok */
}
else
llassert (e != NULL);
llassert (e->kind == term);
ct = constraintExprData_termGetTerm (e->data);
+ DPRINTF (("constraint: %s / %s", constraintExpr_unparse (e), constraintTerm_unparse (ct)));
llassert (constraintTerm_canGetValue (ct));
val = constraintTerm_getValue (ct);
/*@access exprNode@*/
-static /*@only@*/ constraintExpr constraintTerm_simpleDivTypeExprNode (/*@only@*/ constraintExpr e, ctype tfrom, ctype tto, fileloc loc)
+static /*@only@*/ constraintExpr
+constraintTerm_simpleDivTypeExprNode (/*@only@*/ constraintExpr e, ctype tfrom, ctype tto, fileloc loc)
{
exprData data;
exprNode t1, t2, expr;
/* empty */
}
}
+ else
+ {
+ DPRINTF (("Not a mult: %s", constraintExpr_unparse (e)));
+ }
}
return (constraintExpr_div (e, tfrom, tto, loc));