pike.git / src / pike_types.cmod

version» Context lines:

pike.git/src/pike_types.cmod:7948:    INT32 amin = CAR_TO_INT(a);    INT32 amax = CDR_TO_INT(a);       INT32 bmin = CAR_TO_INT(b);    INT32 bmax = CDR_TO_INT(b);       if(amin > bmax || bmin > amax) return 0;    break;    }    +  case T_ARRAY:    case T_STRING:    if (!a->cdr || !b->cdr)    break; -  /* FALLTHRU */ -  case T_ARRAY: +        if(!(tmp = low_match_types(a->cdr, b->cdr,    flags & ~(A_EXACT|B_EXACT)))) {    return 0;    }    free_type(tmp);    /* FALLTHRU */       case T_PROGRAM:    case T_TYPE:
pike.git/src/pike_types.cmod:8843:       case T_TYPE:    case T_PROGRAM:    case T_MULTISET:    if (flags & LE_TYPE_SVALUE) return 1;    a = a->car;    b = b->car;    array_cnt = 0;    goto recurse;    -  case T_STRING: -  if (!a->car) return 1; -  /* FALLTHRU */ +     case T_ARRAY: -  +  case T_STRING:    if (flags & LE_TYPE_SVALUE) return 1; -  +  if (!a->car) return 1;    if (!low_pike_types_le(a->car, b->car, 0, flags)) return 0;    a = a->cdr;    b = b->cdr;    array_cnt = 0;    goto recurse;       case T_FLOAT:    case T_ZERO:    case T_VOID:    case T_MIXED: