pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:923:    case T_MAPPING:    case PIKE_T_RING:    /* Make a new type of the top two types. */    --Pike_compiler->type_stackp;    *Pike_compiler->type_stackp = mk_type(type,    *(Pike_compiler->type_stackp+1),    *Pike_compiler->type_stackp,    PT_COPY_BOTH);    break;    +  case T_PROGRAM: +  if ((*Pike_compiler->type_stackp)->type != T_OBJECT) { +  /* Not a program type, convert it to a type type. */ +  type = T_TYPE; +  } +  /* FALL_THROUGH */    case T_ARRAY:    case T_MULTISET:    case T_NOT:    case T_TYPE: -  case T_PROGRAM: +     case T_STRING:    /* Make a new type of the top type, and put it in car. */    *Pike_compiler->type_stackp = mk_type(type,    *Pike_compiler->type_stackp, NULL,    PT_COPY_CAR);    break;       case T_SCOPE:    case T_ASSIGN:    case T_INT: