add isl_vec_set_si

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

diff --git a/doc/user.pod b/doc/user.pod
index 60f9885..e2c2ce4 100644 (file)
--- a/doc/user.pod
+++ b/doc/user.pod
@@ -2760,6 +2760,8 @@ The elements can be changed and inspected using the following functions.
                __isl_take isl_vec *vec, int pos, int v);
        __isl_give isl_vec *isl_vec_set(__isl_take isl_vec *vec,
                isl_int v);
+       __isl_give isl_vec *isl_vec_set_si(__isl_take isl_vec *vec,
+               int v);
 
 C<isl_vec_get_element> will return a negative value if anything went wrong.
 In that case, the value of C<*v> is undefined.

diff --git a/include/isl/vec.h b/include/isl/vec.h
index 55fdf6b..e5be78c 100644 (file)
--- a/include/isl/vec.h
+++ b/include/isl/vec.h
@@ -57,6 +57,7 @@ void isl_vec_lcm(struct isl_vec *vec, isl_int *lcm);
 struct isl_vec *isl_vec_ceil(struct isl_vec *vec);
 struct isl_vec *isl_vec_normalize(struct isl_vec *vec);
 __isl_give isl_vec *isl_vec_set(__isl_take isl_vec *vec, isl_int v);
+__isl_give isl_vec *isl_vec_set_si(__isl_take isl_vec *vec, int v);
 __isl_give isl_vec *isl_vec_clr(__isl_take isl_vec *vec);
 __isl_give isl_vec *isl_vec_neg(__isl_take isl_vec *vec);
 __isl_give isl_vec *isl_vec_scale(__isl_take isl_vec *vec, isl_int m);

diff --git a/isl_vec.c b/isl_vec.c
index fa4df06..46c9d1a 100644 (file)
--- a/isl_vec.c
+++ b/isl_vec.c
@@ -239,6 +239,15 @@ __isl_give isl_vec *isl_vec_set(__isl_take isl_vec *vec, isl_int v)
        return vec;
 }
 
+__isl_give isl_vec *isl_vec_set_si(__isl_take isl_vec *vec, int v)
+{
+       vec = isl_vec_cow(vec);
+       if (!vec)
+               return NULL;
+       isl_seq_set_si(vec->el, v, vec->size);
+       return vec;
+}
+
 __isl_give isl_vec *isl_vec_clr(__isl_take isl_vec *vec)
 {
        vec = isl_vec_cow(vec);