mirror of
https://review.haiku-os.org/buildtools
synced 2024-11-23 07:18:49 +01:00
72 lines
2.1 KiB
C
72 lines
2.1 KiB
C
/*
|
|
* Copyright 2013 Ecole Normale Superieure
|
|
*
|
|
* Use of this software is governed by the MIT license
|
|
*
|
|
* Written by Sven Verdoolaege,
|
|
* Ecole Normale Superieure, 45 rue d'Ulm, 75230 Paris, France
|
|
*/
|
|
|
|
#include <isl/space.h>
|
|
|
|
#include <isl_multi_macro.h>
|
|
|
|
/* Move the "n" dimensions of "src_type" starting at "src_pos" of "multi"
|
|
* to dimensions of "dst_type" at "dst_pos".
|
|
*
|
|
* We only support moving input dimensions to parameters and vice versa.
|
|
*/
|
|
__isl_give MULTI(BASE) *FN(MULTI(BASE),move_dims)(__isl_take MULTI(BASE) *multi,
|
|
enum isl_dim_type dst_type, unsigned dst_pos,
|
|
enum isl_dim_type src_type, unsigned src_pos, unsigned n)
|
|
{
|
|
int i;
|
|
|
|
if (!multi)
|
|
return NULL;
|
|
|
|
if (n == 0 &&
|
|
!isl_space_is_named_or_nested(multi->space, src_type) &&
|
|
!isl_space_is_named_or_nested(multi->space, dst_type))
|
|
return multi;
|
|
|
|
if (dst_type == isl_dim_out || src_type == isl_dim_out)
|
|
isl_die(FN(MULTI(BASE),get_ctx)(multi), isl_error_invalid,
|
|
"cannot move output/set dimension",
|
|
return FN(MULTI(BASE),free)(multi));
|
|
if (dst_type == isl_dim_div || src_type == isl_dim_div)
|
|
isl_die(FN(MULTI(BASE),get_ctx)(multi), isl_error_invalid,
|
|
"cannot move divs",
|
|
return FN(MULTI(BASE),free)(multi));
|
|
if (FN(MULTI(BASE),check_range)(multi, src_type, src_pos, n) < 0)
|
|
return FN(MULTI(BASE),free)(multi);
|
|
if (dst_type == src_type)
|
|
isl_die(FN(MULTI(BASE),get_ctx)(multi), isl_error_unsupported,
|
|
"moving dims within the same type not supported",
|
|
return FN(MULTI(BASE),free)(multi));
|
|
|
|
multi = FN(MULTI(BASE),cow)(multi);
|
|
if (!multi)
|
|
return NULL;
|
|
|
|
multi->space = isl_space_move_dims(multi->space, dst_type, dst_pos,
|
|
src_type, src_pos, n);
|
|
if (!multi->space)
|
|
return FN(MULTI(BASE),free)(multi);
|
|
if (FN(MULTI(BASE),has_explicit_domain)(multi))
|
|
multi = FN(MULTI(BASE),move_explicit_domain_dims)(multi,
|
|
dst_type, dst_pos, src_type, src_pos, n);
|
|
if (!multi)
|
|
return NULL;
|
|
|
|
for (i = 0; i < multi->n; ++i) {
|
|
multi->u.p[i] = FN(EL,move_dims)(multi->u.p[i],
|
|
dst_type, dst_pos,
|
|
src_type, src_pos, n);
|
|
if (!multi->u.p[i])
|
|
return FN(MULTI(BASE),free)(multi);
|
|
}
|
|
|
|
return multi;
|
|
}
|