add isl_aff_mod_val

[platform/upstream/isl.git] / isl_vertices.c

diff --git a/isl_vertices.c b/isl_vertices.c
index 45f82c0..c6d4ec0 100644 (file)
--- a/isl_vertices.c
+++ b/isl_vertices.c
@@ -1,7 +1,7 @@
 /*
  * Copyright 2010      INRIA Saclay
  *
- * Use of this software is governed by the GNU LGPLv2.1 license
+ * Use of this software is governed by the MIT license
  *
  * Written by Sven Verdoolaege, INRIA Saclay - Ile-de-France,
  * Parc Club Orsay Universite, ZAC des vignes, 4 rue Jacques Monod,
@@ -101,7 +101,7 @@ static __isl_give isl_vertices *vertices_from_list(__isl_keep isl_basic_set *bse
 
        return vertices;
 error:
-       free(vertices);
+       isl_vertices_free(vertices);
        free_vertex_list(list);
        return NULL;
 }
@@ -134,7 +134,7 @@ static int add_vertex(struct isl_vertex_list **list,
                goto error;
        isl_assert(bset->ctx, v->v.vertex->n_eq >= nvar, goto error);
        v->v.dom = isl_basic_set_copy(v->v.vertex);
-       v->v.dom = isl_basic_set_project_out(v->v.dom, isl_dim_set, 0, nvar);
+       v->v.dom = isl_basic_set_params(v->v.dom);
        if (!v->v.dom)
                goto error;
 
@@ -495,6 +495,7 @@ __isl_give isl_vertices *isl_basic_set_compute_vertices(
 
        return vertices;
 error:
+       free_vertex_list(list);
        isl_mat_free(facets);
        free(selection);
        free(snap);
@@ -991,10 +992,8 @@ __isl_give isl_basic_set *isl_vertex_get_domain(__isl_keep isl_vertex *vertex)
 
        v = &vertex->vertices->v[vertex->id];
        if (!v->dom) {
-               unsigned nvar;
-               nvar = isl_basic_set_dim(v->vertex, isl_dim_set);
                v->dom = isl_basic_set_copy(v->vertex);
-               v->dom = isl_basic_set_project_out(v->dom, isl_dim_set, 0, nvar);
+               v->dom = isl_basic_set_params(v->dom);
        }
 
        return isl_basic_set_copy(v->dom);