예제 #1
0
static void
formalize_init_expr (gfc_expr * expr)
{
    expr_t type;
    gfc_constructor *c;

    if (expr == NULL)
        return;

    type = expr->expr_type;
    switch (type)
    {
    case EXPR_ARRAY:
        c = expr->value.constructor;
        while (c)
        {
            formalize_init_expr (c->expr);
            c = c->next;
        }
        break;

    case EXPR_STRUCTURE:
        formalize_structure_cons (expr);
        break;

    default:
        break;
    }
}
예제 #2
0
파일: data.c 프로젝트: chinabin/gcc-tiny
static void
formalize_init_expr (gfc_expr *expr)
{
  expr_t type;
  gfc_constructor *c;

  if (expr == NULL)
    return;

  type = expr->expr_type;
  switch (type)
    {
    case EXPR_ARRAY:
      for (c = gfc_constructor_first (expr->value.constructor);
	   c; c = gfc_constructor_next (c))
	formalize_init_expr (c->expr);

    break;

    case EXPR_STRUCTURE:
      formalize_structure_cons (expr);
      break;

    default:
      break;
    }
}