add isl_aff_set_dim_name

Signed-off-by: Sven Verdoolaege <skimo@kotnet.org>

diff --git a/doc/user.pod b/doc/user.pod
index 8060791..2ffad9a 100644 (file)
--- a/doc/user.pod
+++ b/doc/user.pod
@@ -2210,6 +2210,9 @@ The expression can be inspected using
 It can be modified using
 
        #include <isl/aff.h>
+       __isl_give isl_aff *isl_aff_set_dim_name(
+               __isl_take isl_aff *aff, enum isl_dim_type type,
+               unsigned pos, const char *s);
        __isl_give isl_aff *isl_aff_set_constant(
                __isl_take isl_aff *aff, isl_int v);
        __isl_give isl_aff *isl_aff_set_constant_si(

diff --git a/include/isl/aff.h b/include/isl/aff.h
index 64d16d8..d7d1f86 100644 (file)
--- a/include/isl/aff.h
+++ b/include/isl/aff.h
@@ -42,6 +42,9 @@ __isl_give isl_aff *isl_aff_add_constant_si(__isl_take isl_aff *aff, int v);
 __isl_give isl_aff *isl_aff_add_coefficient_si(__isl_take isl_aff *aff,
        enum isl_dim_type type, int pos, int v);
 
+__isl_give isl_aff *isl_aff_set_dim_name(__isl_take isl_aff *aff,
+       enum isl_dim_type type, unsigned pos, const char *s);
+
 int isl_aff_plain_is_equal(__isl_keep isl_aff *aff1, __isl_keep isl_aff *aff2);
 int isl_aff_plain_is_zero(__isl_keep isl_aff *aff);
 

diff --git a/isl_aff.c b/isl_aff.c
index d0fe73a..5cd56b9 100644 (file)
--- a/isl_aff.c
+++ b/isl_aff.c
@@ -626,3 +626,16 @@ __isl_give isl_aff *isl_aff_scale_down_ui(__isl_take isl_aff *aff, unsigned f)
 
        return aff;
 }
+
+__isl_give isl_aff *isl_aff_set_dim_name(__isl_take isl_aff *aff,
+       enum isl_dim_type type, unsigned pos, const char *s)
+{
+       aff = isl_aff_cow(aff);
+       if (!aff)
+               return NULL;
+       aff->ls = isl_local_space_set_dim_name(aff->ls, type, pos, s);
+       if (!aff->ls)
+               return isl_aff_free(aff);
+
+       return aff;
+}