FictionTools/z88dk/src/sccz80/codegen.c
/* Test the primary register and jump if false to label */
Test the primary register and jump if false to label
Test the primary register and jump if false to label
void testjump(LVALUE* lval, int label)
{
    Kind type;
    ol("ld\ta,h");
    ol("or\tl");
    type = lval->val_type;
    if (lval->binop == NULL)
        type = lval->val_type;
    if (type == KIND_LONG && check_lastop_was_comparison(lval)) {
        ol("or\td");
        ol("or\te");
    }
    if (type == KIND_CPTR && check_lastop_was_comparison(lval)) {
        ol("or\te");
    }
    opjump("z,", label);
}
void testjump ( LVALUE * lval , int label ) { Kind type ; ol ( " \t " ) ; ol ( " \t " ) ; type = lval -> val_type ; if ( lval -> binop == NULL ) type = lval -> val_type ; if ( type == KIND_LONG && check_lastop_was_comparison ( lval ) ) { ol ( " \t " ) ; ol ( " \t " ) ; } if ( type == KIND_CPTR && check_lastop_was_comparison ( lval ) ) { ol ( " \t " ) ; } opjump ( " " , label ) ; }
Test the primary register and jump if false to label
Test the primary register and jump if false to label