FictionTools/z88dk/src/sccz80/codegen.c
/* Form logical negation of primary register */
Form logical negation of primary register
Form logical negation of primary register
void lneg(LVALUE* lval)
{
    lval->oldval_kind = lval->val_type;
    switch (lval->val_type) {
    case KIND_LONG:
    case KIND_CPTR:
        lval->val_type = KIND_INT;
        lval->ltype = type_int;
        callrts("l_long_lneg");
        break;
    case KIND_CARRY:
        set_carry(lval);
        ol("ccf");
        break;
    case KIND_DOUBLE:
        zconvert_from_double(KIND_INT, 0);
    default:
        set_int(lval);
        callrts("l_lneg");
    }
}
void lneg ( LVALUE * lval ) { lval -> oldval_kind = lval -> val_type ; switch ( lval -> val_type ) { case KIND_LONG : case KIND_CPTR : lval -> val_type = KIND_INT ; lval -> ltype = type_int ; callrts ( " " ) ; break ; case KIND_CARRY : set_carry ( lval ) ; ol ( " " ) ; break ; case KIND_DOUBLE : zconvert_from_double ( KIND_INT , 0 ) ; default : set_int ( lval ) ; callrts ( " " ) ; } }
Form logical negation of primary register
Form logical negation of primary register