isl_tab: optionally save dual solution
[platform/upstream/isl.git] / isl_ctx.c
1 #include "isl_ctx.h"
2 #include "isl_vec.h"
3 #ifdef ISL_POLYLIB
4 #include <polylib/polylibgmp.h>
5 #endif
6
7 struct isl_ctx *isl_ctx_alloc()
8 {
9         struct isl_ctx *ctx = NULL;
10
11         ctx = isl_alloc_type(NULL, struct isl_ctx);
12         if (!ctx)
13                 goto error;
14
15         if (isl_hash_table_init(ctx, &ctx->name_hash, 0))
16                 goto error;
17
18         ctx->ref = 0;
19
20         isl_int_init(ctx->one);
21         isl_int_set_si(ctx->one, 1);
22
23         isl_int_init(ctx->negone);
24         isl_int_set_si(ctx->negone, -1);
25
26         ctx->n_cached = 0;
27
28 #ifdef ISL_POLYLIB
29         ctx->MaxRays = POL_NO_DUAL | POL_INTEGER;
30 #endif
31
32         ctx->lp_solver = ISL_LP_TAB;
33
34         return ctx;
35 error:
36         free(ctx);
37         return NULL;
38 }
39
40 void isl_ctx_ref(struct isl_ctx *ctx)
41 {
42         ctx->ref++;
43 }
44
45 void isl_ctx_deref(struct isl_ctx *ctx)
46 {
47         isl_assert(ctx, ctx->ref > 0, return);
48         ctx->ref--;
49 }
50
51 void isl_ctx_free(struct isl_ctx *ctx)
52 {
53         if (!ctx)
54                 return;
55         isl_assert(ctx, ctx->ref == 0, return);
56         isl_hash_table_clear(&ctx->name_hash);
57         isl_blk_clear_cache(ctx);
58         isl_int_clear(ctx->one);
59         isl_int_clear(ctx->negone);
60         free(ctx);
61 }