boolean Wff_is_propositional(SymbTable_ptr symb_table,
node_ptr wff,
node_ptr context,
boolean is_next_allowed)
{
NuSMVEnv_ptr env = NULL;
MasterLogicRecognizer_ptr master_recogn = NULL;
TypeChecker_ptr type_checker = NULL;
SymbType_ptr symb_type = NULL;
LogicType logic = EXP_NONE;
boolean retval = true;
SYMB_TABLE_CHECK_INSTANCE(symb_table);
nusmv_assert(retval);
env = EnvObject_get_environment(ENV_OBJECT(symb_table));
master_recogn = MASTER_LOGIC_RECOGNIZER(NuSMVEnv_get_value(env, ENV_MASTER_LOGIC_RECOGNIZER));
type_checker = SymbTable_get_type_checker(symb_table);
if (TypeChecker_is_expression_type_checked(type_checker, wff, context)) {
symb_type = TypeChecker_get_expression_type(type_checker, wff, context);
if (! SymbType_is_boolean(symb_type)) retval = false;
}
if (retval) {
logic = MasterLogicRecognizer_recognize(master_recogn, wff, context);
switch(logic) {
case EXP_CTL:
case EXP_LTL:
retval = false; break;
case EXP_NEXT:
if (! is_next_allowed) retval = false;
break;
case EXP_SIMPLE:
break;
default:
error_unreachable_code();
}
}
if (retval) {
if (! TypeChecker_is_expression_type_checked(type_checker, wff, context)) {
symb_type = TypeChecker_get_expression_type(type_checker, wff, context);
if (! SymbType_is_boolean(symb_type)) retval = false;
}
}
return retval;
}
boolean SymbLayer_iter_filter_bool_vars(const SymbLayer_ptr self,
const node_ptr sym,
void* arg)
{
return SymbCache_is_symbol_var(self->cache, sym) &&
SymbType_is_boolean(SymbCache_get_var_type(self->cache, sym));
}
void SymbLayer_declare_frozen_var(SymbLayer_ptr self, node_ptr var_name,
SymbType_ptr type)
{
SYMB_LAYER_CHECK_INSTANCE(self);
if (! SymbLayer_can_declare_var(self, var_name)) {
StreamMgr_nprint_error(self->streams, self->printer,
"Error: Cannot declare frozen variable '%N'\n",
var_name);
ErrorMgr_internal_error(self->errors, "Symbol already declared");
}
SymbCache_new_frozen_var(self->cache, var_name, type);
symb_layer_new_symbol(self, var_name);
++self->frozen_vars_num;
if (SymbType_is_boolean(type)) {
++self->bool_frozen_vars_num;
}
if (opt_verbose_level_gt(self->options, 3)) {
Logger_nlog(self->logger, self->printer,
"SymbLayer '%s': declared new frozen variable '%N'\n",
self->name, var_name);
}
}
void SymbLayer_remove_var(SymbLayer_ptr self, node_ptr name)
{
SymbType_ptr type;
/* IMPORTANT: do not remove this assertion! (read comment) */
nusmv_assert(self->committed_to_encs == 0); /* not in use */
nusmv_assert(SymbCache_is_symbol_var(self->cache, name));
type = SymbCache_get_var_type(self->cache, name);
if (SymbCache_is_symbol_state_var(self->cache, name)) {
--self->state_vars_num;
if (SymbType_is_boolean(type)) {
--self->bool_state_vars_num;
}
}
else if (SymbCache_is_symbol_frozen_var(self->cache, name)) {
--self->frozen_vars_num;
if (SymbType_is_boolean(type)) {
--self->bool_frozen_vars_num;
}
}
else if (SymbCache_is_symbol_input_var(self->cache, name)) {
--self->input_vars_num;
if (SymbType_is_boolean(type)) {
--self->bool_input_vars_num;
}
}
else {
error_unreachable_code();
}
/* removes the variable */
SymbCache_remove_var(self->cache, name);
symb_layer_remove_symbol(self, name);
if (opt_verbose_level_gt(self->options, 3)) {
Logger_nlog(self->logger, self->printer,
"SymbLayer '%s': removed variable '%N'\n",
self->name, name);
}
}
void
SymbLayer_redeclare_state_as_frozen_var(SymbLayer_ptr self, node_ptr var)
{
SymbType_ptr type;
SymbCache_redeclare_state_as_frozen_var(self->cache, var);
++self->frozen_vars_num;
--self->state_vars_num;
type = SymbCache_get_var_type(self->cache, var);
if (SymbType_is_boolean(type)) {
++self->bool_frozen_vars_num;
--self->bool_state_vars_num;
}
if (opt_verbose_level_gt(self->options, 3)) {
Logger_nlog(self->logger, self->printer,
"SymbLayer '%s': redeclared state var '%N' as frozen var\n",
self->name, var);
}
}
/**Function********************************************************************
Synopsis []
Description []
SideEffects []
SeeAlso []
******************************************************************************/
static SymbType_ptr checker_psl_check_expr(CheckerBase_ptr self,
node_ptr e, node_ptr ctx)
{
/* converts and operates on PslNodes, not node_ptr: */
PslNode_ptr expr = PslNode_convert_from_node_ptr(e);
PslNode_ptr context = PslNode_convert_from_node_ptr(ctx);
PslNode_ptr ctx_expr;
/* wrap expr into the context. This is required by
the facilities which remembers the type of expressions
and by the violation handler. */
if (context != PSL_NULL) {
ctx_expr = PslNode_new_context(psl_node_context_to_main_context(context),
expr);
}
else ctx_expr = expr;
{ /* checks memoizing */
SymbType_ptr tmp = _GET_TYPE(ctx_expr);
if (nullType != tmp) return tmp;
}
switch (psl_node_get_op(expr)) {
case PSL_INF: return _SET_TYPE(ctx_expr, SymbTablePkg_integer_set_type());
case PSL_SERE:
case PSL_SERECOMPOUND:
{
SymbType_ptr type = _THROW(psl_node_get_left(expr), context);
if (SymbType_is_error(type)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(type)) return _SET_TYPE(ctx_expr, type);
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(type) ?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* keeps the current type */
return _SET_TYPE(ctx_expr, type);
}
/* concatenation and multiple concatenation */
case PSL_CONCATENATION:
{
PslNode_ptr iter;
SymbType_ptr left = SYMB_TYPE(NULL);
SymbType_ptr right = SYMB_TYPE(NULL);
boolean is_ok = true;
if (psl_node_get_right(expr) != PSL_NULL) {
/* multiple concatenation */
right = _THROW(psl_node_get_right(expr), context);
if (SymbType_is_error(right)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (!SymbType_is_boolean(right)) {
if (_VIOLATION(SymbType_is_back_comp(right) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
}
}
/* checks all the list's elements */
iter = psl_node_get_left(expr);
while (is_ok && iter != PSL_NULL) {
left = _THROW(psl_node_get_left(iter), context);
if (SymbType_is_error(left)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
is_ok = SymbType_is_boolean(left);
iter = psl_node_get_right(iter);
}
if (!is_ok && _VIOLATION(SymbType_is_back_comp(left) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_SERECONCAT:
case PSL_SEREFUSION:
{
SymbType_ptr type1 = _THROW(psl_node_get_left(expr), context);
SymbType_ptr type2 = _THROW(psl_node_get_right(expr), context);
if (SymbType_is_error(type1) || SymbType_is_error(type2)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(type1) && SymbType_is_boolean(type2)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(type1) &&
SymbType_is_back_comp(type2)?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_SEREREPEATED:
{
PslNode_ptr sere, count;
boolean is_ok = true;
SymbType_ptr tcount = SYMB_TYPE(NULL);
SymbType_ptr tsere;
nusmv_assert(psl_node_get_left(expr) != PSL_NULL);
sere = psl_node_sere_repeated_get_expr(expr);
count = psl_node_sere_repeated_get_count(expr);
/* checks the count at first: */
if (count != PSL_NULL) {
tcount = _THROW(count, context);
if (SymbType_is_error(tcount)) return _SET_TYPE(ctx_expr, tcount);
if (tcount != SymbTablePkg_integer_type() &&
tcount != SymbTablePkg_boolean_type()) {
is_ok = false;
}
}
/* checks the sere now: */
if (sere != PSL_NULL && is_ok) {
tsere = _THROW(sere, context);
if (SymbType_is_error(tsere)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(tsere)) {
/* ok */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
}
else tsere = SymbTablePkg_error_type();
/* is this a type error ? */
if (!is_ok && _VIOLATION(SymbType_is_back_comp(tcount) &&
SymbType_is_back_comp(tsere) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_REPLPROP:
{
SymbTable_ptr symb_table =
TypeChecker_get_symb_table(TYPE_CHECKER(NODE_WALKER(self)->master));
PslNode_ptr repl = psl_node_repl_prop_get_replicator(expr);
PslNode_ptr prop = psl_node_repl_prop_get_property(expr);
PslNode_ptr value_set = psl_node_get_replicator_value_set(repl);
PslNode_ptr evalue_set =
psl_node_get_replicator_normalized_value_set(repl);
PslNode_ptr id = psl_node_get_replicator_id(repl);
boolean first_loop = true;
ResolveSymbol_ptr rs;
node_ptr id_ctx;
rs = SymbTable_resolve_symbol(symb_table,
PslNode_convert_to_node_ptr(id), ctx);
id_ctx = ResolveSymbol_get_resolved_name(rs);
/* Prepares the forall value set */
if (!psl_node_is_boolean_type(value_set)) {
/* not boolean checks the value_set content */
SymbType_ptr tvs = SymbType_create(SYMB_TYPE_ENUM, evalue_set);
if (!TypeChecker_is_type_wellformed(
TYPE_CHECKER(NODE_WALKER(self)->master),
tvs, id_ctx)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
}
/* loops over the set of possible values of the ID, and defines
a new define for each value. Then checks the replicated
property */
while (evalue_set != PSL_NULL) {
SymbType_ptr prop_type;
boolean is_ok = true;
/* creates a new temporary layer to contain the id as input var */
SymbLayer_ptr layer =
SymbTable_create_layer(symb_table, NULL, SYMB_LAYER_POS_DEFAULT);
/* checks the forall identifier: */
if (!SymbLayer_can_declare_define(layer, id_ctx)) {
_VIOLATION(TC_VIOLATION_AMBIGUOUS_IDENTIFIER, id);
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* declares a new temporary define to represent the id */
SymbLayer_declare_define(layer, id_ctx, ctx,
PslNode_convert_to_node_ptr(
psl_node_cons_get_element(evalue_set)));
/* now checks the replicated property: */
prop_type = _THROW(prop, context);
if (SymbType_is_error(prop_type)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
is_ok = SymbType_is_boolean(prop_type);
/* handle violation */
if (!is_ok && _VIOLATION(SymbType_is_back_comp(prop_type) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* gets rid of the temporary layer: */
SymbTable_remove_layer(symb_table, layer);
/* Disables memoizing, to force checking of the property event
if already checked, as the property that is going to be
checked at next iteration is grammatically identically to
the one that is being checked, but contain different value
for the forall ID */
if (first_loop) {
type_checker_enable_memoizing(
TYPE_CHECKER(NODE_WALKER(self)->master), false);
first_loop = false;
}
evalue_set = psl_node_cons_get_next(evalue_set); /* iterates on */
} /* loop over forall range */
/* re-enables memoizing. The property has already been memoized
during the first loop iteration */
type_checker_enable_memoizing(TYPE_CHECKER(NODE_WALKER(self)->master),
true);
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_WSELECT:
{
SymbTable_ptr symb_table =
TypeChecker_get_symb_table(TYPE_CHECKER(NODE_WALKER(self)->master));
PslNode_ptr left = psl_node_get_left(expr);
PslNode_ptr right = psl_node_get_right(expr);
/* get the operand' type */
SymbType_ptr type = _THROW(left, context);
node_ptr hbit, lbit;
int width;
int highBound;
int lowBound;
if (SymbType_is_error(type)) { /* earlier error */
return _SET_TYPE(ctx_expr, type);
}
hbit = PslNode_convert_to_node_ptr(psl_node_get_left(right));
lbit = PslNode_convert_to_node_ptr(psl_node_get_right(right));
hbit = CompileFlatten_resolve_number(symb_table, hbit, context);
lbit = CompileFlatten_resolve_number(symb_table, lbit, context);
nusmv_assert(COLON == psl_node_get_op(right));
/* Non constant expressions for range */
if ((Nil == hbit || Nil == lbit) ||
(NUMBER != node_get_type(hbit) || NUMBER != node_get_type(lbit))) {
if (_VIOLATION(TC_VIOLATION_UNCONSTANT_EXPRESSION, ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
else { /* return arbitrary Word type */
return _SET_TYPE(ctx_expr, SymbTablePkg_unsigned_word_type(1));
}
}
/* check the first operand type */
if (!SymbType_is_word(type)) { /* ERROR */
if (_VIOLATION(TC_VIOLATION_TYPE_MANDATORY, ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
else { /* return arbitrary Word type */
return _SET_TYPE(ctx_expr, SymbTablePkg_unsigned_word_type(1));
}
}
width = SymbType_get_word_width(type);
highBound = NODE_TO_INT(car(hbit));
lowBound = NODE_TO_INT(car(lbit));
/* checks the bit width */
if (width <= highBound || highBound < lowBound || lowBound < 0) {
/* ERROR */
if (_VIOLATION(TC_VIOLATION_OUT_OF_WORD_WIDTH, ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
else { /* give some realistic bit specifiers */
highBound = 0;
lowBound = 0;
}
}
/* everything is OK */
return _SET_TYPE(ctx_expr,
SymbTablePkg_unsigned_word_type(highBound - lowBound + 1));
}
case PSL_PIPEMINUSGT:
case PSL_PIPEEQGT:
{
PslNode_ptr pre = psl_node_suffix_implication_get_premise(expr);
PslNode_ptr con = psl_node_suffix_implication_get_consequence(expr);
SymbType_ptr type1 = _THROW(pre, context);
SymbType_ptr type2 = _THROW(con, context);
if (SymbType_is_error(type1) || SymbType_is_error(type2)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(type1) && SymbType_is_boolean(type2)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(type1) &&
SymbType_is_back_comp(type2)?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_ALWAYS:
case PSL_NEVER:
case PSL_EVENTUALLYBANG:
{
SymbType_ptr type = _THROW(psl_node_get_left(expr), context);
if (SymbType_is_error(type)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(type)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(type) ?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_WITHINBANG:
case PSL_WITHIN:
case PSL_WITHINBANG_:
case PSL_WITHIN_:
{
PslNode_ptr n1 = psl_node_get_left(psl_node_get_left(expr));
PslNode_ptr n2 = psl_node_get_right(psl_node_get_left(expr));
PslNode_ptr n3 = psl_node_get_right(expr);
SymbType_ptr t1 = _THROW(n1, context);
SymbType_ptr t2 = _THROW(n2, context);
SymbType_ptr t3 = _THROW(n3, context);
if (SymbType_is_error(t1) || SymbType_is_error(t2) ||
SymbType_is_error(t3) ) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(t1) && SymbType_is_boolean(t2) &&
SymbType_is_boolean(t3)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(t1) &&
SymbType_is_back_comp(t2) && SymbType_is_back_comp(t3) ?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_NEXT_EVENT_ABANG:
case PSL_NEXT_EVENT_A:
case PSL_NEXT_EVENT_EBANG:
case PSL_NEXT_EVENT_E:
case PSL_NEXT_EVENTBANG:
case PSL_NEXT_EVENT:
case PSL_NEXT_ABANG:
case PSL_NEXT_EBANG:
case PSL_NEXT_A:
case PSL_NEXT_E:
case PSL_NEXTBANG:
case PSL_NEXT:
case PSL_X:
case PSL_XBANG:
{
PslNode_ptr n1 = psl_node_extended_next_get_expr(expr);
PslNode_ptr n2 = psl_node_extended_next_get_when(expr);
PslNode_ptr n3 = psl_node_extended_next_get_condition(expr);
SymbType_ptr t1 = _THROW(n1, context);
SymbType_ptr t2 =
(n2 != PSL_NULL) ? _THROW(n2, context) : SYMB_TYPE(NULL);
SymbType_ptr t3 =
(n3 != PSL_NULL) ? _THROW(n3, context) : SYMB_TYPE(NULL);
if (SymbType_is_error(t1) ||
(t2 != SYMB_TYPE(NULL) && SymbType_is_error(t2)) ||
(t3 != SYMB_TYPE(NULL) && SymbType_is_error(t3))) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(t1) &&
(t3 == SYMB_TYPE(NULL) || SymbType_is_boolean(t3))) {
switch (psl_node_get_op(expr)) {
case PSL_NEXTBANG:
case PSL_NEXT:
case PSL_X:
case PSL_XBANG:
/* number */
if ((t2 == SYMB_TYPE(NULL)) ||
((SymbType_get_tag(t2) == SYMB_TYPE_INTEGER ||
SymbType_is_pure_int_enum(t2) ||
SymbType_is_boolean(t2)) &&
psl_node_number_get_value(n2) >= 0)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
break;
case PSL_NEXT_ABANG:
case PSL_NEXT_EBANG:
case PSL_NEXT_A:
case PSL_NEXT_E:
/* finite range */
if (t2 == SYMB_TYPE(NULL)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
if (SymbType_get_tag(t2) == SYMB_TYPE_SET_INT) {
PslNode_ptr low = psl_node_range_get_low(n2);
PslNode_ptr high = psl_node_range_get_high(n2);
if (!psl_node_is_infinite(high) &&
psl_node_number_get_value(low) >= 0 &&
psl_node_number_get_value(low) <= psl_node_number_get_value(high)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
}
break;
case PSL_NEXT_EVENT_ABANG:
case PSL_NEXT_EVENT_A:
case PSL_NEXT_EVENT_EBANG:
case PSL_NEXT_EVENT_E:
/* finite positive range */
if (t2 == SYMB_TYPE(NULL)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
if (SymbType_get_tag(t2) == SYMB_TYPE_SET_INT) {
PslNode_ptr low = psl_node_range_get_low(n2);
PslNode_ptr high = psl_node_range_get_high(n2);
if (!psl_node_is_infinite(high) &&
psl_node_number_get_value(low) > 0 &&
psl_node_number_get_value(low) <= psl_node_number_get_value(high)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
}
break;
case PSL_NEXT_EVENTBANG:
case PSL_NEXT_EVENT:
/* positive number */
if ((t2 == SYMB_TYPE(NULL)) ||
((SymbType_get_tag(t2) == SYMB_TYPE_INTEGER ||
SymbType_is_pure_int_enum(t2) ||
SymbType_is_boolean(t2)) &&
psl_node_number_get_value(n2) > 0)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
break;
default:
error_unreachable_code(); /* no other cases */
}
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(t1) &&
(t2 == SYMB_TYPE(NULL) || SymbType_is_back_comp(t2)) &&
(t3 == SYMB_TYPE(NULL) || SymbType_is_back_comp(t3)) ?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_RANGE:
/* colon is used only for index ranges */
return _SET_TYPE(ctx_expr, SymbTablePkg_integer_set_type());
/* binary operators */
case PSL_BEFOREBANG:
case PSL_BEFORE:
case PSL_BEFOREBANG_:
case PSL_BEFORE_:
case PSL_UNTILBANG:
case PSL_UNTIL:
case PSL_UNTILBANG_:
case PSL_UNTIL_:
case PSL_ABORT:
case PSL_W:
case PSL_OR:
case PSL_CARET:
case PSL_TILDE:
case PSL_EQEQ:
case PSL_PIPEPIPE:
case PSL_AMPERSANDAMPERSAND:
case PSL_WHILENOTBANG:
case PSL_WHILENOT:
case PSL_WHILENOTBANG_:
case PSL_WHILENOT_:
{
SymbType_ptr type1 = _THROW(psl_node_get_left(expr), context);
SymbType_ptr type2 = _THROW(psl_node_get_right(expr), context);
if (SymbType_is_error(type1) || SymbType_is_error(type2)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
if (SymbType_is_boolean(type1) && SymbType_is_boolean(type2)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
/* there is violation */
if (_VIOLATION(SymbType_is_back_comp(type1) &&
SymbType_is_back_comp(type2)?
TC_VIOLATION_TYPE_BACK_COMP : TC_VIOLATION_TYPE_MANDATORY,
ctx_expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return boolean type */
return _SET_TYPE(ctx_expr, SymbTablePkg_boolean_type());
}
case PSL_ITE:
{
/* get the operands' type */
SymbType_ptr returnType;
SymbType_ptr condType = _THROW(psl_node_get_ite_cond(expr), context);
SymbType_ptr thenType = _THROW(psl_node_get_ite_then(expr), context);
SymbType_ptr elseType = _THROW(psl_node_get_ite_else(expr), context);
if (SymbType_is_error(condType) ||
SymbType_is_error(thenType) || SymbType_is_error(elseType)) {
/* earlier error */
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* condition should be boolean */
if ( (!SymbType_is_boolean(condType)) &&
_VIOLATION(SymbType_is_back_comp(condType) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
expr) ) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* both ITE expressions should be convertable to a common type.
If one of the expressions is of a set-type then before implicit
convertion the other expression is converted to a corresponding
set-type.
*/
{
SymbType_ptr tmp1 = SymbType_is_set(elseType) ?
SymbType_make_set_type(thenType) : thenType;
SymbType_ptr tmp2 = SymbType_is_set(thenType) ?
SymbType_make_set_type(elseType) : elseType;
if (nullType != tmp1 && nullType != tmp2) {
returnType = SymbType_get_minimal_common(tmp1, tmp2);
}
else returnType = nullType;
}
/* we do not care which type exactly is obtained, since only
correct type could pass the above code
*/
if (nullType != returnType) {
return _SET_TYPE(ctx_expr, returnType);
}
/* is this a type error ? */
if (_VIOLATION(SymbType_is_back_comp(thenType) &&
SymbType_is_back_comp(elseType) ?
TC_VIOLATION_TYPE_BACK_COMP :
TC_VIOLATION_TYPE_MANDATORY,
expr)) {
return _SET_TYPE(ctx_expr, SymbTablePkg_error_type());
}
/* this is not an error after all -> return one of the types */
return _SET_TYPE(ctx_expr, thenType);
}
default:
internal_error("checker_psl_check_expr: not supported type");
}
return nullType;
}
