pike.git/ src/ pike_types.cmod

2022-04-01

2022-04-01 10:36:42 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• b999baeae4b073804de36654cad2c415c674e22f (37 lines) (+34/-3) ^{[ Show | Annotate ]}
  Branch: master

Compiler [Typechecker]: Improved handling of PIKE_T_TRANSITIVE.

Reduces recursion on TRANSITIVE PT_BINOP_AND MANY.

5278:    if (!b) return NULL;    goto loop;    -  case TWOT(PIKE_T_TRANSITIVE, T_FUNCTION): +     case TWOT(PIKE_T_TRANSITIVE, T_MANY): -  +  if (op == PT_BINOP_AND) { +  type_stack_mark(); +  tmp = low_type_binop(op, a->cdr, b, NULL, aflags, bflags, remap_flags); +  push_finished_type(tmp); +  free_type(tmp); +  tmp = low_type_binop(op, a->car, b, remap, aflags, bflags, remap_flags); +  push_finished_type(tmp); +  free_type(tmp); +  push_type(PIKE_T_TRANSITIVE); +  return pop_unfinished_type(); +  } +  /* FALLTHRU */ +  case TWOT(PIKE_T_TRANSITIVE, T_FUNCTION):    case TWOT(PIKE_T_TRANSITIVE, T_PROGRAM): -  case TWOT(PIKE_T_TRANSITIVE, PIKE_T_TRANSITIVE): +     tmp = expand_transitive(a, NULL, 0);    ret = low_type_binop(op, tmp, b, remap, aflags, bflags, remap_flags);    free_type(tmp);    return ret;    -  case TWOT(T_FUNCTION, PIKE_T_TRANSITIVE): +     case TWOT(T_MANY, PIKE_T_TRANSITIVE): -  +  if (op == PT_BINOP_AND) { +  type_stack_mark(); +  tmp = low_type_binop(op, a, b->cdr, NULL, aflags, bflags, remap_flags); +  push_finished_type(tmp); +  free_type(tmp); +  tmp = low_type_binop(op, a, b->car, remap, aflags, bflags, remap_flags); +  push_finished_type(tmp); +  free_type(tmp); +  push_type(PIKE_T_TRANSITIVE); +  return pop_unfinished_type(); +  } +  /* FALLTHRU */ +  case TWOT(T_FUNCTION, PIKE_T_TRANSITIVE):    case TWOT(T_PROGRAM, PIKE_T_TRANSITIVE):    tmp = expand_transitive(b, NULL, 0);    ret = low_type_binop(op, a, tmp, remap, aflags, bflags, remap_flags);    free_type(tmp);    return ret;    -  +  case TWOT(PIKE_T_TRANSITIVE, PIKE_T_TRANSITIVE): +  /* FIXME: Is there a better approach? */ +  tmp = expand_transitive(a, NULL, 0); +  ret = low_type_binop(op, tmp, b, remap, aflags, bflags, remap_flags); +  free_type(tmp); +  return ret; +     case TWOT(T_FUNCTION, PIKE_T_OPERATOR):    case TWOT(PIKE_T_OPERATOR, T_FUNCTION):    type_stack_mark();