pike.git / src / pike_types.cmod

version» Context lines:

pike.git/src/pike_types.cmod:2414:    struct pike_type *char_type = s->car;    while(char_type->type == T_ASSIGN) {    char_type = char_type->cdr;    }       if (char_type->type == T_ZERO) {    fprintf(stderr, "zero | ");    s = s->cdr;    continue;    } +  if (char_type->type == T_MIXED) { +  fprintf(stderr, "mixed | "); +  s = s->cdr; +  continue; +  }    if ((char_type->type >= '0') && (char_type->type <= '9')) {    fprintf(stderr, "$%c | ", char_type->type);    s = s->cdr;    continue;    }   #ifdef PIKE_DEBUG    if (char_type->type != T_INT) {    Pike_fatal("Invalid node type (%d:%s) in string type.\n",    char_type->type, get_name_of_type(char_type->type));    }
pike.git/src/pike_types.cmod:2596:    fprintf(stderr, ")");    }    break;       case PIKE_T_OPERATOR:    fprintf(stderr, "operator<0x%04x>(", s->type);    simple_describe_type(s->car);    if (s->type & 0x8000) {    fprintf(stderr, ",");    simple_describe_type(s->cdr); +  fprintf(stderr, ")");    } else {    switch(s->type) {    case PIKE_T_FIND_LFUN:    fprintf(stderr, ",\"%s\")", STR0(lfun_strings[CDR_TO_INT(s)]));    break;    default:    if (s->cdr) {    fprintf(stderr, ",0x%08lx)", CDR_TO_INT(s));    } else {    fprintf(stderr, ")");