/* Construct an affine expression pet_expr that evaluates * to the constant "val" on "space". */ static __isl_give pet_expr *universally(__isl_take isl_space *space, int val) { isl_ctx *ctx; isl_local_space *ls; isl_aff *aff; isl_multi_pw_aff *mpa; ctx = isl_space_get_ctx(space); ls = isl_local_space_from_space(space); aff = isl_aff_val_on_domain(ls, isl_val_int_from_si(ctx, val)); mpa = isl_multi_pw_aff_from_pw_aff(isl_pw_aff_from_aff(aff)); return pet_expr_from_index(mpa); }
/* Construct an isl_multi_val living in "space" with all values equal to "val". */ __isl_give isl_multi_val *ppcg_multi_val_from_int(__isl_take isl_space *space, int val) { int i, n; isl_ctx *ctx; isl_val *v; isl_multi_val *mv; if (!space) return NULL; ctx = isl_space_get_ctx(space); n = isl_space_dim(space, isl_dim_set); mv = isl_multi_val_zero(space); v = isl_val_int_from_si(ctx, val); for (i = 0; i < n; ++i) mv = isl_multi_val_set_val(mv, i, isl_val_copy(v)); isl_val_free(v); return mv; }
/* Construct an isl_multi_val living in "space" with values specified * by "list". "list" is assumed to have at least as many entries * as the set dimension of "space". */ __isl_give isl_multi_val *ppcg_multi_val_from_int_list( __isl_take isl_space *space, int *list) { int i, n; isl_ctx *ctx; isl_multi_val *mv; if (!space) return NULL; ctx = isl_space_get_ctx(space); n = isl_space_dim(space, isl_dim_set); mv = isl_multi_val_zero(space); for (i = 0; i < n; ++i) { isl_val *v; v = isl_val_int_from_si(ctx, list[i]); mv = isl_multi_val_set_val(mv, i, v); } return mv; }
/* Construct a unique identifier for a group in "grouping". * * The name is of the form G_n, with n the first value starting at * grouping->group_id that does not result in an identifier * that is already in use in the domain of the original schedule * constraints. */ static isl_id *construct_group_id(struct ppcg_grouping *grouping, __isl_take isl_space *space) { isl_ctx *ctx; isl_id *id; isl_bool empty; isl_union_set *domain; if (!space) return NULL; ctx = isl_space_get_ctx(space); domain = isl_schedule_constraints_get_domain(grouping->sc); do { char buffer[20]; isl_id *id; isl_set *set; snprintf(buffer, sizeof(buffer), "G_%d", grouping->group_id); grouping->group_id++; id = isl_id_alloc(ctx, buffer, NULL); space = isl_space_set_tuple_id(space, isl_dim_set, id); set = isl_union_set_extract_set(domain, isl_space_copy(space)); empty = isl_set_plain_is_empty(set); isl_set_free(set); } while (empty >= 0 && !empty); if (empty < 0) space = isl_space_free(space); id = isl_space_get_tuple_id(space, isl_dim_set); isl_space_free(space); isl_union_set_free(domain); return id; }