Coverage Report

Created: 2017-10-03 07:32

/Users/buildslave/jenkins/sharedspace/clang-stage2-coverage-R@2/llvm/tools/polly/lib/External/isl/isl_map_simplify.c
Line
Count
Source (jump to first uncovered line)
1
/*
2
 * Copyright 2008-2009 Katholieke Universiteit Leuven
3
 * Copyright 2012-2013 Ecole Normale Superieure
4
 * Copyright 2014-2015 INRIA Rocquencourt
5
 * Copyright 2016      Sven Verdoolaege
6
 *
7
 * Use of this software is governed by the MIT license
8
 *
9
 * Written by Sven Verdoolaege, K.U.Leuven, Departement
10
 * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
11
 * and Ecole Normale Superieure, 45 rue d’Ulm, 75230 Paris, France
12
 * and Inria Paris - Rocquencourt, Domaine de Voluceau - Rocquencourt,
13
 * B.P. 105 - 78153 Le Chesnay, France
14
 */
15
16
#include <isl_ctx_private.h>
17
#include <isl_map_private.h>
18
#include "isl_equalities.h"
19
#include <isl/map.h>
20
#include <isl_seq.h>
21
#include "isl_tab.h"
22
#include <isl_space_private.h>
23
#include <isl_mat_private.h>
24
#include <isl_vec_private.h>
25
26
#include <bset_to_bmap.c>
27
#include <bset_from_bmap.c>
28
#include <set_to_map.c>
29
#include <set_from_map.c>
30
31
static void swap_equality(struct isl_basic_map *bmap, int a, int b)
32
865k
{
33
865k
  isl_int *t = bmap->eq[a];
34
865k
  bmap->eq[a] = bmap->eq[b];
35
865k
  bmap->eq[b] = t;
36
865k
}
37
38
static void swap_inequality(struct isl_basic_map *bmap, int a, int b)
39
61.6k
{
40
61.6k
  if (
a != b61.6k
) {
41
61.6k
    isl_int *t = bmap->ineq[a];
42
61.6k
    bmap->ineq[a] = bmap->ineq[b];
43
61.6k
    bmap->ineq[b] = t;
44
61.6k
  }
45
61.6k
}
46
47
__isl_give isl_basic_map *isl_basic_map_normalize_constraints(
48
  __isl_take isl_basic_map *bmap)
49
2.96M
{
50
2.96M
  int i;
51
2.96M
  isl_int gcd;
52
2.96M
  unsigned total = isl_basic_map_total_dim(bmap);
53
2.96M
54
2.96M
  if (!bmap)
55
0
    return NULL;
56
2.96M
57
2.96M
  
isl_int_init2.96M
(gcd);
58
6.20M
  for (i = bmap->n_eq - 1; 
i >= 06.20M
;
--i3.24M
) {
59
3.24M
    isl_seq_gcd(bmap->eq[i]+1, total, &gcd);
60
3.24M
    if (
isl_int_is_zero3.24M
(gcd)) {
61
273k
      if (
!273k
isl_int_is_zero273k
(bmap->eq[i][0])) {
62
1.69k
        bmap = isl_basic_map_set_to_empty(bmap);
63
1.69k
        break;
64
1.69k
      }
65
271k
      isl_basic_map_drop_equality(bmap, i);
66
271k
      continue;
67
271k
    }
68
2.97M
    
if (2.97M
ISL_F_ISSET2.97M
(bmap, ISL_BASIC_MAP_RATIONAL))
69
176k
      isl_int_gcd(gcd, gcd, bmap->eq[i][0]);
70
2.97M
    if (isl_int_is_one(gcd))
71
2.94M
      continue;
72
32.1k
    
if (32.1k
!32.1k
isl_int_is_divisible_by32.1k
(bmap->eq[i][0], gcd)) {
73
1.59k
      bmap = isl_basic_map_set_to_empty(bmap);
74
1.59k
      break;
75
1.59k
    }
76
30.5k
    isl_seq_scale_down(bmap->eq[i], bmap->eq[i], gcd, 1+total);
77
30.5k
  }
78
2.96M
79
15.9M
  for (i = bmap->n_ineq - 1; 
i >= 015.9M
;
--i12.9M
) {
80
12.9M
    isl_seq_gcd(bmap->ineq[i]+1, total, &gcd);
81
12.9M
    if (
isl_int_is_zero12.9M
(gcd)) {
82
597k
      if (
isl_int_is_neg597k
(bmap->ineq[i][0])) {
83
35.0k
        bmap = isl_basic_map_set_to_empty(bmap);
84
35.0k
        break;
85
35.0k
      }
86
562k
      isl_basic_map_drop_inequality(bmap, i);
87
562k
      continue;
88
562k
    }
89
12.3M
    
if (12.3M
ISL_F_ISSET12.3M
(bmap, ISL_BASIC_MAP_RATIONAL))
90
326k
      isl_int_gcd(gcd, gcd, bmap->ineq[i][0]);
91
12.3M
    if (isl_int_is_one(gcd))
92
12.2M
      continue;
93
122k
    
isl_int_fdiv_q122k
(bmap->ineq[i][0], bmap->ineq[i][0], gcd);
94
122k
    isl_seq_scale_down(bmap->ineq[i]+1, bmap->ineq[i]+1, gcd, total);
95
122k
  }
96
2.96M
  isl_int_clear(gcd);
97
2.96M
98
2.96M
  return bmap;
99
2.96M
}
100
101
__isl_give isl_basic_set *isl_basic_set_normalize_constraints(
102
  __isl_take isl_basic_set *bset)
103
229k
{
104
229k
  isl_basic_map *bmap = bset_to_bmap(bset);
105
229k
  return bset_from_bmap(isl_basic_map_normalize_constraints(bmap));
106
229k
}
107
108
/* Reduce the coefficient of the variable at position "pos"
109
 * in integer division "div", such that it lies in the half-open
110
 * interval (1/2,1/2], extracting any excess value from this integer division.
111
 * "pos" is as determined by isl_basic_map_offset, i.e., pos == 0
112
 * corresponds to the constant term.
113
 *
114
 * That is, the integer division is of the form
115
 *
116
 *  floor((... + (c * d + r) * x_pos + ...)/d)
117
 *
118
 * with -d < 2 * r <= d.
119
 * Replace it by
120
 *
121
 *  floor((... + r * x_pos + ...)/d) + c * x_pos
122
 *
123
 * If 2 * ((c * d + r) % d) <= d, then c = floor((c * d + r)/d).
124
 * Otherwise, c = floor((c * d + r)/d) + 1.
125
 *
126
 * This is the same normalization that is performed by isl_aff_floor.
127
 */
128
static __isl_give isl_basic_map *reduce_coefficient_in_div(
129
  __isl_take isl_basic_map *bmap, int div, int pos)
130
9.55k
{
131
9.55k
  isl_int shift;
132
9.55k
  int add_one;
133
9.55k
134
9.55k
  isl_int_init(shift);
135
9.55k
  isl_int_fdiv_r(shift, bmap->div[div][1 + pos], bmap->div[div][0]);
136
9.55k
  isl_int_mul_ui(shift, shift, 2);
137
9.55k
  add_one = isl_int_gt(shift, bmap->div[div][0]);
138
9.55k
  isl_int_fdiv_q(shift, bmap->div[div][1 + pos], bmap->div[div][0]);
139
9.55k
  if (add_one)
140
2.22k
    isl_int_add_ui(shift, shift, 1);
141
9.55k
  isl_int_neg(shift, shift);
142
9.55k
  bmap = isl_basic_map_shift_div(bmap, div, pos, shift);
143
9.55k
  isl_int_clear(shift);
144
9.55k
145
9.55k
  return bmap;
146
9.55k
}
147
148
/* Does the coefficient of the variable at position "pos"
149
 * in integer division "div" need to be reduced?
150
 * That is, does it lie outside the half-open interval (1/2,1/2]?
151
 * The coefficient c/d lies outside this interval if abs(2 * c) >= d and
152
 * 2 * c != d.
153
 */
154
static isl_bool needs_reduction(__isl_keep isl_basic_map *bmap, int div,
155
  int pos)
156
874k
{
157
874k
  isl_bool r;
158
874k
159
874k
  if (isl_int_is_zero(bmap->div[div][1 + pos]))
160
693k
    return isl_bool_false;
161
180k
162
180k
  
isl_int_mul_ui180k
(bmap->div[div][1 + pos], bmap->div[div][1 + pos], 2);
163
180k
  r = isl_int_abs_ge(bmap->div[div][1 + pos], bmap->div[div][0]) &&
164
44.6k
      
!44.6k
isl_int_eq44.6k
(bmap->div[div][1 + pos], bmap->div[div][0]);
165
180k
  isl_int_divexact_ui(bmap->div[div][1 + pos],
166
874k
          bmap->div[div][1 + pos], 2);
167
874k
168
874k
  return r;
169
874k
}
170
171
/* Reduce the coefficients (including the constant term) of
172
 * integer division "div", if needed.
173
 * In particular, make sure all coefficients lie in
174
 * the half-open interval (1/2,1/2].
175
 */
176
static __isl_give isl_basic_map *reduce_div_coefficients_of_div(
177
  __isl_take isl_basic_map *bmap, int div)
178
106k
{
179
106k
  int i;
180
106k
  unsigned total = 1 + isl_basic_map_total_dim(bmap);
181
106k
182
981k
  for (i = 0; 
i < total981k
;
++i874k
) {
183
874k
    isl_bool reduce;
184
874k
185
874k
    reduce = needs_reduction(bmap, div, i);
186
874k
    if (reduce < 0)
187
0
      return isl_basic_map_free(bmap);
188
874k
    
if (874k
!reduce874k
)
189
865k
      continue;
190
9.55k
    bmap = reduce_coefficient_in_div(bmap, div, i);
191
9.55k
    if (!bmap)
192
0
      break;
193
874k
  }
194
106k
195
106k
  return bmap;
196
106k
}
197
198
/* Reduce the coefficients (including the constant term) of
199
 * the known integer divisions, if needed
200
 * In particular, make sure all coefficients lie in
201
 * the half-open interval (1/2,1/2].
202
 */
203
static __isl_give isl_basic_map *reduce_div_coefficients(
204
  __isl_take isl_basic_map *bmap)
205
2.70M
{
206
2.70M
  int i;
207
2.70M
208
2.70M
  if (!bmap)
209
0
    return NULL;
210
2.70M
  
if (2.70M
bmap->n_div == 02.70M
)
211
2.45M
    return bmap;
212
255k
213
728k
  
for (i = 0; 255k
i < bmap->n_div728k
;
++i473k
) {
214
473k
    if (isl_int_is_zero(bmap->div[i][0]))
215
366k
      continue;
216
106k
    bmap = reduce_div_coefficients_of_div(bmap, i);
217
106k
    if (!bmap)
218
0
      break;
219
473k
  }
220
2.70M
221
2.70M
  return bmap;
222
2.70M
}
223
224
/* Remove any common factor in numerator and denominator of the div expression,
225
 * not taking into account the constant term.
226
 * That is, if the div is of the form
227
 *
228
 *  floor((a + m f(x))/(m d))
229
 *
230
 * then replace it by
231
 *
232
 *  floor((floor(a/m) + f(x))/d)
233
 *
234
 * The difference {a/m}/d in the argument satisfies 0 <= {a/m}/d < 1/d
235
 * and can therefore not influence the result of the floor.
236
 */
237
static void normalize_div_expression(__isl_keep isl_basic_map *bmap, int div)
238
483k
{
239
483k
  unsigned total = isl_basic_map_total_dim(bmap);
240
483k
  isl_ctx *ctx = bmap->ctx;
241
483k
242
483k
  if (isl_int_is_zero(bmap->div[div][0]))
243
366k
    return;
244
117k
  isl_seq_gcd(bmap->div[div] + 2, total, &ctx->normalize_gcd);
245
117k
  isl_int_gcd(ctx->normalize_gcd, ctx->normalize_gcd, bmap->div[div][0]);
246
117k
  if (isl_int_is_one(ctx->normalize_gcd))
247
114k
    return;
248
2.58k
  
isl_int_fdiv_q2.58k
(bmap->div[div][1], bmap->div[div][1],
249
2.58k
      ctx->normalize_gcd);
250
2.58k
  isl_int_divexact(bmap->div[div][0], bmap->div[div][0],
251
483k
      ctx->normalize_gcd);
252
483k
  isl_seq_scale_down(bmap->div[div] + 2, bmap->div[div] + 2,
253
483k
      ctx->normalize_gcd, total);
254
483k
}
255
256
/* Remove any common factor in numerator and denominator of a div expression,
257
 * not taking into account the constant term.
258
 * That is, look for any div of the form
259
 *
260
 *  floor((a + m f(x))/(m d))
261
 *
262
 * and replace it by
263
 *
264
 *  floor((floor(a/m) + f(x))/d)
265
 *
266
 * The difference {a/m}/d in the argument satisfies 0 <= {a/m}/d < 1/d
267
 * and can therefore not influence the result of the floor.
268
 */
269
static __isl_give isl_basic_map *normalize_div_expressions(
270
  __isl_take isl_basic_map *bmap)
271
2.70M
{
272
2.70M
  int i;
273
2.70M
274
2.70M
  if (!bmap)
275
0
    return NULL;
276
2.70M
  
if (2.70M
bmap->n_div == 02.70M
)
277
2.45M
    return bmap;
278
255k
279
728k
  
for (i = 0; 255k
i < bmap->n_div728k
;
++i473k
)
280
473k
    normalize_div_expression(bmap, i);
281
2.70M
282
2.70M
  return bmap;
283
2.70M
}
284
285
/* Assumes divs have been ordered if keep_divs is set.
286
 */
287
static void eliminate_var_using_equality(struct isl_basic_map *bmap,
288
  unsigned pos, isl_int *eq, int keep_divs, int *progress)
289
4.34M
{
290
4.34M
  unsigned total;
291
4.34M
  unsigned space_total;
292
4.34M
  int k;
293
4.34M
  int last_div;
294
4.34M
295
4.34M
  total = isl_basic_map_total_dim(bmap);
296
4.34M
  space_total = isl_space_dim(bmap->dim, isl_dim_all);
297
4.34M
  last_div = isl_seq_last_non_zero(eq + 1 + space_total, bmap->n_div);
298
31.3M
  for (k = 0; 
k < bmap->n_eq31.3M
;
++k27.0M
) {
299
27.0M
    if (bmap->eq[k] == eq)
300
4.33M
      continue;
301
22.6M
    
if (22.6M
isl_int_is_zero22.6M
(bmap->eq[k][1+pos]))
302
21.3M
      continue;
303
1.33M
    
if (1.33M
progress1.33M
)
304
232k
      *progress = 1;
305
27.0M
    isl_seq_elim(bmap->eq[k], eq, 1+pos, 1+total, NULL);
306
27.0M
    isl_seq_normalize(bmap->ctx, bmap->eq[k], 1 + total);
307
27.0M
  }
308
4.34M
309
21.9M
  for (k = 0; 
k < bmap->n_ineq21.9M
;
++k17.5M
) {
310
17.5M
    if (isl_int_is_zero(bmap->ineq[k][1+pos]))
311
16.6M
      continue;
312
896k
    
if (896k
progress896k
)
313
349k
      *progress = 1;
314
896k
    isl_seq_elim(bmap->ineq[k], eq, 1+pos, 1+total, NULL);
315
896k
    isl_seq_normalize(bmap->ctx, bmap->ineq[k], 1 + total);
316
896k
    ISL_F_CLR(bmap, ISL_BASIC_MAP_NORMALIZED);
317
17.5M
  }
318
4.34M
319
5.29M
  for (k = 0; 
k < bmap->n_div5.29M
;
++k948k
) {
320
948k
    if (isl_int_is_zero(bmap->div[k][0]))
321
717k
      continue;
322
231k
    
if (231k
isl_int_is_zero231k
(bmap->div[k][1+1+pos]))
323
221k
      continue;
324
10.4k
    
if (10.4k
progress10.4k
)
325
5.15k
      *progress = 1;
326
10.4k
    /* We need to be careful about circular definitions,
327
10.4k
     * so for now we just remove the definition of div k
328
10.4k
     * if the equality contains any divs.
329
10.4k
     * If keep_divs is set, then the divs have been ordered
330
10.4k
     * and we can keep the definition as long as the result
331
10.4k
     * is still ordered.
332
10.4k
     */
333
10.4k
    if (
last_div == -1 || 10.4k
(keep_divs && 3.44k
last_div < k3.44k
)) {
334
10.4k
      isl_seq_elim(bmap->div[k]+1, eq,
335
10.4k
          1+pos, 1+total, &bmap->div[k][0]);
336
10.4k
      normalize_div_expression(bmap, k);
337
10.4k
    } else
338
0
      isl_seq_clr(bmap->div[k], 1 + total);
339
10.4k
    ISL_F_CLR(bmap, ISL_BASIC_MAP_NORMALIZED);
340
948k
  }
341
4.34M
}
342
343
/* Assumes divs have been ordered if keep_divs is set.
344
 */
345
static __isl_give isl_basic_map *eliminate_div(__isl_take isl_basic_map *bmap,
346
  isl_int *eq, unsigned div, int keep_divs)
347
289k
{
348
289k
  unsigned pos = isl_space_dim(bmap->dim, isl_dim_all) + div;
349
289k
350
289k
  eliminate_var_using_equality(bmap, pos, eq, keep_divs, NULL);
351
289k
352
289k
  bmap = isl_basic_map_drop_div(bmap, div);
353
289k
354
289k
  return bmap;
355
289k
}
356
357
/* Check if elimination of div "div" using equality "eq" would not
358
 * result in a div depending on a later div.
359
 */
360
static isl_bool ok_to_eliminate_div(__isl_keep isl_basic_map *bmap, isl_int *eq,
361
  unsigned div)
362
288k
{
363
288k
  int k;
364
288k
  int last_div;
365
288k
  unsigned space_total = isl_space_dim(bmap->dim, isl_dim_all);
366
288k
  unsigned pos = space_total + div;
367
288k
368
288k
  last_div = isl_seq_last_non_zero(eq + 1 + space_total, bmap->n_div);
369
288k
  if (
last_div < 0 || 288k
last_div <= div288k
)
370
282k
    return isl_bool_true;
371
6.82k
372
21.3k
  
for (k = 0; 6.82k
k <= last_div21.3k
;
++k14.5k
) {
373
20.9k
    if (isl_int_is_zero(bmap->div[k][0]))
374
8.87k
      continue;
375
12.0k
    
if (12.0k
!12.0k
isl_int_is_zero12.0k
(bmap->div[k][1 + 1 + pos]))
376
6.39k
      return isl_bool_false;
377
20.9k
  }
378
6.82k
379
426
  return isl_bool_true;
380
288k
}
381
382
/* Eliminate divs based on equalities
383
 */
384
static __isl_give isl_basic_map *eliminate_divs_eq(
385
  __isl_take isl_basic_map *bmap, int *progress)
386
2.84M
{
387
2.84M
  int d;
388
2.84M
  int i;
389
2.84M
  int modified = 0;
390
2.84M
  unsigned off;
391
2.84M
392
2.84M
  bmap = isl_basic_map_order_divs(bmap);
393
2.84M
394
2.84M
  if (!bmap)
395
0
    return NULL;
396
2.84M
397
2.84M
  off = 1 + isl_space_dim(bmap->dim, isl_dim_all);
398
2.84M
399
3.34M
  for (d = bmap->n_div - 1; 
d >= 03.34M
;
--d493k
) {
400
1.05M
    for (i = 0; 
i < bmap->n_eq1.05M
;
++i563k
) {
401
846k
      isl_bool ok;
402
846k
403
846k
      if (
!846k
isl_int_is_one846k
(bmap->eq[i][off + d]) &&
404
621k
          
!621k
isl_int_is_negone621k
(bmap->eq[i][off + d]))
405
557k
        continue;
406
288k
      ok = ok_to_eliminate_div(bmap, bmap->eq[i], d);
407
288k
      if (ok < 0)
408
0
        return isl_basic_map_free(bmap);
409
288k
      
if (288k
!ok288k
)
410
6.39k
        continue;
411
282k
      modified = 1;
412
282k
      *progress = 1;
413
282k
      bmap = eliminate_div(bmap, bmap->eq[i], d, 1);
414
282k
      if (isl_basic_map_drop_equality(bmap, i) < 0)
415
0
        return isl_basic_map_free(bmap);
416
282k
      break;
417
282k
    }
418
493k
  }
419
2.84M
  
if (2.84M
modified2.84M
)
420
141k
    return eliminate_divs_eq(bmap, progress);
421
2.70M
  return bmap;
422
2.70M
}
423
424
/* Eliminate divs based on inequalities
425
 */
426
static __isl_give isl_basic_map *eliminate_divs_ineq(
427
  __isl_take isl_basic_map *bmap, int *progress)
428
2.70M
{
429
2.70M
  int d;
430
2.70M
  int i;
431
2.70M
  unsigned off;
432
2.70M
  struct isl_ctx *ctx;
433
2.70M
434
2.70M
  if (!bmap)
435
0
    return NULL;
436
2.70M
437
2.70M
  ctx = bmap->ctx;
438
2.70M
  off = 1 + isl_space_dim(bmap->dim, isl_dim_all);
439
2.70M
440
2.89M
  for (d = bmap->n_div - 1; 
d >= 02.89M
;
--d183k
) {
441
302k
    for (i = 0; 
i < bmap->n_eq302k
;
++i118k
)
442
170k
      
if (170k
!170k
isl_int_is_zero170k
(bmap->eq[i][off + d]))
443
52.2k
        break;
444
183k
    if (i < bmap->n_eq)
445
52.2k
      continue;
446
547k
    
for (i = 0; 131k
i < bmap->n_ineq547k
;
++i416k
)
447
476k
      
if (476k
isl_int_abs_gt476k
(bmap->ineq[i][off + d], ctx->one))
448
59.7k
        break;
449
131k
    if (i < bmap->n_ineq)
450
59.7k
      continue;
451
71.4k
    *progress = 1;
452
71.4k
    bmap = isl_basic_map_eliminate_vars(bmap, (off-1)+d, 1);
453
71.4k
    if (
!bmap || 71.4k
ISL_F_ISSET71.4k
(bmap, ISL_BASIC_MAP_EMPTY))
454
103
      break;
455
71.3k
    bmap = isl_basic_map_drop_div(bmap, d);
456
71.3k
    if (!bmap)
457
0
      break;
458
183k
  }
459
2.70M
  return bmap;
460
2.70M
}
461
462
/* Does the equality constraint at position "eq" in "bmap" involve
463
 * any local variables in the range [first, first + n)
464
 * that are not marked as having an explicit representation?
465
 */
466
static isl_bool bmap_eq_involves_unknown_divs(__isl_keep isl_basic_map *bmap,
467
  int eq, unsigned first, unsigned n)
468
2.87k
{
469
2.87k
  unsigned o_div;
470
2.87k
  int i;
471
2.87k
472
2.87k
  if (!bmap)
473
0
    return isl_bool_error;
474
2.87k
475
2.87k
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
476
4.16k
  for (i = 0; 
i < n4.16k
;
++i1.29k
) {
477
1.90k
    isl_bool unknown;
478
1.90k
479
1.90k
    if (isl_int_is_zero(bmap->eq[eq][o_div + first + i]))
480
1.16k
      continue;
481
736
    unknown = isl_basic_map_div_is_marked_unknown(bmap, first + i);
482
736
    if (unknown < 0)
483
0
      return isl_bool_error;
484
736
    
if (736
unknown736
)
485
611
      return isl_bool_true;
486
1.90k
  }
487
2.87k
488
2.26k
  return isl_bool_false;
489
2.87k
}
490
491
/* The last local variable involved in the equality constraint
492
 * at position "eq" in "bmap" is the local variable at position "div".
493
 * It can therefore be used to extract an explicit representation
494
 * for that variable.
495
 * Do so unless the local variable already has an explicit representation or
496
 * the explicit representation would involve any other local variables
497
 * that in turn do not have an explicit representation.
498
 * An equality constraint involving local variables without an explicit
499
 * representation can be used in isl_basic_map_drop_redundant_divs
500
 * to separate out an independent local variable.  Introducing
501
 * an explicit representation here would block this transformation,
502
 * while the partial explicit representation in itself is not very useful.
503
 * Set *progress if anything is changed.
504
 *
505
 * The equality constraint is of the form
506
 *
507
 *  f(x) + n e >= 0
508
 *
509
 * with n a positive number.  The explicit representation derived from
510
 * this constraint is
511
 *
512
 *  floor((-f(x))/n)
513
 */
514
static __isl_give isl_basic_map *set_div_from_eq(__isl_take isl_basic_map *bmap,
515
  int div, int eq, int *progress)
516
61.5k
{
517
61.5k
  unsigned total, o_div;
518
61.5k
  isl_bool involves;
519
61.5k
520
61.5k
  if (!bmap)
521
0
    return NULL;
522
61.5k
523
61.5k
  
if (61.5k
!61.5k
isl_int_is_zero61.5k
(bmap->div[div][0]))
524
58.6k
    return bmap;
525
2.87k
526
2.87k
  involves = bmap_eq_involves_unknown_divs(bmap, eq, 0, div);
527
2.87k
  if (involves < 0)
528
0
    return isl_basic_map_free(bmap);
529
2.87k
  
if (2.87k
involves2.87k
)
530
611
    return bmap;
531
2.26k
532
2.26k
  total = isl_basic_map_dim(bmap, isl_dim_all);
533
2.26k
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
534
2.26k
  isl_seq_neg(bmap->div[div] + 1, bmap->eq[eq], 1 + total);
535
2.26k
  isl_int_set_si(bmap->div[div][1 + o_div + div], 0);
536
2.26k
  isl_int_set(bmap->div[div][0], bmap->eq[eq][o_div + div]);
537
2.26k
  if (progress)
538
1.81k
    *progress = 1;
539
2.26k
  ISL_F_CLR(bmap, ISL_BASIC_MAP_NORMALIZED);
540
61.5k
541
61.5k
  return bmap;
542
61.5k
}
543
544
__isl_give isl_basic_map *isl_basic_map_gauss(__isl_take isl_basic_map *bmap,
545
  int *progress)
546
4.40M
{
547
4.40M
  int k;
548
4.40M
  int done;
549
4.40M
  int last_var;
550
4.40M
  unsigned total_var;
551
4.40M
  unsigned total;
552
4.40M
553
4.40M
  bmap = isl_basic_map_order_divs(bmap);
554
4.40M
555
4.40M
  if (!bmap)
556
0
    return NULL;
557
4.40M
558
4.40M
  total = isl_basic_map_total_dim(bmap);
559
4.40M
  total_var = total - bmap->n_div;
560
4.40M
561
4.40M
  last_var = total - 1;
562
8.45M
  for (done = 0; 
done < bmap->n_eq8.45M
;
++done4.05M
) {
563
9.22M
    for (; 
last_var >= 09.22M
;
--last_var4.88M
) {
564
31.9M
      for (k = done; 
k < bmap->n_eq31.9M
;
++k23.0M
)
565
27.0M
        
if (27.0M
!27.0M
isl_int_is_zero27.0M
(bmap->eq[k][1+last_var]))
566
4.05M
          break;
567
8.93M
      if (k < bmap->n_eq)
568
4.05M
        break;
569
8.93M
    }
570
4.34M
    if (last_var < 0)
571
291k
      break;
572
4.05M
    
if (4.05M
k != done4.05M
)
573
865k
      swap_equality(bmap, k, done);
574
4.05M
    if (isl_int_is_neg(bmap->eq[done][1+last_var]))
575
439k
      isl_seq_neg(bmap->eq[done], bmap->eq[done], 1+total);
576
4.05M
577
4.05M
    eliminate_var_using_equality(bmap, last_var, bmap->eq[done], 1,
578
4.05M
            progress);
579
4.05M
580
4.05M
    if (last_var >= total_var)
581
61.5k
      bmap = set_div_from_eq(bmap, last_var - total_var,
582
61.5k
            done, progress);
583
4.05M
    if (!bmap)
584
0
      return NULL;
585
4.34M
  }
586
4.40M
  
if (4.40M
done == bmap->n_eq4.40M
)
587
4.11M
    return bmap;
588
949k
  
for (k = done; 291k
k < bmap->n_eq949k
;
++k657k
) {
589
725k
    if (isl_int_is_zero(bmap->eq[k][0]))
590
657k
      continue;
591
67.5k
    return isl_basic_map_set_to_empty(bmap);
592
67.5k
  }
593
223k
  isl_basic_map_free_equality(bmap, bmap->n_eq-done);
594
223k
  return bmap;
595
4.40M
}
596
597
__isl_give isl_basic_set *isl_basic_set_gauss(
598
  __isl_take isl_basic_set *bset, int *progress)
599
150k
{
600
150k
  return bset_from_bmap(isl_basic_map_gauss(bset_to_bmap(bset),
601
150k
              progress));
602
150k
}
603
604
605
static unsigned int round_up(unsigned int v)
606
1.92M
{
607
1.92M
  int old_v = v;
608
1.92M
609
5.84M
  while (
v5.84M
) {
610
3.92M
    old_v = v;
611
3.92M
    v ^= v & -v;
612
3.92M
  }
613
1.92M
  return old_v << 1;
614
1.92M
}
615
616
/* Hash table of inequalities in a basic map.
617
 * "index" is an array of addresses of inequalities in the basic map, some
618
 * of which are NULL.  The inequalities are hashed on the coefficients
619
 * except the constant term.
620
 * "size" is the number of elements in the array and is always a power of two
621
 * "bits" is the number of bits need to represent an index into the array.
622
 * "total" is the total dimension of the basic map.
623
 */
624
struct isl_constraint_index {
625
  unsigned int size;
626
  int bits;
627
  isl_int ***index;
628
  unsigned total;
629
};
630
631
/* Fill in the "ci" data structure for holding the inequalities of "bmap".
632
 */
633
static isl_stat create_constraint_index(struct isl_constraint_index *ci,
634
  __isl_keep isl_basic_map *bmap)
635
1.89M
{
636
1.89M
  isl_ctx *ctx;
637
1.89M
638
1.89M
  ci->index = NULL;
639
1.89M
  if (!bmap)
640
0
    return isl_stat_error;
641
1.89M
  ci->total = isl_basic_set_total_dim(bmap);
642
1.89M
  if (bmap->n_ineq == 0)
643
0
    return isl_stat_ok;
644
1.89M
  ci->size = round_up(4 * (bmap->n_ineq + 1) / 3 - 1);
645
1.89M
  ci->bits = ffs(ci->size) - 1;
646
1.89M
  ctx = isl_basic_map_get_ctx(bmap);
647
1.89M
  ci->index = isl_calloc_array(ctx, isl_int **, ci->size);
648
1.89M
  if (!ci->index)
649
0
    return isl_stat_error;
650
1.89M
651
1.89M
  return isl_stat_ok;
652
1.89M
}
653
654
/* Free the memory allocated by create_constraint_index.
655
 */
656
static void constraint_index_free(struct isl_constraint_index *ci)
657
1.89M
{
658
1.89M
  free(ci->index);
659
1.89M
}
660
661
/* Return the position in ci->index that contains the address of
662
 * an inequality that is equal to *ineq up to the constant term,
663
 * provided this address is not identical to "ineq".
664
 * If there is no such inequality, then return the position where
665
 * such an inequality should be inserted.
666
 */
667
static int hash_index_ineq(struct isl_constraint_index *ci, isl_int **ineq)
668
19.1M
{
669
19.1M
  int h;
670
19.1M
  uint32_t hash = isl_seq_get_hash_bits((*ineq) + 1, ci->total, ci->bits);
671
26.2M
  for (h = hash; 
ci->index[h]26.2M
;
h = (h+1) % ci->size7.05M
)
672
14.8M
    
if (14.8M
ineq != ci->index[h] &&
673
14.4M
        isl_seq_eq((*ineq) + 1, ci->index[h][0]+1, ci->total))
674
7.82M
      break;
675
19.1M
  return h;
676
19.1M
}
677
678
/* Return the position in ci->index that contains the address of
679
 * an inequality that is equal to the k'th inequality of "bmap"
680
 * up to the constant term, provided it does not point to the very
681
 * same inequality.
682
 * If there is no such inequality, then return the position where
683
 * such an inequality should be inserted.
684
 */
685
static int hash_index(struct isl_constraint_index *ci,
686
  __isl_keep isl_basic_map *bmap, int k)
687
19.1M
{
688
19.1M
  return hash_index_ineq(ci, &bmap->ineq[k]);
689
19.1M
}
690
691
static int set_hash_index(struct isl_constraint_index *ci,
692
  __isl_keep isl_basic_set *bset, int k)
693
48.8k
{
694
48.8k
  return hash_index(ci, bset, k);
695
48.8k
}
696
697
/* Fill in the "ci" data structure with the inequalities of "bset".
698
 */
699
static isl_stat setup_constraint_index(struct isl_constraint_index *ci,
700
  __isl_keep isl_basic_set *bset)
701
12.6k
{
702
12.6k
  int k, h;
703
12.6k
704
12.6k
  if (create_constraint_index(ci, bset) < 0)
705
0
    return isl_stat_error;
706
12.6k
707
61.4k
  
for (k = 0; 12.6k
k < bset->n_ineq61.4k
;
++k48.8k
) {
708
48.8k
    h = set_hash_index(ci, bset, k);
709
48.8k
    ci->index[h] = &bset->ineq[k];
710
48.8k
  }
711
12.6k
712
12.6k
  return isl_stat_ok;
713
12.6k
}
714
715
/* Is the inequality ineq (obviously) redundant with respect
716
 * to the constraints in "ci"?
717
 *
718
 * Look for an inequality in "ci" with the same coefficients and then
719
 * check if the contant term of "ineq" is greater than or equal
720
 * to the constant term of that inequality.  If so, "ineq" is clearly
721
 * redundant.
722
 *
723
 * Note that hash_index_ineq ignores a stored constraint if it has
724
 * the same address as the passed inequality.  It is ok to pass
725
 * the address of a local variable here since it will never be
726
 * the same as the address of a constraint in "ci".
727
 */
728
static isl_bool constraint_index_is_redundant(struct isl_constraint_index *ci,
729
  isl_int *ineq)
730
38.5k
{
731
38.5k
  int h;
732
38.5k
733
38.5k
  h = hash_index_ineq(ci, &ineq);
734
38.5k
  if (!ci->index[h])
735
13.0k
    return isl_bool_false;
736
25.5k
  
return 25.5k
isl_int_ge25.5k
(ineq[0], (*ci->index[h])[0]);
737
38.5k
}
738
739
/* If we can eliminate more than one div, then we need to make
740
 * sure we do it from last div to first div, in order not to
741
 * change the position of the other divs that still need to
742
 * be removed.
743
 */
744
static __isl_give isl_basic_map *remove_duplicate_divs(
745
  __isl_take isl_basic_map *bmap, int *progress)
746
2.70M
{
747
2.70M
  unsigned int size;
748
2.70M
  int *index;
749
2.70M
  int *elim_for;
750
2.70M
  int k, l, h;
751
2.70M
  int bits;
752
2.70M
  struct isl_blk eq;
753
2.70M
  unsigned total_var;
754
2.70M
  unsigned total;
755
2.70M
  struct isl_ctx *ctx;
756
2.70M
757
2.70M
  bmap = isl_basic_map_order_divs(bmap);
758
2.70M
  if (
!bmap || 2.70M
bmap->n_div <= 12.70M
)
759
2.59M
    return bmap;
760
109k
761
109k
  total_var = isl_space_dim(bmap->dim, isl_dim_all);
762
109k
  total = total_var + bmap->n_div;
763
109k
764
109k
  ctx = bmap->ctx;
765
363k
  for (k = bmap->n_div - 1; 
k >= 0363k
;
--k254k
)
766
283k
    
if (283k
!283k
isl_int_is_zero283k
(bmap->div[k][0]))
767
29.2k
      break;
768
109k
  if (k <= 0)
769
81.4k
    return bmap;
770
28.0k
771
28.0k
  size = round_up(4 * bmap->n_div / 3 - 1);
772
28.0k
  if (size == 0)
773
0
    return bmap;
774
28.0k
  
elim_for = 28.0k
isl_calloc_array28.0k
(ctx, int, bmap->n_div);
775
28.0k
  bits = ffs(size) - 1;
776
28.0k
  index = isl_calloc_array(ctx, int, size);
777
28.0k
  if (
!elim_for || 28.0k
!index28.0k
)
778
0
    goto out;
779
28.0k
  eq = isl_blk_alloc(ctx, 1+total);
780
28.0k
  if (isl_blk_is_error(eq))
781
0
    goto out;
782
28.0k
783
28.0k
  isl_seq_clr(eq.data, 1+total);
784
28.0k
  index[isl_seq_get_hash_bits(bmap->div[k], 2+total, bits)] = k + 1;
785
71.6k
  for (--k; 
k >= 071.6k
;
--k43.6k
) {
786
43.6k
    uint32_t hash;
787
43.6k
788
43.6k
    if (isl_int_is_zero(bmap->div[k][0]))
789
11.7k
      continue;
790
31.8k
791
31.8k
    hash = isl_seq_get_hash_bits(bmap->div[k], 2+total, bits);
792
40.7k
    for (h = hash; 
index[h]40.7k
;
h = (h+1) % size8.92k
)
793
15.9k
      
if (15.9k
isl_seq_eq(bmap->div[k],
794
15.9k
               bmap->div[index[h]-1], 2+total))
795
7.03k
        break;
796
31.8k
    if (
index[h]31.8k
) {
797
7.03k
      *progress = 1;
798
7.03k
      l = index[h] - 1;
799
7.03k
      elim_for[l] = k + 1;
800
7.03k
    }
801
43.6k
    index[h] = k+1;
802
43.6k
  }
803
102k
  for (l = bmap->n_div - 1; 
l >= 0102k
;
--l74.5k
) {
804
74.5k
    if (!elim_for[l])
805
67.4k
      continue;
806
7.03k
    k = elim_for[l] - 1;
807
7.03k
    isl_int_set_si(eq.data[1+total_var+k], -1);
808
7.03k
    isl_int_set_si(eq.data[1+total_var+l], 1);
809
7.03k
    bmap = eliminate_div(bmap, eq.data, l, 1);
810
7.03k
    if (!bmap)
811
0
      break;
812
7.03k
    
isl_int_set_si7.03k
(eq.data[1+total_var+k], 0);
813
7.03k
    isl_int_set_si(eq.data[1+total_var+l], 0);
814
74.5k
  }
815
28.0k
816
28.0k
  isl_blk_free(ctx, eq);
817
28.0k
out:
818
28.0k
  free(index);
819
28.0k
  free(elim_for);
820
28.0k
  return bmap;
821
2.70M
}
822
823
static int n_pure_div_eq(struct isl_basic_map *bmap)
824
27.4k
{
825
27.4k
  int i, j;
826
27.4k
  unsigned total;
827
27.4k
828
27.4k
  total = isl_space_dim(bmap->dim, isl_dim_all);
829
46.1k
  for (i = 0, j = bmap->n_div-1; 
i < bmap->n_eq46.1k
;
++i18.6k
) {
830
69.3k
    while (
j >= 0 && 69.3k
isl_int_is_zero51.0k
(bmap->eq[i][1 + total + j]))
831
29.7k
      --j;
832
39.6k
    if (j < 0)
833
18.2k
      break;
834
21.3k
    
if (21.3k
isl_seq_first_non_zero(bmap->eq[i] + 1 + total, j) != -121.3k
)
835
2.70k
      return 0;
836
39.6k
  }
837
24.7k
  return i;
838
27.4k
}
839
840
/* Normalize divs that appear in equalities.
841
 *
842
 * In particular, we assume that bmap contains some equalities
843
 * of the form
844
 *
845
 *  a x = m * e_i
846
 *
847
 * and we want to replace the set of e_i by a minimal set and
848
 * such that the new e_i have a canonical representation in terms
849
 * of the vector x.
850
 * If any of the equalities involves more than one divs, then
851
 * we currently simply bail out.
852
 *
853
 * Let us first additionally assume that all equalities involve
854
 * a div.  The equalities then express modulo constraints on the
855
 * remaining variables and we can use "parameter compression"
856
 * to find a minimal set of constraints.  The result is a transformation
857
 *
858
 *  x = T(x') = x_0 + G x'
859
 *
860
 * with G a lower-triangular matrix with all elements below the diagonal
861
 * non-negative and smaller than the diagonal element on the same row.
862
 * We first normalize x_0 by making the same property hold in the affine
863
 * T matrix.
864
 * The rows i of G with a 1 on the diagonal do not impose any modulo
865
 * constraint and simply express x_i = x'_i.
866
 * For each of the remaining rows i, we introduce a div and a corresponding
867
 * equality.  In particular
868
 *
869
 *  g_ii e_j = x_i - g_i(x')
870
 *
871
 * where each x'_k is replaced either by x_k (if g_kk = 1) or the
872
 * corresponding div (if g_kk != 1).
873
 *
874
 * If there are any equalities not involving any div, then we
875
 * first apply a variable compression on the variables x:
876
 *
877
 *  x = C x'' x'' = C_2 x
878
 *
879
 * and perform the above parameter compression on A C instead of on A.
880
 * The resulting compression is then of the form
881
 *
882
 *  x'' = T(x') = x_0 + G x'
883
 *
884
 * and in constructing the new divs and the corresponding equalities,
885
 * we have to replace each x'', i.e., the x'_k with (g_kk = 1),
886
 * by the corresponding row from C_2.
887
 */
888
static __isl_give isl_basic_map *normalize_divs(__isl_take isl_basic_map *bmap,
889
  int *progress)
890
2.70M
{
891
2.70M
  int i, j, k;
892
2.70M
  int total;
893
2.70M
  int div_eq;
894
2.70M
  struct isl_mat *B;
895
2.70M
  struct isl_vec *d;
896
2.70M
  struct isl_mat *T = NULL;
897
2.70M
  struct isl_mat *C = NULL;
898
2.70M
  struct isl_mat *C2 = NULL;
899
2.70M
  isl_int v;
900
2.70M
  int *pos = NULL;
901
2.70M
  int dropped, needed;
902
2.70M
903
2.70M
  if (!bmap)
904
0
    return NULL;
905
2.70M
906
2.70M
  
if (2.70M
bmap->n_div == 02.70M
)
907
2.62M
    return bmap;
908
78.6k
909
78.6k
  
if (78.6k
bmap->n_eq == 078.6k
)
910
27.7k
    return bmap;
911
50.8k
912
50.8k
  
if (50.8k
ISL_F_ISSET50.8k
(bmap, ISL_BASIC_MAP_NORMALIZED_DIVS))
913
23.3k
    return bmap;
914
27.4k
915
27.4k
  total = isl_space_dim(bmap->dim, isl_dim_all);
916
27.4k
  div_eq = n_pure_div_eq(bmap);
917
27.4k
  if (div_eq == 0)
918
12.6k
    return bmap;
919
14.8k
920
14.8k
  
if (14.8k
div_eq < bmap->n_eq14.8k
) {
921
8.33k
    B = isl_mat_sub_alloc6(bmap->ctx, bmap->eq, div_eq,
922
8.33k
          bmap->n_eq - div_eq, 0, 1 + total);
923
8.33k
    C = isl_mat_variable_compression(B, &C2);
924
8.33k
    if (
!C || 8.33k
!C28.33k
)
925
0
      goto error;
926
8.33k
    
if (8.33k
C->n_col == 08.33k
) {
927
12
      bmap = isl_basic_map_set_to_empty(bmap);
928
12
      isl_mat_free(C);
929
12
      isl_mat_free(C2);
930
12
      goto done;
931
12
    }
932
14.8k
  }
933
14.8k
934
14.8k
  d = isl_vec_alloc(bmap->ctx, div_eq);
935
14.8k
  if (!d)
936
0
    goto error;
937
33.3k
  
for (i = 0, j = bmap->n_div-1; 14.8k
i < div_eq33.3k
;
++i18.5k
) {
938
24.0k
    while (
j >= 0 && 24.0k
isl_int_is_zero24.0k
(bmap->eq[i][1 + total + j]))
939
5.54k
      --j;
940
18.5k
    isl_int_set(d->block.data[i], bmap->eq[i][1 + total + j]);
941
18.5k
  }
942
14.8k
  B = isl_mat_sub_alloc6(bmap->ctx, bmap->eq, 0, div_eq, 0, 1 + total);
943
14.8k
944
14.8k
  if (
C14.8k
) {
945
8.32k
    B = isl_mat_product(B, C);
946
8.32k
    C = NULL;
947
8.32k
  }
948
14.8k
949
14.8k
  T = isl_mat_parameter_compression(B, d);
950
14.8k
  if (!T)
951
0
    goto error;
952
14.8k
  
if (14.8k
T->n_col == 014.8k
) {
953
1.40k
    bmap = isl_basic_map_set_to_empty(bmap);
954
1.40k
    isl_mat_free(C2);
955
1.40k
    isl_mat_free(T);
956
1.40k
    goto done;
957
1.40k
  }
958
13.4k
  
isl_int_init13.4k
(v);
959
62.2k
  for (i = 0; 
i < T->n_row - 162.2k
;
++i48.8k
) {
960
48.8k
    isl_int_fdiv_q(v, T->row[1 + i][0], T->row[1 + i][1 + i]);
961
48.8k
    if (isl_int_is_zero(v))
962
43.7k
      continue;
963
5.07k
    isl_mat_col_submul(T, 0, v, 1 + i);
964
5.07k
  }
965
13.4k
  isl_int_clear(v);
966
13.4k
  pos = isl_alloc_array(bmap->ctx, int, T->n_row);
967
13.4k
  if (!pos)
968
0
    goto error;
969
13.4k
  /* We have to be careful because dropping equalities may reorder them */
970
13.4k
  dropped = 0;
971
34.5k
  for (j = bmap->n_div - 1; 
j >= 034.5k
;
--j21.1k
) {
972
29.4k
    for (i = 0; 
i < bmap->n_eq29.4k
;
++i8.31k
)
973
24.5k
      
if (24.5k
!24.5k
isl_int_is_zero24.5k
(bmap->eq[i][1 + total + j]))
974
16.2k
        break;
975
21.1k
    if (
i < bmap->n_eq21.1k
) {
976
16.2k
      bmap = isl_basic_map_drop_div(bmap, j);
977
16.2k
      isl_basic_map_drop_equality(bmap, i);
978
16.2k
      ++dropped;
979
16.2k
    }
980
21.1k
  }
981
13.4k
  pos[0] = 0;
982
13.4k
  needed = 0;
983
62.2k
  for (i = 1; 
i < T->n_row62.2k
;
++i48.8k
) {
984
48.8k
    if (isl_int_is_one(T->row[i][i]))
985
34.1k
      pos[i] = i;
986
48.8k
    else
987
14.6k
      needed++;
988
48.8k
  }
989
13.4k
  if (
needed > dropped13.4k
) {
990
13
    bmap = isl_basic_map_extend_space(bmap, isl_space_copy(bmap->dim),
991
13
        needed, needed, 0);
992
13
    if (!bmap)
993
0
      goto error;
994
13.4k
  }
995
62.2k
  
for (i = 1; 13.4k
i < T->n_row62.2k
;
++i48.8k
) {
996
48.8k
    if (isl_int_is_one(T->row[i][i]))
997
34.1k
      continue;
998
14.6k
    k = isl_basic_map_alloc_div(bmap);
999
14.6k
    pos[i] = 1 + total + k;
1000
14.6k
    isl_seq_clr(bmap->div[k] + 1, 1 + total + bmap->n_div);
1001
14.6k
    isl_int_set(bmap->div[k][0], T->row[i][i]);
1002
14.6k
    if (C2)
1003
7.50k
      isl_seq_cpy(bmap->div[k] + 1, C2->row[i], 1 + total);
1004
14.6k
    else
1005
7.13k
      isl_int_set_si(bmap->div[k][1 + i], 1);
1006
58.8k
    for (j = 0; 
j < i58.8k
;
++j44.1k
) {
1007
44.1k
      if (isl_int_is_zero(T->row[i][j]))
1008
33.0k
        continue;
1009
11.1k
      
if (11.1k
pos[j] < T->n_row && 11.1k
C211.0k
)
1010
5.36k
        isl_seq_submul(bmap->div[k] + 1, T->row[i][j],
1011
5.36k
            C2->row[pos[j]], 1 + total);
1012
11.1k
      else
1013
5.77k
        isl_int_neg(bmap->div[k][1 + pos[j]],
1014
44.1k
                T->row[i][j]);
1015
44.1k
    }
1016
14.6k
    j = isl_basic_map_alloc_equality(bmap);
1017
14.6k
    isl_seq_neg(bmap->eq[j], bmap->div[k]+1, 1+total+bmap->n_div);
1018
14.6k
    isl_int_set(bmap->eq[j][pos[i]], bmap->div[k][0]);
1019
48.8k
  }
1020
13.4k
  free(pos);
1021
13.4k
  isl_mat_free(C2);
1022
13.4k
  isl_mat_free(T);
1023
13.4k
1024
13.4k
  if (progress)
1025
13.4k
    *progress = 1;
1026
14.8k
done:
1027
14.8k
  ISL_F_SET(bmap, ISL_BASIC_MAP_NORMALIZED_DIVS);
1028
14.8k
1029
14.8k
  return bmap;
1030
0
error:
1031
0
  free(pos);
1032
0
  isl_mat_free(C);
1033
0
  isl_mat_free(C2);
1034
0
  isl_mat_free(T);
1035
0
  return bmap;
1036
2.70M
}
1037
1038
static __isl_give isl_basic_map *set_div_from_lower_bound(
1039
  __isl_take isl_basic_map *bmap, int div, int ineq)
1040
1.67k
{
1041
1.67k
  unsigned total = 1 + isl_space_dim(bmap->dim, isl_dim_all);
1042
1.67k
1043
1.67k
  isl_seq_neg(bmap->div[div] + 1, bmap->ineq[ineq], total + bmap->n_div);
1044
1.67k
  isl_int_set(bmap->div[div][0], bmap->ineq[ineq][total + div]);
1045
1.67k
  isl_int_add(bmap->div[div][1], bmap->div[div][1], bmap->div[div][0]);
1046
1.67k
  isl_int_sub_ui(bmap->div[div][1], bmap->div[div][1], 1);
1047
1.67k
  isl_int_set_si(bmap->div[div][1 + total + div], 0);
1048
1.67k
1049
1.67k
  return bmap;
1050
1.67k
}
1051
1052
/* Check whether it is ok to define a div based on an inequality.
1053
 * To avoid the introduction of circular definitions of divs, we
1054
 * do not allow such a definition if the resulting expression would refer to
1055
 * any other undefined divs or if any known div is defined in
1056
 * terms of the unknown div.
1057
 */
1058
static isl_bool ok_to_set_div_from_bound(__isl_keep isl_basic_map *bmap,
1059
  int div, int ineq)
1060
6.56k
{
1061
6.56k
  int j;
1062
6.56k
  unsigned total = 1 + isl_space_dim(bmap->dim, isl_dim_all);
1063
6.56k
1064
6.56k
  /* Not defined in terms of unknown divs */
1065
20.6k
  for (j = 0; 
j < bmap->n_div20.6k
;
++j14.0k
) {
1066
18.7k
    if (div == j)
1067
5.92k
      continue;
1068
12.8k
    
if (12.8k
isl_int_is_zero12.8k
(bmap->ineq[ineq][total + j]))
1069
8.00k
      continue;
1070
4.82k
    
if (4.82k
isl_int_is_zero4.82k
(bmap->div[j][0]))
1071
4.72k
      return isl_bool_false;
1072
18.7k
  }
1073
6.56k
1074
6.56k
  /* No other div defined in terms of this one => avoid loops */
1075
7.52k
  
for (j = 0; 1.84k
j < bmap->n_div7.52k
;
++j5.68k
) {
1076
5.84k
    if (div == j)
1077
1.84k
      continue;
1078
4.00k
    
if (4.00k
isl_int_is_zero4.00k
(bmap->div[j][0]))
1079
1.21k
      continue;
1080
2.78k
    
if (2.78k
!2.78k
isl_int_is_zero2.78k
(bmap->div[j][1 + total + div]))
1081
165
      return isl_bool_false;
1082
5.84k
  }
1083
1.84k
1084
1.67k
  return isl_bool_true;
1085
6.56k
}
1086
1087
/* Would an expression for div "div" based on inequality "ineq" of "bmap"
1088
 * be a better expression than the current one?
1089
 *
1090
 * If we do not have any expression yet, then any expression would be better.
1091
 * Otherwise we check if the last variable involved in the inequality
1092
 * (disregarding the div that it would define) is in an earlier position
1093
 * than the last variable involved in the current div expression.
1094
 */
1095
static isl_bool better_div_constraint(__isl_keep isl_basic_map *bmap,
1096
  int div, int ineq)
1097
91.3k
{
1098
91.3k
  unsigned total = 1 + isl_space_dim(bmap->dim, isl_dim_all);
1099
91.3k
  int last_div;
1100
91.3k
  int last_ineq;
1101
91.3k
1102
91.3k
  if (isl_int_is_zero(bmap->div[div][0]))
1103
6.35k
    return isl_bool_true;
1104
85.0k
1105
85.0k
  
if (85.0k
isl_seq_last_non_zero(bmap->ineq[ineq] + total + div + 1,
1106
85.0k
          bmap->n_div - (div + 1)) >= 0)
1107
559
    return isl_bool_false;
1108
84.4k
1109
84.4k
  last_ineq = isl_seq_last_non_zero(bmap->ineq[ineq], total + div);
1110
84.4k
  last_div = isl_seq_last_non_zero(bmap->div[div] + 1,
1111
84.4k
           total + bmap->n_div);
1112
84.4k
1113
84.4k
  return last_ineq < last_div;
1114
84.4k
}
1115
1116
/* Given two constraints "k" and "l" that are opposite to each other,
1117
 * except for the constant term, check if we can use them
1118
 * to obtain an expression for one of the hitherto unknown divs or
1119
 * a "better" expression for a div for which we already have an expression.
1120
 * "sum" is the sum of the constant terms of the constraints.
1121
 * If this sum is strictly smaller than the coefficient of one
1122
 * of the divs, then this pair can be used define the div.
1123
 * To avoid the introduction of circular definitions of divs, we
1124
 * do not use the pair if the resulting expression would refer to
1125
 * any other undefined divs or if any known div is defined in
1126
 * terms of the unknown div.
1127
 */
1128
static __isl_give isl_basic_map *check_for_div_constraints(
1129
  __isl_take isl_basic_map *bmap, int k, int l, isl_int sum,
1130
  int *progress)
1131
6.86M
{
1132
6.86M
  int i;
1133
6.86M
  unsigned total = 1 + isl_space_dim(bmap->dim, isl_dim_all);
1134
6.86M
1135
7.23M
  for (i = 0; 
i < bmap->n_div7.23M
;
++i372k
) {
1136
463k
    isl_bool set_div;
1137
463k
1138
463k
    if (isl_int_is_zero(bmap->ineq[k][total + i]))
1139
353k
      continue;
1140
110k
    
if (110k
isl_int_abs_ge110k
(sum, bmap->ineq[k][total + i]))
1141
18.8k
      continue;
1142
91.3k
    set_div = better_div_constraint(bmap, i, k);
1143
91.3k
    if (
set_div >= 0 && 91.3k
set_div91.3k
)
1144
6.55k
      set_div = ok_to_set_div_from_bound(bmap, i, k);
1145
91.3k
    if (set_div < 0)
1146
0
      return isl_basic_map_free(bmap);
1147
91.3k
    
if (91.3k
!set_div91.3k
)
1148
89.6k
      break;
1149
1.67k
    
if (1.67k
isl_int_is_pos1.67k
(bmap->ineq[k][total + i]))
1150
561
      bmap = set_div_from_lower_bound(bmap, i, k);
1151
1.67k
    else
1152
1.11k
      bmap = set_div_from_lower_bound(bmap, i, l);
1153
1.67k
    if (progress)
1154
1.67k
      *progress = 1;
1155
463k
    break;
1156
463k
  }
1157
6.86M
  return bmap;
1158
6.86M
}
1159
1160
__isl_give isl_basic_map *isl_basic_map_remove_duplicate_constraints(
1161
  __isl_take isl_basic_map *bmap, int *progress, int detect_divs)
1162
2.73M
{
1163
2.73M
  struct isl_constraint_index ci;
1164
2.73M
  int k, l, h;
1165
2.73M
  unsigned total = isl_basic_map_total_dim(bmap);
1166
2.73M
  isl_int sum;
1167
2.73M
1168
2.73M
  if (
!bmap || 2.73M
bmap->n_ineq <= 12.73M
)
1169
856k
    return bmap;
1170
1.88M
1171
1.88M
  
if (1.88M
create_constraint_index(&ci, bmap) < 01.88M
)
1172
0
    return bmap;
1173
1.88M
1174
1.88M
  h = isl_seq_get_hash_bits(bmap->ineq[0] + 1, total, ci.bits);
1175
1.88M
  ci.index[h] = &bmap->ineq[0];
1176
12.0M
  for (k = 1; 
k < bmap->n_ineq12.0M
;
++k10.1M
) {
1177
10.1M
    h = hash_index(&ci, bmap, k);
1178
10.1M
    if (
!ci.index[h]10.1M
) {
1179
9.38M
      ci.index[h] = &bmap->ineq[k];
1180
9.38M
      continue;
1181
9.38M
    }
1182
776k
    
if (776k
progress776k
)
1183
769k
      *progress = 1;
1184
776k
    l = ci.index[h] - &bmap->ineq[0];
1185
776k
    if (isl_int_lt(bmap->ineq[k][0], bmap->ineq[l][0]))
1186
61.6k
      swap_inequality(bmap, k, l);
1187
10.1M
    isl_basic_map_drop_inequality(bmap, k);
1188
10.1M
    --k;
1189
10.1M
  }
1190
1.88M
  isl_int_init(sum);
1191
10.6M
  for (k = 0; 
k < bmap->n_ineq-110.6M
;
++k8.81M
) {
1192
8.93M
    isl_seq_neg(bmap->ineq[k]+1, bmap->ineq[k]+1, total);
1193
8.93M
    h = hash_index(&ci, bmap, k);
1194
8.93M
    isl_seq_neg(bmap->ineq[k]+1, bmap->ineq[k]+1, total);
1195
8.93M
    if (!ci.index[h])
1196
1.91M
      continue;
1197
7.01M
    l = ci.index[h] - &bmap->ineq[0];
1198
7.01M
    isl_int_add(sum, bmap->ineq[k][0], bmap->ineq[l][0]);
1199
7.01M
    if (
isl_int_is_pos7.01M
(sum)) {
1200
6.89M
      if (detect_divs)
1201
6.86M
        bmap = check_for_div_constraints(bmap, k, l,
1202
6.86M
                 sum, progress);
1203
6.89M
      continue;
1204
6.89M
    }
1205
120k
    
if (120k
isl_int_is_zero120k
(sum)) {
1206
16.6k
      /* We need to break out of the loop after these
1207
16.6k
       * changes since the contents of the hash
1208
16.6k
       * will no longer be valid.
1209
16.6k
       * Plus, we probably we want to regauss first.
1210
16.6k
       */
1211
16.6k
      if (progress)
1212
16.4k
        *progress = 1;
1213
16.6k
      isl_basic_map_drop_inequality(bmap, l);
1214
16.6k
      isl_basic_map_inequality_to_equality(bmap, k);
1215
16.6k
    } else
1216
103k
      bmap = isl_basic_map_set_to_empty(bmap);
1217
8.93M
    break;
1218
8.93M
  }
1219
1.88M
  isl_int_clear(sum);
1220
2.73M
1221
2.73M
  constraint_index_free(&ci);
1222
2.73M
  return bmap;
1223
2.73M
}
1224
1225
/* Detect all pairs of inequalities that form an equality.
1226
 *
1227
 * isl_basic_map_remove_duplicate_constraints detects at most one such pair.
1228
 * Call it repeatedly while it is making progress.
1229
 */
1230
__isl_give isl_basic_map *isl_basic_map_detect_inequality_pairs(
1231
  __isl_take isl_basic_map *bmap, int *progress)
1232
353
{
1233
353
  int duplicate;
1234
353
1235
630
  do {
1236
630
    duplicate = 0;
1237
630
    bmap = isl_basic_map_remove_duplicate_constraints(bmap,
1238
630
                &duplicate, 0);
1239
630
    if (
progress && 630
duplicate201
)
1240
56
      *progress = 1;
1241
630
  } while (duplicate);
1242
353
1243
353
  return bmap;
1244
353
}
1245
1246
/* Eliminate knowns divs from constraints where they appear with
1247
 * a (positive or negative) unit coefficient.
1248
 *
1249
 * That is, replace
1250
 *
1251
 *  floor(e/m) + f >= 0
1252
 *
1253
 * by
1254
 *
1255
 *  e + m f >= 0
1256
 *
1257
 * and
1258
 *
1259
 *  -floor(e/m) + f >= 0
1260
 *
1261
 * by
1262
 *
1263
 *  -e + m f + m - 1 >= 0
1264
 *
1265
 * The first conversion is valid because floor(e/m) >= -f is equivalent
1266
 * to e/m >= -f because -f is an integral expression.
1267
 * The second conversion follows from the fact that
1268
 *
1269
 *  -floor(e/m) = ceil(-e/m) = floor((-e + m - 1)/m)
1270
 *
1271
 *
1272
 * Note that one of the div constraints may have been eliminated
1273
 * due to being redundant with respect to the constraint that is
1274
 * being modified by this function.  The modified constraint may
1275
 * no longer imply this div constraint, so we add it back to make
1276
 * sure we do not lose any information.
1277
 *
1278
 * We skip integral divs, i.e., those with denominator 1, as we would
1279
 * risk eliminating the div from the div constraints.  We do not need
1280
 * to handle those divs here anyway since the div constraints will turn
1281
 * out to form an equality and this equality can then be used to eliminate
1282
 * the div from all constraints.
1283
 */
1284
static __isl_give isl_basic_map *eliminate_unit_divs(
1285
  __isl_take isl_basic_map *bmap, int *progress)
1286
2.70M
{
1287
2.70M
  int i, j;
1288
2.70M
  isl_ctx *ctx;
1289
2.70M
  unsigned total;
1290
2.70M
1291
2.70M
  if (!bmap)
1292
0
    return NULL;
1293
2.70M
1294
2.70M
  ctx = isl_basic_map_get_ctx(bmap);
1295
2.70M
  total = 1 + isl_space_dim(bmap->dim, isl_dim_all);
1296
2.70M
1297
3.17M
  for (i = 0; 
i < bmap->n_div3.17M
;
++i465k
) {
1298
465k
    if (isl_int_is_zero(bmap->div[i][0]))
1299
366k
      continue;
1300
99.8k
    
if (99.8k
isl_int_is_one99.8k
(bmap->div[i][0]))
1301
452
      continue;
1302
964k
    
for (j = 0; 99.4k
j < bmap->n_ineq964k
;
++j865k
) {
1303
865k
      int s;
1304
865k
1305
865k
      if (
!865k
isl_int_is_one865k
(bmap->ineq[j][total + i]) &&
1306
861k
          
!861k
isl_int_is_negone861k
(bmap->ineq[j][total + i]))
1307
856k
        continue;
1308
8.51k
1309
8.51k
      *progress = 1;
1310
8.51k
1311
8.51k
      s = isl_int_sgn(bmap->ineq[j][total + i]);
1312
8.51k
      isl_int_set_si(bmap->ineq[j][total + i], 0);
1313
8.51k
      if (s < 0)
1314
4.04k
        isl_seq_combine(bmap->ineq[j],
1315
4.04k
          ctx->negone, bmap->div[i] + 1,
1316
4.04k
          bmap->div[i][0], bmap->ineq[j],
1317
4.04k
          total + bmap->n_div);
1318
8.51k
      else
1319
4.47k
        isl_seq_combine(bmap->ineq[j],
1320
4.47k
          ctx->one, bmap->div[i] + 1,
1321
4.47k
          bmap->div[i][0], bmap->ineq[j],
1322
4.47k
          total + bmap->n_div);
1323
8.51k
      if (
s < 08.51k
) {
1324
4.04k
        isl_int_add(bmap->ineq[j][0],
1325
4.04k
          bmap->ineq[j][0], bmap->div[i][0]);
1326
4.04k
        isl_int_sub_ui(bmap->ineq[j][0],
1327
4.04k
          bmap->ineq[j][0], 1);
1328
4.04k
      }
1329
8.51k
1330
8.51k
      bmap = isl_basic_map_extend_constraints(bmap, 0, 1);
1331
8.51k
      if (isl_basic_map_add_div_constraint(bmap, i, s) < 0)
1332
0
        return isl_basic_map_free(bmap);
1333
865k
    }
1334
465k
  }
1335
2.70M
1336
2.70M
  return bmap;
1337
2.70M
}
1338
1339
__isl_give isl_basic_map *isl_basic_map_simplify(__isl_take isl_basic_map *bmap)
1340
2.27M
{
1341
2.27M
  int progress = 1;
1342
2.27M
  if (!bmap)
1343
0
    return NULL;
1344
4.98M
  
while (2.27M
progress4.98M
) {
1345
2.78M
    isl_bool empty;
1346
2.78M
1347
2.78M
    progress = 0;
1348
2.78M
    empty = isl_basic_map_plain_is_empty(bmap);
1349
2.78M
    if (empty < 0)
1350
0
      return isl_basic_map_free(bmap);
1351
2.78M
    
if (2.78M
empty2.78M
)
1352
81.2k
      break;
1353
2.70M
    bmap = isl_basic_map_normalize_constraints(bmap);
1354
2.70M
    bmap = reduce_div_coefficients(bmap);
1355
2.70M
    bmap = normalize_div_expressions(bmap);
1356
2.70M
    bmap = remove_duplicate_divs(bmap, &progress);
1357
2.70M
    bmap = eliminate_unit_divs(bmap, &progress);
1358
2.70M
    bmap = eliminate_divs_eq(bmap, &progress);
1359
2.70M
    bmap = eliminate_divs_ineq(bmap, &progress);
1360
2.70M
    bmap = isl_basic_map_gauss(bmap, &progress);
1361
2.70M
    /* requires equalities in normal form */
1362
2.70M
    bmap = normalize_divs(bmap, &progress);
1363
2.70M
    bmap = isl_basic_map_remove_duplicate_constraints(bmap,
1364
2.70M
                &progress, 1);
1365
2.70M
    if (
bmap && 2.70M
progress2.70M
)
1366
2.70M
      ISL_F_CLR(bmap, ISL_BASIC_MAP_REDUCED_COEFFICIENTS);
1367
2.78M
  }
1368
2.27M
  return bmap;
1369
2.27M
}
1370
1371
struct isl_basic_set *isl_basic_set_simplify(struct isl_basic_set *bset)
1372
816k
{
1373
816k
  return bset_from_bmap(isl_basic_map_simplify(bset_to_bmap(bset)));
1374
816k
}
1375
1376
1377
isl_bool isl_basic_map_is_div_constraint(__isl_keep isl_basic_map *bmap,
1378
  isl_int *constraint, unsigned div)
1379
63.2k
{
1380
63.2k
  unsigned pos;
1381
63.2k
1382
63.2k
  if (!bmap)
1383
0
    return isl_bool_error;
1384
63.2k
1385
63.2k
  pos = 1 + isl_space_dim(bmap->dim, isl_dim_all) + div;
1386
63.2k
1387
63.2k
  if (
isl_int_eq63.2k
(constraint[pos], bmap->div[div][0])) {
1388
29.3k
    int neg;
1389
29.3k
    isl_int_sub(bmap->div[div][1],
1390
29.3k
        bmap->div[div][1], bmap->div[div][0]);
1391
29.3k
    isl_int_add_ui(bmap->div[div][1], bmap->div[div][1], 1);
1392
29.3k
    neg = isl_seq_is_neg(constraint, bmap->div[div]+1, pos);
1393
29.3k
    isl_int_sub_ui(bmap->div[div][1], bmap->div[div][1], 1);
1394
29.3k
    isl_int_add(bmap->div[div][1],
1395
29.3k
        bmap->div[div][1], bmap->div[div][0]);
1396
29.3k
    if (!neg)
1397
9.95k
      return isl_bool_false;
1398
19.4k
    
if (19.4k
isl_seq_first_non_zero(constraint+pos+1,
1399
19.4k
              bmap->n_div-div-1) != -1)
1400
0
      return isl_bool_false;
1401
33.9k
  } else 
if (33.9k
isl_int_abs_eq33.9k
(constraint[pos], bmap->div[div][0])) {
1402
29.2k
    if (!isl_seq_eq(constraint, bmap->div[div]+1, pos))
1403
16.0k
      return isl_bool_false;
1404
13.2k
    
if (13.2k
isl_seq_first_non_zero(constraint+pos+1,
1405
13.2k
              bmap->n_div-div-1) != -1)
1406
1
      return isl_bool_false;
1407
33.9k
  } else
1408
4.63k
    return isl_bool_false;
1409
32.6k
1410
32.6k
  return isl_bool_true;
1411
32.6k
}
1412
1413
isl_bool isl_basic_set_is_div_constraint(__isl_keep isl_basic_set *bset,
1414
  isl_int *constraint, unsigned div)
1415
0
{
1416
0
  return isl_basic_map_is_div_constraint(bset, constraint, div);
1417
0
}
1418
1419
1420
/* If the only constraints a div d=floor(f/m)
1421
 * appears in are its two defining constraints
1422
 *
1423
 *  f - m d >=0
1424
 *  -(f - (m - 1)) + m d >= 0
1425
 *
1426
 * then it can safely be removed.
1427
 */
1428
static isl_bool div_is_redundant(__isl_keep isl_basic_map *bmap, int div)
1429
104k
{
1430
104k
  int i;
1431
104k
  unsigned pos = 1 + isl_space_dim(bmap->dim, isl_dim_all) + div;
1432
104k
1433
144k
  for (i = 0; 
i < bmap->n_eq144k
;
++i39.8k
)
1434
84.8k
    
if (84.8k
!84.8k
isl_int_is_zero84.8k
(bmap->eq[i][pos]))
1435
44.9k
      return isl_bool_false;
1436
104k
1437
262k
  
for (i = 0; 59.2k
i < bmap->n_ineq262k
;
++i203k
) {
1438
233k
    isl_bool red;
1439
233k
1440
233k
    if (isl_int_is_zero(bmap->ineq[i][pos]))
1441
170k
      continue;
1442
62.9k
    red = isl_basic_map_is_div_constraint(bmap, bmap->ineq[i], div);
1443
62.9k
    if (
red < 0 || 62.9k
!red62.9k
)
1444
30.4k
      return red;
1445
233k
  }
1446
59.2k
1447
61.5k
  
for (i = 0; 28.8k
i < bmap->n_div61.5k
;
++i32.7k
) {
1448
32.7k
    if (isl_int_is_zero(bmap->div[i][0]))
1449
568
      continue;
1450
32.1k
    
if (32.1k
!32.1k
isl_int_is_zero32.1k
(bmap->div[i][1+pos]))
1451
1
      return isl_bool_false;
1452
32.7k
  }
1453
28.8k
1454
28.8k
  return isl_bool_true;
1455
104k
}
1456
1457
/*
1458
 * Remove divs that don't occur in any of the constraints or other divs.
1459
 * These can arise when dropping constraints from a basic map or
1460
 * when the divs of a basic map have been temporarily aligned
1461
 * with the divs of another basic map.
1462
 */
1463
static __isl_give isl_basic_map *remove_redundant_divs(
1464
  __isl_take isl_basic_map *bmap)
1465
4.91M
{
1466
4.91M
  int i;
1467
4.91M
1468
4.91M
  if (!bmap)
1469
0
    return NULL;
1470
4.91M
1471
5.01M
  
for (i = bmap->n_div-1; 4.91M
i >= 05.01M
;
--i104k
) {
1472
104k
    isl_bool redundant;
1473
104k
1474
104k
    redundant = div_is_redundant(bmap, i);
1475
104k
    if (redundant < 0)
1476
0
      return isl_basic_map_free(bmap);
1477
104k
    
if (104k
!redundant104k
)
1478
75.3k
      continue;
1479
28.8k
    bmap = isl_basic_map_drop_div(bmap, i);
1480
28.8k
  }
1481
4.91M
  return bmap;
1482
4.91M
}
1483
1484
/* Mark "bmap" as final, without checking for obviously redundant
1485
 * integer divisions.  This function should be used when "bmap"
1486
 * is known not to involve any such integer divisions.
1487
 */
1488
__isl_give isl_basic_map *isl_basic_map_mark_final(
1489
  __isl_take isl_basic_map *bmap)
1490
4.92M
{
1491
4.92M
  if (!bmap)
1492
0
    return NULL;
1493
4.92M
  
ISL_F_SET4.92M
(bmap, ISL_BASIC_SET_FINAL);
1494
4.92M
  return bmap;
1495
4.92M
}
1496
1497
/* Mark "bmap" as final, after removing obviously redundant integer divisions.
1498
 */
1499
__isl_give isl_basic_map *isl_basic_map_finalize(__isl_take isl_basic_map *bmap)
1500
4.91M
{
1501
4.91M
  bmap = remove_redundant_divs(bmap);
1502
4.91M
  bmap = isl_basic_map_mark_final(bmap);
1503
4.91M
  return bmap;
1504
4.91M
}
1505
1506
struct isl_basic_set *isl_basic_set_finalize(struct isl_basic_set *bset)
1507
962k
{
1508
962k
  return bset_from_bmap(isl_basic_map_finalize(bset_to_bmap(bset)));
1509
962k
}
1510
1511
/* Remove definition of any div that is defined in terms of the given variable.
1512
 * The div itself is not removed.  Functions such as
1513
 * eliminate_divs_ineq depend on the other divs remaining in place.
1514
 */
1515
static __isl_give isl_basic_map *remove_dependent_vars(
1516
  __isl_take isl_basic_map *bmap, int pos)
1517
101k
{
1518
101k
  int i;
1519
101k
1520
101k
  if (!bmap)
1521
0
    return NULL;
1522
101k
1523
206k
  
for (i = 0; 101k
i < bmap->n_div206k
;
++i105k
) {
1524
105k
    if (isl_int_is_zero(bmap->div[i][0]))
1525
102k
      continue;
1526
2.61k
    
if (2.61k
isl_int_is_zero2.61k
(bmap->div[i][1+1+pos]))
1527
2.54k
      continue;
1528
64
    bmap = isl_basic_map_mark_div_unknown(bmap, i);
1529
64
    if (!bmap)
1530
0
      return NULL;
1531
105k
  }
1532
101k
  return bmap;
1533
101k
}
1534
1535
/* Eliminate the specified variables from the constraints using
1536
 * Fourier-Motzkin.  The variables themselves are not removed.
1537
 */
1538
__isl_give isl_basic_map *isl_basic_map_eliminate_vars(
1539
  __isl_take isl_basic_map *bmap, unsigned pos, unsigned n)
1540
101k
{
1541
101k
  int d;
1542
101k
  int i, j, k;
1543
101k
  unsigned total;
1544
101k
  int need_gauss = 0;
1545
101k
1546
101k
  if (n == 0)
1547
2.09k
    return bmap;
1548
99.7k
  
if (99.7k
!bmap99.7k
)
1549
0
    return NULL;
1550
99.7k
  total = isl_basic_map_total_dim(bmap);
1551
99.7k
1552
99.7k
  bmap = isl_basic_map_cow(bmap);
1553
201k
  for (d = pos + n - 1; 
d >= 0 && 201k
d >= pos183k
;
--d101k
)
1554
101k
    bmap = remove_dependent_vars(bmap, d);
1555
99.7k
  if (!bmap)
1556
0
    return NULL;
1557
99.7k
1558
99.7k
  for (d = pos + n - 1;
1559
173k
       
d >= 0 && 173k
d >= total - bmap->n_div161k
&&
d >= pos91.5k
;
--d73.4k
)
1560
73.4k
    isl_seq_clr(bmap->div[d-(total-bmap->n_div)], 2+total);
1561
201k
  for (d = pos + n - 1; 
d >= 0 && 201k
d >= pos183k
;
--d101k
) {
1562
101k
    int n_lower, n_upper;
1563
101k
    if (!bmap)
1564
0
      return NULL;
1565
135k
    
for (i = 0; 101k
i < bmap->n_eq135k
;
++i34.2k
) {
1566
37.2k
      if (isl_int_is_zero(bmap->eq[i][1+d]))
1567
34.2k
        continue;
1568
2.96k
      eliminate_var_using_equality(bmap, d, bmap->eq[i], 0, NULL);
1569
2.96k
      isl_basic_map_drop_equality(bmap, i);
1570
2.96k
      need_gauss = 1;
1571
2.96k
      break;
1572
2.96k
    }
1573
101k
    if (i < bmap->n_eq)
1574
1.08k
      continue;
1575
100k
    n_lower = 0;
1576
100k
    n_upper = 0;
1577
325k
    for (i = 0; 
i < bmap->n_ineq325k
;
++i224k
) {
1578
224k
      if (isl_int_is_pos(bmap->ineq[i][1+d]))
1579
31.8k
        n_lower++;
1580
192k
      else 
if (192k
isl_int_is_neg192k
(bmap->ineq[i][1+d]))
1581
30.2k
        n_upper++;
1582
224k
    }
1583
100k
    bmap = isl_basic_map_extend_constraints(bmap,
1584
100k
        0, n_lower * n_upper);
1585
100k
    if (!bmap)
1586
0
      goto error;
1587
276k
    
for (i = bmap->n_ineq - 1; 100k
i >= 0276k
;
--i175k
) {
1588
175k
      int last;
1589
175k
      if (isl_int_is_zero(bmap->ineq[i][1+d]))
1590
113k
        continue;
1591
62.1k
      last = -1;
1592
229k
      for (j = 0; 
j < i229k
;
++j166k
) {
1593
166k
        if (isl_int_is_zero(bmap->ineq[j][1+d]))
1594
115k
          continue;
1595
51.9k
        last = j;
1596
51.9k
        if (
isl_int_sgn51.9k
(bmap->ineq[i][1+d]) ==
1597
51.9k
            isl_int_sgn(bmap->ineq[j][1+d]))
1598
11.9k
          continue;
1599
39.9k
        k = isl_basic_map_alloc_inequality(bmap);
1600
39.9k
        if (k < 0)
1601
0
          goto error;
1602
39.9k
        isl_seq_cpy(bmap->ineq[k], bmap->ineq[i],
1603
39.9k
            1+total);
1604
39.9k
        isl_seq_elim(bmap->ineq[k], bmap->ineq[j],
1605
39.9k
            1+d, 1+total, NULL);
1606
39.9k
      }
1607
62.1k
      isl_basic_map_drop_inequality(bmap, i);
1608
62.1k
      i = last + 1;
1609
62.1k
    }
1610
100k
    
if (100k
n_lower > 0 && 100k
n_upper > 027.0k
) {
1611
25.6k
      bmap = isl_basic_map_normalize_constraints(bmap);
1612
25.6k
      bmap = isl_basic_map_remove_duplicate_constraints(bmap,
1613
25.6k
                    NULL, 0);
1614
25.6k
      bmap = isl_basic_map_gauss(bmap, NULL);
1615
25.6k
      bmap = isl_basic_map_remove_redundancies(bmap);
1616
25.6k
      need_gauss = 0;
1617
25.6k
      if (!bmap)
1618
0
        goto error;
1619
25.6k
      
if (25.6k
ISL_F_ISSET25.6k
(bmap, ISL_BASIC_MAP_EMPTY))
1620
132
        break;
1621
25.6k
    }
1622
101k
  }
1623
99.7k
  
ISL_F_CLR99.7k
(bmap, ISL_BASIC_MAP_NORMALIZED);
1624
99.7k
  if (need_gauss)
1625
1.49k
    bmap = isl_basic_map_gauss(bmap, NULL);
1626
99.7k
  return bmap;
1627
0
error:
1628
0
  isl_basic_map_free(bmap);
1629
0
  return NULL;
1630
101k
}
1631
1632
struct isl_basic_set *isl_basic_set_eliminate_vars(
1633
  struct isl_basic_set *bset, unsigned pos, unsigned n)
1634
25.6k
{
1635
25.6k
  return bset_from_bmap(isl_basic_map_eliminate_vars(bset_to_bmap(bset),
1636
25.6k
                pos, n));
1637
25.6k
}
1638
1639
/* Eliminate the specified n dimensions starting at first from the
1640
 * constraints, without removing the dimensions from the space.
1641
 * If the set is rational, the dimensions are eliminated using Fourier-Motzkin.
1642
 * Otherwise, they are projected out and the original space is restored.
1643
 */
1644
__isl_give isl_basic_map *isl_basic_map_eliminate(
1645
  __isl_take isl_basic_map *bmap,
1646
  enum isl_dim_type type, unsigned first, unsigned n)
1647
16.8k
{
1648
16.8k
  isl_space *space;
1649
16.8k
1650
16.8k
  if (!bmap)
1651
0
    return NULL;
1652
16.8k
  
if (16.8k
n == 016.8k
)
1653
0
    return bmap;
1654
16.8k
1655
16.8k
  
if (16.8k
first + n > isl_basic_map_dim(bmap, type) || 16.8k
first + n < first16.8k
)
1656
0
    isl_die(bmap->ctx, isl_error_invalid,
1657
16.8k
      "index out of bounds", goto error);
1658
16.8k
1659
16.8k
  
if (16.8k
ISL_F_ISSET16.8k
(bmap, ISL_BASIC_MAP_RATIONAL)) {
1660
0
    first += isl_basic_map_offset(bmap, type) - 1;
1661
0
    bmap = isl_basic_map_eliminate_vars(bmap, first, n);
1662
0
    return isl_basic_map_finalize(bmap);
1663
0
  }
1664
16.8k
1665
16.8k
  space = isl_basic_map_get_space(bmap);
1666
16.8k
  bmap = isl_basic_map_project_out(bmap, type, first, n);
1667
16.8k
  bmap = isl_basic_map_insert_dims(bmap, type, first, n);
1668
16.8k
  bmap = isl_basic_map_reset_space(bmap, space);
1669
16.8k
  return bmap;
1670
0
error:
1671
0
  isl_basic_map_free(bmap);
1672
0
  return NULL;
1673
16.8k
}
1674
1675
__isl_give isl_basic_set *isl_basic_set_eliminate(
1676
  __isl_take isl_basic_set *bset,
1677
  enum isl_dim_type type, unsigned first, unsigned n)
1678
5.61k
{
1679
5.61k
  return isl_basic_map_eliminate(bset, type, first, n);
1680
5.61k
}
1681
1682
/* Remove all constraints from "bmap" that reference any unknown local
1683
 * variables (directly or indirectly).
1684
 *
1685
 * Dropping all constraints on a local variable will make it redundant,
1686
 * so it will get removed implicitly by
1687
 * isl_basic_map_drop_constraints_involving_dims.  Some other local
1688
 * variables may also end up becoming redundant if they only appear
1689
 * in constraints together with the unknown local variable.
1690
 * Therefore, start over after calling
1691
 * isl_basic_map_drop_constraints_involving_dims.
1692
 */
1693
__isl_give isl_basic_map *isl_basic_map_drop_constraint_involving_unknown_divs(
1694
  __isl_take isl_basic_map *bmap)
1695
7.68k
{
1696
7.68k
  isl_bool known;
1697
7.68k
  int i, n_div, o_div;
1698
7.68k
1699
7.68k
  known = isl_basic_map_divs_known(bmap);
1700
7.68k
  if (known < 0)
1701
0
    return isl_basic_map_free(bmap);
1702
7.68k
  
if (7.68k
known7.68k
)
1703
7.68k
    return bmap;
1704
0
1705
0
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
1706
0
  o_div = isl_basic_map_offset(bmap, isl_dim_div) - 1;
1707
0
1708
0
  for (i = 0; 
i < n_div0
;
++i0
) {
1709
0
    known = isl_basic_map_div_is_known(bmap, i);
1710
0
    if (known < 0)
1711
0
      return isl_basic_map_free(bmap);
1712
0
    
if (0
known0
)
1713
0
      continue;
1714
0
    bmap = remove_dependent_vars(bmap, o_div + i);
1715
0
    bmap = isl_basic_map_drop_constraints_involving_dims(bmap,
1716
0
                  isl_dim_div, i, 1);
1717
0
    if (!bmap)
1718
0
      return NULL;
1719
0
    n_div = isl_basic_map_dim(bmap, isl_dim_div);
1720
0
    i = -1;
1721
0
  }
1722
0
1723
0
  return bmap;
1724
7.68k
}
1725
1726
/* Remove all constraints from "map" that reference any unknown local
1727
 * variables (directly or indirectly).
1728
 *
1729
 * Since constraints may get dropped from the basic maps,
1730
 * they may no longer be disjoint from each other.
1731
 */
1732
__isl_give isl_map *isl_map_drop_constraint_involving_unknown_divs(
1733
  __isl_take isl_map *map)
1734
496
{
1735
496
  int i;
1736
496
  isl_bool known;
1737
496
1738
496
  known = isl_map_divs_known(map);
1739
496
  if (known < 0)
1740
0
    return isl_map_free(map);
1741
496
  
if (496
known496
)
1742
496
    return map;
1743
0
1744
0
  map = isl_map_cow(map);
1745
0
  if (!map)
1746
0
    return NULL;
1747
0
1748
0
  
for (i = 0; 0
i < map->n0
;
++i0
) {
1749
0
    map->p[i] =
1750
0
        isl_basic_map_drop_constraint_involving_unknown_divs(
1751
0
                    map->p[i]);
1752
0
    if (!map->p[i])
1753
0
      return isl_map_free(map);
1754
0
  }
1755
0
1756
0
  
if (0
map->n > 10
)
1757
0
    ISL_F_CLR(map, ISL_MAP_DISJOINT);
1758
0
1759
0
  return map;
1760
496
}
1761
1762
/* Don't assume equalities are in order, because align_divs
1763
 * may have changed the order of the divs.
1764
 */
1765
static void compute_elimination_index(__isl_keep isl_basic_map *bmap, int *elim)
1766
36.4k
{
1767
36.4k
  int d, i;
1768
36.4k
  unsigned total;
1769
36.4k
1770
36.4k
  total = isl_space_dim(bmap->dim, isl_dim_all);
1771
287k
  for (d = 0; 
d < total287k
;
++d250k
)
1772
250k
    elim[d] = -1;
1773
90.3k
  for (i = 0; 
i < bmap->n_eq90.3k
;
++i53.8k
) {
1774
181k
    for (d = total - 1; 
d >= 0181k
;
--d127k
) {
1775
181k
      if (isl_int_is_zero(bmap->eq[i][1+d]))
1776
127k
        continue;
1777
53.8k
      elim[d] = i;
1778
53.8k
      break;
1779
53.8k
    }
1780
53.8k
  }
1781
36.4k
}
1782
1783
static void set_compute_elimination_index(__isl_keep isl_basic_set *bset,
1784
  int *elim)
1785
433
{
1786
433
  compute_elimination_index(bset_to_bmap(bset), elim);
1787
433
}
1788
1789
static int reduced_using_equalities(isl_int *dst, isl_int *src,
1790
  __isl_keep isl_basic_map *bmap, int *elim)
1791
240k
{
1792
240k
  int d;
1793
240k
  int copied = 0;
1794
240k
  unsigned total;
1795
240k
1796
240k
  total = isl_space_dim(bmap->dim, isl_dim_all);
1797
2.20M
  for (d = total - 1; 
d >= 02.20M
;
--d1.96M
) {
1798
1.96M
    if (isl_int_is_zero(src[1+d]))
1799
1.67M
      continue;
1800
284k
    
if (284k
elim[d] == -1284k
)
1801
247k
      continue;
1802
36.0k
    
if (36.0k
!copied36.0k
) {
1803
34.0k
      isl_seq_cpy(dst, src, 1 + total);
1804
34.0k
      copied = 1;
1805
34.0k
    }
1806
1.96M
    isl_seq_elim(dst, bmap->eq[elim[d]], 1 + d, 1 + total, NULL);
1807
1.96M
  }
1808
240k
  return copied;
1809
240k
}
1810
1811
static int set_reduced_using_equalities(isl_int *dst, isl_int *src,
1812
  __isl_keep isl_basic_set *bset, int *elim)
1813
885
{
1814
885
  return reduced_using_equalities(dst, src,
1815
885
          bset_to_bmap(bset), elim);
1816
885
}
1817
1818
static __isl_give isl_basic_set *isl_basic_set_reduce_using_equalities(
1819
  __isl_take isl_basic_set *bset, __isl_take isl_basic_set *context)
1820
9.34k
{
1821
9.34k
  int i;
1822
9.34k
  int *elim;
1823
9.34k
1824
9.34k
  if (
!bset || 9.34k
!context9.34k
)
1825
0
    goto error;
1826
9.34k
1827
9.34k
  
if (9.34k
context->n_eq == 09.34k
) {
1828
8.90k
    isl_basic_set_free(context);
1829
8.90k
    return bset;
1830
8.90k
  }
1831
433
1832
433
  bset = isl_basic_set_cow(bset);
1833
433
  if (!bset)
1834
0
    goto error;
1835
433
1836
433
  
elim = 433
isl_alloc_array433
(bset->ctx, int, isl_basic_set_n_dim(bset));
1837
433
  if (!elim)
1838
0
    goto error;
1839
433
  set_compute_elimination_index(context, elim);
1840
1.15k
  for (i = 0; 
i < bset->n_eq1.15k
;
++i723
)
1841
723
    set_reduced_using_equalities(bset->eq[i], bset->eq[i],
1842
723
              context, elim);
1843
595
  for (i = 0; 
i < bset->n_ineq595
;
++i162
)
1844
162
    set_reduced_using_equalities(bset->ineq[i], bset->ineq[i],
1845
162
              context, elim);
1846
433
  isl_basic_set_free(context);
1847
433
  free(elim);
1848
433
  bset = isl_basic_set_simplify(bset);
1849
433
  bset = isl_basic_set_finalize(bset);
1850
433
  return bset;
1851
0
error:
1852
0
  isl_basic_set_free(bset);
1853
0
  isl_basic_set_free(context);
1854
0
  return NULL;
1855
9.34k
}
1856
1857
/* For each inequality in "ineq" that is a shifted (more relaxed)
1858
 * copy of an inequality in "context", mark the corresponding entry
1859
 * in "row" with -1.
1860
 * If an inequality only has a non-negative constant term, then
1861
 * mark it as well.
1862
 */
1863
static isl_stat mark_shifted_constraints(__isl_keep isl_mat *ineq,
1864
  __isl_keep isl_basic_set *context, int *row)
1865
12.5k
{
1866
12.5k
  struct isl_constraint_index ci;
1867
12.5k
  int n_ineq;
1868
12.5k
  unsigned total;
1869
12.5k
  int k;
1870
12.5k
1871
12.5k
  if (
!ineq || 12.5k
!context12.5k
)
1872
0
    return isl_stat_error;
1873
12.5k
  
if (12.5k
context->n_ineq == 012.5k
)
1874
0
    return isl_stat_ok;
1875
12.5k
  
if (12.5k
setup_constraint_index(&ci, context) < 012.5k
)
1876
0
    return isl_stat_error;
1877
12.5k
1878
12.5k
  n_ineq = isl_mat_rows(ineq);
1879
12.5k
  total = isl_mat_cols(ineq) - 1;
1880
51.0k
  for (k = 0; 
k < n_ineq51.0k
;
++k38.4k
) {
1881
38.4k
    int l;
1882
38.4k
    isl_bool redundant;
1883
38.4k
1884
38.4k
    l = isl_seq_first_non_zero(ineq->row[k] + 1, total);
1885
38.4k
    if (
l < 0 && 38.4k
isl_int_is_nonneg4
(ineq->row[k][0])) {
1886
0
      row[k] = -1;
1887
0
      continue;
1888
0
    }
1889
38.4k
    redundant = constraint_index_is_redundant(&ci, ineq->row[k]);
1890
38.4k
    if (redundant < 0)
1891
0
      goto error;
1892
38.4k
    
if (38.4k
!redundant38.4k
)
1893
20.9k
      continue;
1894
17.4k
    row[k] = -1;
1895
17.4k
  }
1896
12.5k
  constraint_index_free(&ci);
1897
12.5k
  return isl_stat_ok;
1898
0
error:
1899
0
  constraint_index_free(&ci);
1900
0
  return isl_stat_error;
1901
12.5k
}
1902
1903
static __isl_give isl_basic_set *remove_shifted_constraints(
1904
  __isl_take isl_basic_set *bset, __isl_keep isl_basic_set *context)
1905
25
{
1906
25
  struct isl_constraint_index ci;
1907
25
  int k;
1908
25
1909
25
  if (
!bset || 25
!context25
)
1910
0
    return bset;
1911
25
1912
25
  
if (25
context->n_ineq == 025
)
1913
0
    return bset;
1914
25
  
if (25
setup_constraint_index(&ci, context) < 025
)
1915
0
    return bset;
1916
25
1917
161
  
for (k = 0; 25
k < bset->n_ineq161
;
++k136
) {
1918
136
    isl_bool redundant;
1919
136
1920
136
    redundant = constraint_index_is_redundant(&ci, bset->ineq[k]);
1921
136
    if (redundant < 0)
1922
0
      goto error;
1923
136
    
if (136
!redundant136
)
1924
44
      continue;
1925
92
    bset = isl_basic_set_cow(bset);
1926
92
    if (!bset)
1927
0
      goto error;
1928
92
    isl_basic_set_drop_inequality(bset, k);
1929
92
    --k;
1930
92
  }
1931
25
  constraint_index_free(&ci);
1932
25
  return bset;
1933
0
error:
1934
0
  constraint_index_free(&ci);
1935
0
  return bset;
1936
25
}
1937
1938
/* Remove constraints from "bmap" that are identical to constraints
1939
 * in "context" or that are more relaxed (greater constant term).
1940
 *
1941
 * We perform the test for shifted copies on the pure constraints
1942
 * in remove_shifted_constraints.
1943
 */
1944
static __isl_give isl_basic_map *isl_basic_map_remove_shifted_constraints(
1945
  __isl_take isl_basic_map *bmap, __isl_take isl_basic_map *context)
1946
501
{
1947
501
  isl_basic_set *bset, *bset_context;
1948
501
1949
501
  if (
!bmap || 501
!context501
)
1950
0
    goto error;
1951
501
1952
501
  
if (501
bmap->n_ineq == 0 || 501
context->n_ineq == 025
) {
1953
476
    isl_basic_map_free(context);
1954
476
    return bmap;
1955
476
  }
1956
25
1957
25
  context = isl_basic_map_align_divs(context, bmap);
1958
25
  bmap = isl_basic_map_align_divs(bmap, context);
1959
25
1960
25
  bset = isl_basic_map_underlying_set(isl_basic_map_copy(bmap));
1961
25
  bset_context = isl_basic_map_underlying_set(context);
1962
25
  bset = remove_shifted_constraints(bset, bset_context);
1963
25
  isl_basic_set_free(bset_context);
1964
25
1965
25
  bmap = isl_basic_map_overlying_set(bset, bmap);
1966
25
1967
25
  return bmap;
1968
0
error:
1969
0
  isl_basic_map_free(bmap);
1970
0
  isl_basic_map_free(context);
1971
0
  return NULL;
1972
501
}
1973
1974
/* Does the (linear part of a) constraint "c" involve any of the "len"
1975
 * "relevant" dimensions?
1976
 */
1977
static int is_related(isl_int *c, int len, int *relevant)
1978
261k
{
1979
261k
  int i;
1980
261k
1981
2.91M
  for (i = 0; 
i < len2.91M
;
++i2.65M
) {
1982
2.79M
    if (!relevant[i])
1983
2.03M
      continue;
1984
764k
    
if (764k
!764k
isl_int_is_zero764k
(c[i]))
1985
139k
      return 1;
1986
2.79M
  }
1987
261k
1988
122k
  return 0;
1989
261k
}
1990
1991
/* Drop constraints from "bmap" that do not involve any of
1992
 * the dimensions marked "relevant".
1993
 */
1994
static __isl_give isl_basic_map *drop_unrelated_constraints(
1995
  __isl_take isl_basic_map *bmap, int *relevant)
1996
67.6k
{
1997
67.6k
  int i, dim;
1998
67.6k
1999
67.6k
  dim = isl_basic_map_dim(bmap, isl_dim_all);
2000
342k
  for (i = 0; 
i < dim342k
;
++i275k
)
2001
314k
    
if (314k
!relevant[i]314k
)
2002
39.5k
      break;
2003
67.6k
  if (i >= dim)
2004
28.0k
    return bmap;
2005
39.5k
2006
76.2k
  
for (i = bmap->n_eq - 1; 39.5k
i >= 076.2k
;
--i36.6k
)
2007
36.6k
    
if (36.6k
!is_related(bmap->eq[i] + 1, dim, relevant)36.6k
) {
2008
14.3k
      bmap = isl_basic_map_cow(bmap);
2009
14.3k
      if (isl_basic_map_drop_equality(bmap, i) < 0)
2010
0
        return isl_basic_map_free(bmap);
2011
36.6k
    }
2012
39.5k
2013
264k
  
for (i = bmap->n_ineq - 1; 39.5k
i >= 0264k
;
--i224k
)
2014
224k
    
if (224k
!is_related(bmap->ineq[i] + 1, dim, relevant)224k
) {
2015
107k
      bmap = isl_basic_map_cow(bmap);
2016
107k
      if (isl_basic_map_drop_inequality(bmap, i) < 0)
2017
0
        return isl_basic_map_free(bmap);
2018
224k
    }
2019
39.5k
2020
39.5k
  return bmap;
2021
67.6k
}
2022
2023
/* Update the groups in "group" based on the (linear part of a) constraint "c".
2024
 *
2025
 * In particular, for any variable involved in the constraint,
2026
 * find the actual group id from before and replace the group
2027
 * of the corresponding variable by the minimal group of all
2028
 * the variables involved in the constraint considered so far
2029
 * (if this minimum is smaller) or replace the minimum by this group
2030
 * (if the minimum is larger).
2031
 *
2032
 * At the end, all the variables in "c" will (indirectly) point
2033
 * to the minimal of the groups that they referred to originally.
2034
 */
2035
static void update_groups(int dim, int *group, isl_int *c)
2036
522k
{
2037
522k
  int j;
2038
522k
  int min = dim;
2039
522k
2040
6.91M
  for (j = 0; 
j < dim6.91M
;
++j6.38M
) {
2041
6.38M
    if (isl_int_is_zero(c[j]))
2042
5.67M
      continue;
2043
708k
    
while (708k
group[j] >= 0 && 708k
group[group[j]] != group[j]208k
)
2044
132
      group[j] = group[group[j]];
2045
708k
    if (group[j] == min)
2046
115k
      continue;
2047
593k
    
if (593k
group[j] < min593k
) {
2048
529k
      if (
min >= 0 && 529k
min < dim529k
)
2049
7.12k
        group[min] = group[j];
2050
529k
      min = group[j];
2051
529k
    } else
2052
64.0k
      group[group[j]] = min;
2053
6.38M
  }
2054
522k
}
2055
2056
/* Allocate an array of groups of variables, one for each variable
2057
 * in "context", initialized to zero.
2058
 */
2059
static int *alloc_groups(__isl_keep isl_basic_set *context)
2060
29.3k
{
2061
29.3k
  isl_ctx *ctx;
2062
29.3k
  int dim;
2063
29.3k
2064
29.3k
  dim = isl_basic_set_dim(context, isl_dim_set);
2065
29.3k
  ctx = isl_basic_set_get_ctx(context);
2066
29.3k
  return isl_calloc_array(ctx, int, dim);
2067
29.3k
}
2068
2069
/* Drop constraints from "bmap" that only involve variables that are
2070
 * not related to any of the variables marked with a "-1" in "group".
2071
 *
2072
 * We construct groups of variables that collect variables that
2073
 * (indirectly) appear in some common constraint of "bmap".
2074
 * Each group is identified by the first variable in the group,
2075
 * except for the special group of variables that was already identified
2076
 * in the input as -1 (or are related to those variables).
2077
 * If group[i] is equal to i (or -1), then the group of i is i (or -1),
2078
 * otherwise the group of i is the group of group[i].
2079
 *
2080
 * We first initialize groups for the remaining variables.
2081
 * Then we iterate over the constraints of "bmap" and update the
2082
 * group of the variables in the constraint by the smallest group.
2083
 * Finally, we resolve indirect references to groups by running over
2084
 * the variables.
2085
 *
2086
 * After computing the groups, we drop constraints that do not involve
2087
 * any variables in the -1 group.
2088
 */
2089
__isl_give isl_basic_map *isl_basic_map_drop_unrelated_constraints(
2090
  __isl_take isl_basic_map *bmap, __isl_take int *group)
2091
80.4k
{
2092
80.4k
  int dim;
2093
80.4k
  int i;
2094
80.4k
  int last;
2095
80.4k
2096
80.4k
  if (!bmap)
2097
0
    return NULL;
2098
80.4k
2099
80.4k
  dim = isl_basic_map_dim(bmap, isl_dim_all);
2100
80.4k
2101
80.4k
  last = -1;
2102
541k
  for (i = 0; 
i < dim541k
;
++i461k
)
2103
461k
    
if (461k
group[i] >= 0461k
)
2104
182k
      last = group[i] = i;
2105
80.4k
  if (
last < 080.4k
) {
2106
12.7k
    free(group);
2107
12.7k
    return bmap;
2108
12.7k
  }
2109
67.6k
2110
169k
  
for (i = 0; 67.6k
i < bmap->n_eq169k
;
++i101k
)
2111
101k
    update_groups(dim, group, bmap->eq[i] + 1);
2112
488k
  for (i = 0; 
i < bmap->n_ineq488k
;
++i420k
)
2113
420k
    update_groups(dim, group, bmap->ineq[i] + 1);
2114
67.6k
2115
498k
  for (i = 0; 
i < dim498k
;
++i430k
)
2116
430k
    
if (430k
group[i] >= 0430k
)
2117
116k
      group[i] = group[group[i]];
2118
67.6k
2119
498k
  for (i = 0; 
i < dim498k
;
++i430k
)
2120
430k
    group[i] = group[i] == -1;
2121
80.4k
2122
80.4k
  bmap = drop_unrelated_constraints(bmap, group);
2123
80.4k
2124
80.4k
  free(group);
2125
80.4k
  return bmap;
2126
80.4k
}
2127
2128
/* Drop constraints from "context" that are irrelevant for computing
2129
 * the gist of "bset".
2130
 *
2131
 * In particular, drop constraints in variables that are not related
2132
 * to any of the variables involved in the constraints of "bset"
2133
 * in the sense that there is no sequence of constraints that connects them.
2134
 *
2135
 * We first mark all variables that appear in "bset" as belonging
2136
 * to a "-1" group and then continue with group_and_drop_irrelevant_constraints.
2137
 */
2138
static __isl_give isl_basic_set *drop_irrelevant_constraints(
2139
  __isl_take isl_basic_set *context, __isl_keep isl_basic_set *bset)
2140
18.7k
{
2141
18.7k
  int *group;
2142
18.7k
  int dim;
2143
18.7k
  int i, j;
2144
18.7k
2145
18.7k
  if (
!context || 18.7k
!bset18.7k
)
2146
0
    return isl_basic_set_free(context);
2147
18.7k
2148
18.7k
  group = alloc_groups(context);
2149
18.7k
2150
18.7k
  if (!group)
2151
0
    return isl_basic_set_free(context);
2152
18.7k
2153
18.7k
  dim = isl_basic_set_dim(bset, isl_dim_set);
2154
122k
  for (i = 0; 
i < dim122k
;
++i103k
) {
2155
165k
    for (j = 0; 
j < bset->n_eq165k
;
++j62.0k
)
2156
85.4k
      
if (85.4k
!85.4k
isl_int_is_zero85.4k
(bset->eq[j][1 + i]))
2157
23.3k
        break;
2158
103k
    if (
j < bset->n_eq103k
) {
2159
23.3k
      group[i] = -1;
2160
23.3k
      continue;
2161
23.3k
    }
2162
274k
    
for (j = 0; 80.2k
j < bset->n_ineq274k
;
++j194k
)
2163
221k
      
if (221k
!221k
isl_int_is_zero221k
(bset->ineq[j][1 + i]))
2164
27.4k
        break;
2165
80.2k
    if (j < bset->n_ineq)
2166
27.4k
      group[i] = -1;
2167
103k
  }
2168
18.7k
2169
18.7k
  return isl_basic_map_drop_unrelated_constraints(context, group);
2170
18.7k
}
2171
2172
/* Drop constraints from "context" that are irrelevant for computing
2173
 * the gist of the inequalities "ineq".
2174
 * Inequalities in "ineq" for which the corresponding element of row
2175
 * is set to -1 have already been marked for removal and should be ignored.
2176
 *
2177
 * In particular, drop constraints in variables that are not related
2178
 * to any of the variables involved in "ineq"
2179
 * in the sense that there is no sequence of constraints that connects them.
2180
 *
2181
 * We first mark all variables that appear in "bset" as belonging
2182
 * to a "-1" group and then continue with group_and_drop_irrelevant_constraints.
2183
 */
2184
static __isl_give isl_basic_set *drop_irrelevant_constraints_marked(
2185
  __isl_take isl_basic_set *context, __isl_keep isl_mat *ineq, int *row)
2186
10.5k
{
2187
10.5k
  int *group;
2188
10.5k
  int dim;
2189
10.5k
  int i, j, n;
2190
10.5k
2191
10.5k
  if (
!context || 10.5k
!ineq10.5k
)
2192
0
    return isl_basic_set_free(context);
2193
10.5k
2194
10.5k
  group = alloc_groups(context);
2195
10.5k
2196
10.5k
  if (!group)
2197
0
    return isl_basic_set_free(context);
2198
10.5k
2199
10.5k
  dim = isl_basic_set_dim(context, isl_dim_set);
2200
10.5k
  n = isl_mat_rows(ineq);
2201
67.5k
  for (i = 0; 
i < dim67.5k
;
++i56.9k
) {
2202
251k
    for (j = 0; 
j < n251k
;
++j194k
) {
2203
216k
      if (row[j] < 0)
2204
74.8k
        continue;
2205
141k
      
if (141k
!141k
isl_int_is_zero141k
(ineq->row[j][1 + i]))
2206
21.7k
        break;
2207
216k
    }
2208
56.9k
    if (j < n)
2209
21.7k
      group[i] = -1;
2210
56.9k
  }
2211
10.5k
2212
10.5k
  return isl_basic_map_drop_unrelated_constraints(context, group);
2213
10.5k
}
2214
2215
/* Do all "n" entries of "row" contain a negative value?
2216
 */
2217
static int all_neg(int *row, int n)
2218
12.5k
{
2219
12.5k
  int i;
2220
12.5k
2221
24.9k
  for (i = 0; 
i < n24.9k
;
++i12.3k
)
2222
22.8k
    
if (22.8k
row[i] >= 022.8k
)
2223
10.5k
      return 0;
2224
12.5k
2225
2.03k
  return 1;
2226
12.5k
}
2227
2228
/* Update the inequalities in "bset" based on the information in "row"
2229
 * and "tab".
2230
 *
2231
 * In particular, the array "row" contains either -1, meaning that
2232
 * the corresponding inequality of "bset" is redundant, or the index
2233
 * of an inequality in "tab".
2234
 *
2235
 * If the row entry is -1, then drop the inequality.
2236
 * Otherwise, if the constraint is marked redundant in the tableau,
2237
 * then drop the inequality.  Similarly, if it is marked as an equality
2238
 * in the tableau, then turn the inequality into an equality and
2239
 * perform Gaussian elimination.
2240
 */
2241
static __isl_give isl_basic_set *update_ineq(__isl_take isl_basic_set *bset,
2242
  __isl_keep int *row, struct isl_tab *tab)
2243
12.5k
{
2244
12.5k
  int i;
2245
12.5k
  unsigned n_ineq;
2246
12.5k
  unsigned n_eq;
2247
12.5k
  int found_equality = 0;
2248
12.5k
2249
12.5k
  if (!bset)
2250
0
    return NULL;
2251
12.5k
  
if (12.5k
tab && 12.5k
tab->empty10.2k
)
2252
2.48k
    return isl_basic_set_set_to_empty(bset);
2253
10.1k
2254
10.1k
  n_ineq = bset->n_ineq;
2255
42.3k
  for (i = n_ineq - 1; 
i >= 042.3k
;
--i32.2k
) {
2256
32.2k
    if (
row[i] < 032.2k
) {
2257
16.8k
      if (isl_basic_set_drop_inequality(bset, i) < 0)
2258
0
        return isl_basic_set_free(bset);
2259
16.8k
      continue;
2260
16.8k
    }
2261
15.3k
    
if (15.3k
!tab15.3k
)
2262
461
      continue;
2263
14.9k
    n_eq = tab->n_eq;
2264
14.9k
    if (
isl_tab_is_equality(tab, n_eq + row[i])14.9k
) {
2265
237
      isl_basic_map_inequality_to_equality(bset, i);
2266
237
      found_equality = 1;
2267
14.9k
    } else 
if (14.6k
isl_tab_is_redundant(tab, n_eq + row[i])14.6k
) {
2268
429
      if (isl_basic_set_drop_inequality(bset, i) < 0)
2269
0
        return isl_basic_set_free(bset);
2270
14.6k
    }
2271
32.2k
  }
2272
10.1k
2273
10.1k
  
if (10.1k
found_equality10.1k
)
2274
214
    bset = isl_basic_set_gauss(bset, NULL);
2275
10.1k
  bset = isl_basic_set_finalize(bset);
2276
10.1k
  return bset;
2277
12.5k
}
2278
2279
/* Update the inequalities in "bset" based on the information in "row"
2280
 * and "tab" and free all arguments (other than "bset").
2281
 */
2282
static __isl_give isl_basic_set *update_ineq_free(
2283
  __isl_take isl_basic_set *bset, __isl_take isl_mat *ineq,
2284
  __isl_take isl_basic_set *context, __isl_take int *row,
2285
  struct isl_tab *tab)
2286
12.5k
{
2287
12.5k
  isl_mat_free(ineq);
2288
12.5k
  isl_basic_set_free(context);
2289
12.5k
2290
12.5k
  bset = update_ineq(bset, row, tab);
2291
12.5k
2292
12.5k
  free(row);
2293
12.5k
  isl_tab_free(tab);
2294
12.5k
  return bset;
2295
12.5k
}
2296
2297
/* Remove all information from bset that is redundant in the context
2298
 * of context.
2299
 * "ineq" contains the (possibly transformed) inequalities of "bset",
2300
 * in the same order.
2301
 * The (explicit) equalities of "bset" are assumed to have been taken
2302
 * into account by the transformation such that only the inequalities
2303
 * are relevant.
2304
 * "context" is assumed not to be empty.
2305
 *
2306
 * "row" keeps track of the constraint index of a "bset" inequality in "tab".
2307
 * A value of -1 means that the inequality is obviously redundant and may
2308
 * not even appear in  "tab".
2309
 *
2310
 * We first mark the inequalities of "bset"
2311
 * that are obviously redundant with respect to some inequality in "context".
2312
 * Then we remove those constraints from "context" that have become
2313
 * irrelevant for computing the gist of "bset".
2314
 * Note that this removal of constraints cannot be replaced by
2315
 * a factorization because factors in "bset" may still be connected
2316
 * to each other through constraints in "context".
2317
 *
2318
 * If there are any inequalities left, we construct a tableau for
2319
 * the context and then add the inequalities of "bset".
2320
 * Before adding these inequalities, we freeze all constraints such that
2321
 * they won't be considered redundant in terms of the constraints of "bset".
2322
 * Then we detect all redundant constraints (among the
2323
 * constraints that weren't frozen), first by checking for redundancy in the
2324
 * the tableau and then by checking if replacing a constraint by its negation
2325
 * would lead to an empty set.  This last step is fairly expensive
2326
 * and could be optimized by more reuse of the tableau.
2327
 * Finally, we update bset according to the results.
2328
 */
2329
static __isl_give isl_basic_set *uset_gist_full(__isl_take isl_basic_set *bset,
2330
  __isl_take isl_mat *ineq, __isl_take isl_basic_set *context)
2331
18.7k
{
2332
18.7k
  int i, r;
2333
18.7k
  int *row = NULL;
2334
18.7k
  isl_ctx *ctx;
2335
18.7k
  isl_basic_set *combined = NULL;
2336
18.7k
  struct isl_tab *tab = NULL;
2337
18.7k
  unsigned n_eq, context_ineq;
2338
18.7k
2339
18.7k
  if (
!bset || 18.7k
!ineq18.7k
||
!context18.7k
)
2340
0
    goto error;
2341
18.7k
2342
18.7k
  
if (18.7k
bset->n_ineq == 0 || 18.7k
isl_basic_set_plain_is_universe(context)13.2k
) {
2343
6.18k
    isl_basic_set_free(context);
2344
6.18k
    isl_mat_free(ineq);
2345
6.18k
    return bset;
2346
6.18k
  }
2347
12.5k
2348
12.5k
  ctx = isl_basic_set_get_ctx(context);
2349
12.5k
  row = isl_calloc_array(ctx, int, bset->n_ineq);
2350
12.5k
  if (!row)
2351
0
    goto error;
2352
12.5k
2353
12.5k
  
if (12.5k
mark_shifted_constraints(ineq, context, row) < 012.5k
)
2354
0
    goto error;
2355
12.5k
  
if (12.5k
all_neg(row, bset->n_ineq)12.5k
)
2356
2.03k
    return update_ineq_free(bset, ineq, context, row, NULL);
2357
10.5k
2358
10.5k
  context = drop_irrelevant_constraints_marked(context, ineq, row);
2359
10.5k
  if (!context)
2360
0
    goto error;
2361
10.5k
  
if (10.5k
isl_basic_set_plain_is_universe(context)10.5k
)
2362
264
    return update_ineq_free(bset, ineq, context, row, NULL);
2363
10.2k
2364
10.2k
  n_eq = context->n_eq;
2365
10.2k
  context_ineq = context->n_ineq;
2366
10.2k
  combined = isl_basic_set_cow(isl_basic_set_copy(context));
2367
10.2k
  combined = isl_basic_set_extend_constraints(combined, 0, bset->n_ineq);
2368
10.2k
  tab = isl_tab_from_basic_set(combined, 0);
2369
43.4k
  for (i = 0; 
i < context_ineq43.4k
;
++i33.1k
)
2370
33.1k
    
if (33.1k
isl_tab_freeze_constraint(tab, n_eq + i) < 033.1k
)
2371
0
      goto error;
2372
10.2k
  
if (10.2k
isl_tab_extend_cons(tab, bset->n_ineq) < 010.2k
)
2373
0
    goto error;
2374
10.2k
  r = context_ineq;
2375
40.0k
  for (i = 0; 
i < bset->n_ineq40.0k
;
++i29.8k
) {
2376
29.8k
    if (row[i] < 0)
2377
9.30k
      continue;
2378
20.4k
    combined = isl_basic_set_add_ineq(combined, ineq->row[i]);
2379
20.4k
    if (isl_tab_add_ineq(tab, ineq->row[i]) < 0)
2380
0
      goto error;
2381
20.4k
    row[i] = r++;
2382
20.4k
  }
2383
10.2k
  
if (10.2k
isl_tab_detect_implicit_equalities(tab) < 010.2k
)
2384
0
    goto error;
2385
10.2k
  
if (10.2k
isl_tab_detect_redundant(tab) < 010.2k
)
2386
0
    goto error;
2387
40.0k
  
for (i = bset->n_ineq - 1; 10.2k
i >= 040.0k
;
--i29.8k
) {
2388
29.8k
    isl_basic_set *test;
2389
29.8k
    int is_empty;
2390
29.8k
2391
29.8k
    if (row[i] < 0)
2392
9.30k
      continue;
2393
20.4k
    r = row[i];
2394
20.4k
    if (tab->con[n_eq + r].is_redundant)
2395
656
      continue;
2396
19.8k
    test = isl_basic_set_dup(combined);
2397
19.8k
    if (isl_inequality_negate(test, r) < 0)
2398
0
      test = isl_basic_set_free(test);
2399
19.8k
    test = isl_basic_set_update_from_tab(test, tab);
2400
19.8k
    is_empty = isl_basic_set_is_empty(test);
2401
19.8k
    isl_basic_set_free(test);
2402
19.8k
    if (is_empty < 0)
2403
0
      goto error;
2404
19.8k
    
if (19.8k
is_empty19.8k
)
2405
5.56k
      tab->con[n_eq + r].is_redundant = 1;
2406
29.8k
  }
2407
10.2k
  bset = update_ineq_free(bset, ineq, context, row, tab);
2408
10.2k
  if (
bset10.2k
) {
2409
10.2k
    ISL_F_SET(bset, ISL_BASIC_SET_NO_IMPLICIT);
2410
10.2k
    ISL_F_SET(bset, ISL_BASIC_SET_NO_REDUNDANT);
2411
10.2k
  }
2412
10.2k
2413
10.2k
  isl_basic_set_free(combined);
2414
10.2k
  return bset;
2415
0
error:
2416
0
  free(row);
2417
0
  isl_mat_free(ineq);
2418
0
  isl_tab_free(tab);
2419
0
  isl_basic_set_free(combined);
2420
0
  isl_basic_set_free(context);
2421
0
  isl_basic_set_free(bset);
2422
0
  return NULL;
2423
18.7k
}
2424
2425
/* Extract the inequalities of "bset" as an isl_mat.
2426
 */
2427
static __isl_give isl_mat *extract_ineq(__isl_keep isl_basic_set *bset)
2428
18.7k
{
2429
18.7k
  unsigned total;
2430
18.7k
  isl_ctx *ctx;
2431
18.7k
  isl_mat *ineq;
2432
18.7k
2433
18.7k
  if (!bset)
2434
0
    return NULL;
2435
18.7k
2436
18.7k
  ctx = isl_basic_set_get_ctx(bset);
2437
18.7k
  total = isl_basic_set_total_dim(bset);
2438
18.7k
  ineq = isl_mat_sub_alloc6(ctx, bset->ineq, 0, bset->n_ineq,
2439
18.7k
            0, 1 + total);
2440
18.7k
2441
18.7k
  return ineq;
2442
18.7k
}
2443
2444
/* Remove all information from "bset" that is redundant in the context
2445
 * of "context", for the case where both "bset" and "context" are
2446
 * full-dimensional.
2447
 */
2448
static __isl_give isl_basic_set *uset_gist_uncompressed(
2449
  __isl_take isl_basic_set *bset, __isl_take isl_basic_set *context)
2450
9.44k
{
2451
9.44k
  isl_mat *ineq;
2452
9.44k
2453
9.44k
  ineq = extract_ineq(bset);
2454
9.44k
  return uset_gist_full(bset, ineq, context);
2455
9.44k
}
2456
2457
/* Remove all information from "bset" that is redundant in the context
2458
 * of "context", for the case where the combined equalities of
2459
 * "bset" and "context" allow for a compression that can be obtained
2460
 * by preapplication of "T".
2461
 *
2462
 * "bset" itself is not transformed by "T".  Instead, the inequalities
2463
 * are extracted from "bset" and those are transformed by "T".
2464
 * uset_gist_full then determines which of the transformed inequalities
2465
 * are redundant with respect to the transformed "context" and removes
2466
 * the corresponding inequalities from "bset".
2467
 *
2468
 * After preapplying "T" to the inequalities, any common factor is
2469
 * removed from the coefficients.  If this results in a tightening
2470
 * of the constant term, then the same tightening is applied to
2471
 * the corresponding untransformed inequality in "bset".
2472
 * That is, if after plugging in T, a constraint f(x) >= 0 is of the form
2473
 *
2474
 *  g f'(x) + r >= 0
2475
 *
2476
 * with 0 <= r < g, then it is equivalent to
2477
 *
2478
 *  f'(x) >= 0
2479
 *
2480
 * This means that f(x) >= 0 is equivalent to f(x) - r >= 0 in the affine
2481
 * subspace compressed by T since the latter would be transformed to
2482
 *
2483
 *  g f'(x) >= 0
2484
 */
2485
static __isl_give isl_basic_set *uset_gist_compressed(
2486
  __isl_take isl_basic_set *bset, __isl_take isl_basic_set *context,
2487
  __isl_take isl_mat *T)
2488
9.34k
{
2489
9.34k
  isl_ctx *ctx;
2490
9.34k
  isl_mat *ineq;
2491
9.34k
  int i, n_row, n_col;
2492
9.34k
  isl_int rem;
2493
9.34k
2494
9.34k
  ineq = extract_ineq(bset);
2495
9.34k
  ineq = isl_mat_product(ineq, isl_mat_copy(T));
2496
9.34k
  context = isl_basic_set_preimage(context, T);
2497
9.34k
2498
9.34k
  if (
!ineq || 9.34k
!context9.34k
)
2499
0
    goto error;
2500
9.34k
  
if (9.34k
isl_basic_set_plain_is_empty(context)9.34k
) {
2501
7
    isl_mat_free(ineq);
2502
7
    isl_basic_set_free(context);
2503
7
    return isl_basic_set_set_to_empty(bset);
2504
7
  }
2505
9.33k
2506
9.33k
  ctx = isl_mat_get_ctx(ineq);
2507
9.33k
  n_row = isl_mat_rows(ineq);
2508
9.33k
  n_col = isl_mat_cols(ineq);
2509
9.33k
  isl_int_init(rem);
2510
22.0k
  for (i = 0; 
i < n_row22.0k
;
++i12.7k
) {
2511
12.7k
    isl_seq_gcd(ineq->row[i] + 1, n_col - 1, &ctx->normalize_gcd);
2512
12.7k
    if (isl_int_is_zero(ctx->normalize_gcd))
2513
21
      continue;
2514
12.6k
    
if (12.6k
isl_int_is_one12.6k
(ctx->normalize_gcd))
2515
11.9k
      continue;
2516
698
    isl_seq_scale_down(ineq->row[i] + 1, ineq->row[i] + 1,
2517
698
            ctx->normalize_gcd, n_col - 1);
2518
698
    isl_int_fdiv_r(rem, ineq->row[i][0], ctx->normalize_gcd);
2519
698
    isl_int_fdiv_q(ineq->row[i][0],
2520
698
        ineq->row[i][0], ctx->normalize_gcd);
2521
698
    if (isl_int_is_zero(rem))
2522
444
      continue;
2523
254
    bset = isl_basic_set_cow(bset);
2524
254
    if (!bset)
2525
0
      break;
2526
254
    
isl_int_sub254
(bset->ineq[i][0], bset->ineq[i][0], rem);
2527
254
  }
2528
9.33k
  isl_int_clear(rem);
2529
9.33k
2530
9.33k
  return uset_gist_full(bset, ineq, context);
2531
0
error:
2532
0
  isl_mat_free(ineq);
2533
0
  isl_basic_set_free(context);
2534
0
  isl_basic_set_free(bset);
2535
0
  return NULL;
2536
9.34k
}
2537
2538
/* Project "bset" onto the variables that are involved in "template".
2539
 */
2540
static __isl_give isl_basic_set *project_onto_involved(
2541
  __isl_take isl_basic_set *bset, __isl_keep isl_basic_set *template)
2542
9.34k
{
2543
9.34k
  int i, n;
2544
9.34k
2545
9.34k
  if (
!bset || 9.34k
!template9.34k
)
2546
0
    return isl_basic_set_free(bset);
2547
9.34k
2548
9.34k
  n = isl_basic_set_dim(template, isl_dim_set);
2549
9.34k
2550
63.3k
  for (i = 0; 
i < n63.3k
;
++i53.9k
) {
2551
53.9k
    isl_bool involved;
2552
53.9k
2553
53.9k
    involved = isl_basic_set_involves_dims(template,
2554
53.9k
              isl_dim_set, i, 1);
2555
53.9k
    if (involved < 0)
2556
0
      return isl_basic_set_free(bset);
2557
53.9k
    
if (53.9k
involved53.9k
)
2558
28.3k
      continue;
2559
25.6k
    bset = isl_basic_set_eliminate_vars(bset, i, 1);
2560
25.6k
  }
2561
9.34k
2562
9.34k
  return bset;
2563
9.34k
}
2564
2565
/* Remove all information from bset that is redundant in the context
2566
 * of context.  In particular, equalities that are linear combinations
2567
 * of those in context are removed.  Then the inequalities that are
2568
 * redundant in the context of the equalities and inequalities of
2569
 * context are removed.
2570
 *
2571
 * First of all, we drop those constraints from "context"
2572
 * that are irrelevant for computing the gist of "bset".
2573
 * Alternatively, we could factorize the intersection of "context" and "bset".
2574
 *
2575
 * We first compute the intersection of the integer affine hulls
2576
 * of "bset" and "context",
2577
 * compute the gist inside this intersection and then reduce
2578
 * the constraints with respect to the equalities of the context
2579
 * that only involve variables already involved in the input.
2580
 *
2581
 * If two constraints are mutually redundant, then uset_gist_full
2582
 * will remove the second of those constraints.  We therefore first
2583
 * sort the constraints so that constraints not involving existentially
2584
 * quantified variables are given precedence over those that do.
2585
 * We have to perform this sorting before the variable compression,
2586
 * because that may effect the order of the variables.
2587
 */
2588
static __isl_give isl_basic_set *uset_gist(__isl_take isl_basic_set *bset,
2589
  __isl_take isl_basic_set *context)
2590
18.7k
{
2591
18.7k
  isl_mat *eq;
2592
18.7k
  isl_mat *T;
2593
18.7k
  isl_basic_set *aff;
2594
18.7k
  isl_basic_set *aff_context;
2595
18.7k
  unsigned total;
2596
18.7k
2597
18.7k
  if (
!bset || 18.7k
!context18.7k
)
2598
0
    goto error;
2599
18.7k
2600
18.7k
  context = drop_irrelevant_constraints(context, bset);
2601
18.7k
2602
18.7k
  bset = isl_basic_set_detect_equalities(bset);
2603
18.7k
  aff = isl_basic_set_copy(bset);
2604
18.7k
  aff = isl_basic_set_plain_affine_hull(aff);
2605
18.7k
  context = isl_basic_set_detect_equalities(context);
2606
18.7k
  aff_context = isl_basic_set_copy(context);
2607
18.7k
  aff_context = isl_basic_set_plain_affine_hull(aff_context);
2608
18.7k
  aff = isl_basic_set_intersect(aff, aff_context);
2609
18.7k
  if (!aff)
2610
0
    goto error;
2611
18.7k
  
if (18.7k
isl_basic_set_plain_is_empty(aff)18.7k
) {
2612
1
    isl_basic_set_free(bset);
2613
1
    isl_basic_set_free(context);
2614
1
    return aff;
2615
1
  }
2616
18.7k
  bset = isl_basic_set_sort_constraints(bset);
2617
18.7k
  if (
aff->n_eq == 018.7k
) {
2618
9.44k
    isl_basic_set_free(aff);
2619
9.44k
    return uset_gist_uncompressed(bset, context);
2620
9.44k
  }
2621
9.34k
  total = isl_basic_set_total_dim(bset);
2622
9.34k
  eq = isl_mat_sub_alloc6(bset->ctx, aff->eq, 0, aff->n_eq, 0, 1 + total);
2623
9.34k
  eq = isl_mat_cow(eq);
2624
9.34k
  T = isl_mat_variable_compression(eq, NULL);
2625
9.34k
  isl_basic_set_free(aff);
2626
9.34k
  if (
T && 9.34k
T->n_col == 09.34k
) {
2627
0
    isl_mat_free(T);
2628
0
    isl_basic_set_free(context);
2629
0
    return isl_basic_set_set_to_empty(bset);
2630
0
  }
2631
9.34k
2632
9.34k
  aff_context = isl_basic_set_affine_hull(isl_basic_set_copy(context));
2633
9.34k
  aff_context = project_onto_involved(aff_context, bset);
2634
9.34k
2635
9.34k
  bset = uset_gist_compressed(bset, context, T);
2636
9.34k
  bset = isl_basic_set_reduce_using_equalities(bset, aff_context);
2637
9.34k
2638
9.34k
  if (
bset9.34k
) {
2639
9.34k
    ISL_F_SET(bset, ISL_BASIC_SET_NO_IMPLICIT);
2640
9.34k
    ISL_F_SET(bset, ISL_BASIC_SET_NO_REDUNDANT);
2641
9.34k
  }
2642
9.34k
2643
9.34k
  return bset;
2644
0
error:
2645
0
  isl_basic_set_free(bset);
2646
0
  isl_basic_set_free(context);
2647
0
  return NULL;
2648
18.7k
}
2649
2650
/* Return the number of equality constraints in "bmap" that involve
2651
 * local variables.  This function assumes that Gaussian elimination
2652
 * has been applied to the equality constraints.
2653
 */
2654
static int n_div_eq(__isl_keep isl_basic_map *bmap)
2655
1.00k
{
2656
1.00k
  int i;
2657
1.00k
  int total, n_div;
2658
1.00k
2659
1.00k
  if (!bmap)
2660
0
    return -1;
2661
1.00k
2662
1.00k
  
if (1.00k
bmap->n_eq == 01.00k
)
2663
385
    return 0;
2664
617
2665
617
  total = isl_basic_map_dim(bmap, isl_dim_all);
2666
617
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
2667
617
  total -= n_div;
2668
617
2669
1.08k
  for (i = 0; 
i < bmap->n_eq1.08k
;
++i465
)
2670
704
    
if (704
isl_seq_first_non_zero(bmap->eq[i] + 1 + total,
2671
704
              n_div) == -1)
2672
239
      return i;
2673
617
2674
378
  return bmap->n_eq;
2675
1.00k
}
2676
2677
/* Construct a basic map in "space" defined by the equality constraints in "eq".
2678
 * The constraints are assumed not to involve any local variables.
2679
 */
2680
static __isl_give isl_basic_map *basic_map_from_equalities(
2681
  __isl_take isl_space *space, __isl_take isl_mat *eq)
2682
2
{
2683
2
  int i, k;
2684
2
  isl_basic_map *bmap = NULL;
2685
2
2686
2
  if (
!space || 2
!eq2
)
2687
0
    goto error;
2688
2
2689
2
  
if (2
1 + isl_space_dim(space, isl_dim_all) != eq->n_col2
)
2690
0
    isl_die(isl_space_get_ctx(space), isl_error_internal,
2691
2
      "unexpected number of columns", goto error);
2692
2
2693
2
  bmap = isl_basic_map_alloc_space(isl_space_copy(space),
2694
2
              0, eq->n_row, 0);
2695
6
  for (i = 0; 
i < eq->n_row6
;
++i4
) {
2696
4
    k = isl_basic_map_alloc_equality(bmap);
2697
4
    if (k < 0)
2698
0
      goto error;
2699
4
    isl_seq_cpy(bmap->eq[k], eq->row[i], eq->n_col);
2700
4
  }
2701
2
2702
2
  isl_space_free(space);
2703
2
  isl_mat_free(eq);
2704
2
  return bmap;
2705
0
error:
2706
0
  isl_space_free(space);
2707
0
  isl_mat_free(eq);
2708
0
  isl_basic_map_free(bmap);
2709
0
  return NULL;
2710
2
}
2711
2712
/* Construct and return a variable compression based on the equality
2713
 * constraints in "bmap1" and "bmap2" that do not involve the local variables.
2714
 * "n1" is the number of (initial) equality constraints in "bmap1"
2715
 * that do involve local variables.
2716
 * "n2" is the number of (initial) equality constraints in "bmap2"
2717
 * that do involve local variables.
2718
 * "total" is the total number of other variables.
2719
 * This function assumes that Gaussian elimination
2720
 * has been applied to the equality constraints in both "bmap1" and "bmap2"
2721
 * such that the equality constraints not involving local variables
2722
 * are those that start at "n1" or "n2".
2723
 *
2724
 * If either of "bmap1" and "bmap2" does not have such equality constraints,
2725
 * then simply compute the compression based on the equality constraints
2726
 * in the other basic map.
2727
 * Otherwise, combine the equality constraints from both into a new
2728
 * basic map such that Gaussian elimination can be applied to this combination
2729
 * and then construct a variable compression from the resulting
2730
 * equality constraints.
2731
 */
2732
static __isl_give isl_mat *combined_variable_compression(
2733
  __isl_keep isl_basic_map *bmap1, int n1,
2734
  __isl_keep isl_basic_map *bmap2, int n2, int total)
2735
7
{
2736
7
  isl_ctx *ctx;
2737
7
  isl_mat *E1, *E2, *V;
2738
7
  isl_basic_map *bmap;
2739
7
2740
7
  ctx = isl_basic_map_get_ctx(bmap1);
2741
7
  if (
bmap1->n_eq == n17
) {
2742
3
    E2 = isl_mat_sub_alloc6(ctx, bmap2->eq,
2743
3
          n2, bmap2->n_eq - n2, 0, 1 + total);
2744
3
    return isl_mat_variable_compression(E2, NULL);
2745
3
  }
2746
4
  
if (4
bmap2->n_eq == n24
) {
2747
2
    E1 = isl_mat_sub_alloc6(ctx, bmap1->eq,
2748
2
          n1, bmap1->n_eq - n1, 0, 1 + total);
2749
2
    return isl_mat_variable_compression(E1, NULL);
2750
2
  }
2751
2
  E1 = isl_mat_sub_alloc6(ctx, bmap1->eq,
2752
2
        n1, bmap1->n_eq - n1, 0, 1 + total);
2753
2
  E2 = isl_mat_sub_alloc6(ctx, bmap2->eq,
2754
2
        n2, bmap2->n_eq - n2, 0, 1 + total);
2755
2
  E1 = isl_mat_concat(E1, E2);
2756
2
  bmap = basic_map_from_equalities(isl_basic_map_get_space(bmap1), E1);
2757
2
  bmap = isl_basic_map_gauss(bmap, NULL);
2758
2
  if (!bmap)
2759
0
    return NULL;
2760
2
  E1 = isl_mat_sub_alloc6(ctx, bmap->eq, 0, bmap->n_eq, 0, 1 + total);
2761
2
  V = isl_mat_variable_compression(E1, NULL);
2762
2
  isl_basic_map_free(bmap);
2763
2
2764
2
  return V;
2765
2
}
2766
2767
/* Extract the stride constraints from "bmap", compressed
2768
 * with respect to both the stride constraints in "context" and
2769
 * the remaining equality constraints in both "bmap" and "context".
2770
 * "bmap_n_eq" is the number of (initial) stride constraints in "bmap".
2771
 * "context_n_eq" is the number of (initial) stride constraints in "context".
2772
 *
2773
 * Let x be all variables in "bmap" (and "context") other than the local
2774
 * variables.  First compute a variable compression
2775
 *
2776
 *  x = V x'
2777
 *
2778
 * based on the non-stride equality constraints in "bmap" and "context".
2779
 * Consider the stride constraints of "context",
2780
 *
2781
 *  A(x) + B(y) = 0
2782
 *
2783
 * with y the local variables and plug in the variable compression,
2784
 * resulting in
2785
 *
2786
 *  A(V x') + B(y) = 0
2787
 *
2788
 * Use these constraints to compute a parameter compression on x'
2789
 *
2790
 *  x' = T x''
2791
 *
2792
 * Now consider the stride constraints of "bmap"
2793
 *
2794
 *  C(x) + D(y) = 0
2795
 *
2796
 * and plug in x = V*T x''.
2797
 * That is, return A = [C*V*T D].
2798
 */
2799
static __isl_give isl_mat *extract_compressed_stride_constraints(
2800
  __isl_keep isl_basic_map *bmap, int bmap_n_eq,
2801
  __isl_keep isl_basic_map *context, int context_n_eq)
2802
7
{
2803
7
  int total, n_div;
2804
7
  isl_ctx *ctx;
2805
7
  isl_mat *A, *B, *T, *V;
2806
7
2807
7
  total = isl_basic_map_dim(context, isl_dim_all);
2808
7
  n_div = isl_basic_map_dim(context, isl_dim_div);
2809
7
  total -= n_div;
2810
7
2811
7
  ctx = isl_basic_map_get_ctx(bmap);
2812
7
2813
7
  V = combined_variable_compression(bmap, bmap_n_eq,
2814
7
            context, context_n_eq, total);
2815
7
2816
7
  A = isl_mat_sub_alloc6(ctx, context->eq, 0, context_n_eq, 0, 1 + total);
2817
7
  B = isl_mat_sub_alloc6(ctx, context->eq,
2818
7
        0, context_n_eq, 1 + total, n_div);
2819
7
  A = isl_mat_product(A, isl_mat_copy(V));
2820
7
  T = isl_mat_parameter_compression_ext(A, B);
2821
7
  T = isl_mat_product(V, T);
2822
7
2823
7
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
2824
7
  T = isl_mat_diagonal(T, isl_mat_identity(ctx, n_div));
2825
7
2826
7
  A = isl_mat_sub_alloc6(ctx, bmap->eq,
2827
7
        0, bmap_n_eq, 0, 1 + total + n_div);
2828
7
  A = isl_mat_product(A, T);
2829
7
2830
7
  return A;
2831
7
}
2832
2833
/* Remove the prime factors from *g that have an exponent that
2834
 * is strictly smaller than the exponent in "c".
2835
 * All exponents in *g are known to be smaller than or equal
2836
 * to those in "c".
2837
 *
2838
 * That is, if *g is equal to
2839
 *
2840
 *  p_1^{e_1} p_2^{e_2} ... p_n^{e_n}
2841
 *
2842
 * and "c" is equal to
2843
 *
2844
 *  p_1^{f_1} p_2^{f_2} ... p_n^{f_n}
2845
 *
2846
 * then update *g to
2847
 *
2848
 *  p_1^{e_1 * (e_1 = f_1)} p_2^{e_2 * (e_2 = f_2)} ...
2849
 *    p_n^{e_n * (e_n = f_n)}
2850
 *
2851
 * If e_i = f_i, then c / *g does not have any p_i factors and therefore
2852
 * neither does the gcd of *g and c / *g.
2853
 * If e_i < f_i, then the gcd of *g and c / *g has a positive
2854
 * power min(e_i, s_i) of p_i with s_i = f_i - e_i among its factors.
2855
 * Dividing *g by this gcd therefore strictly reduces the exponent
2856
 * of the prime factors that need to be removed, while leaving the
2857
 * other prime factors untouched.
2858
 * Repeating this process until gcd(*g, c / *g) = 1 therefore
2859
 * removes all undesired factors, without removing any others.
2860
 */
2861
static void remove_incomplete_powers(isl_int *g, isl_int c)
2862
6
{
2863
6
  isl_int t;
2864
6
2865
6
  isl_int_init(t);
2866
9
  for (;;) {
2867
9
    isl_int_divexact(t, c, *g);
2868
9
    isl_int_gcd(t, t, *g);
2869
9
    if (isl_int_is_one(t))
2870
6
      break;
2871
3
    
isl_int_divexact3
(*g, *g, t);
2872
3
  }
2873
6
  isl_int_clear(t);
2874
6
}
2875
2876
/* Reduce the "n" stride constraints in "bmap" based on a copy "A"
2877
 * of the same stride constraints in a compressed space that exploits
2878
 * all equalities in the context and the other equalities in "bmap".
2879
 *
2880
 * If the stride constraints of "bmap" are of the form
2881
 *
2882
 *  C(x) + D(y) = 0
2883
 *
2884
 * then A is of the form
2885
 *
2886
 *  B(x') + D(y) = 0
2887
 *
2888
 * If any of these constraints involves only a single local variable y,
2889
 * then the constraint appears as
2890
 *
2891
 *  f(x) + m y_i = 0
2892
 *
2893
 * in "bmap" and as
2894
 *
2895
 *  h(x') + m y_i = 0
2896
 *
2897
 * in "A".
2898
 *
2899
 * Let g be the gcd of m and the coefficients of h.
2900
 * Then, in particular, g is a divisor of the coefficients of h and
2901
 *
2902
 *  f(x) = h(x')
2903
 *
2904
 * is known to be a multiple of g.
2905
 * If some prime factor in m appears with the same exponent in g,
2906
 * then it can be removed from m because f(x) is already known
2907
 * to be a multiple of g and therefore in particular of this power
2908
 * of the prime factors.
2909
 * Prime factors that appear with a smaller exponent in g cannot
2910
 * be removed from m.
2911
 * Let g' be the divisor of g containing all prime factors that
2912
 * appear with the same exponent in m and g, then
2913
 *
2914
 *  f(x) + m y_i = 0
2915
 *
2916
 * can be replaced by
2917
 *
2918
 *  f(x) + m/g' y_i' = 0
2919
 *
2920
 * Note that (if g' != 1) this changes the explicit representation
2921
 * of y_i to that of y_i', so the integer division at position i
2922
 * is marked unknown and later recomputed by a call to
2923
 * isl_basic_map_gauss.
2924
 */
2925
static __isl_give isl_basic_map *reduce_stride_constraints(
2926
  __isl_take isl_basic_map *bmap, int n, __isl_keep isl_mat *A)
2927
7
{
2928
7
  int i;
2929
7
  int total, n_div;
2930
7
  int any = 0;
2931
7
  isl_int gcd;
2932
7
2933
7
  if (
!bmap || 7
!A7
)
2934
0
    return isl_basic_map_free(bmap);
2935
7
2936
7
  total = isl_basic_map_dim(bmap, isl_dim_all);
2937
7
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
2938
7
  total -= n_div;
2939
7
2940
7
  isl_int_init(gcd);
2941
14
  for (i = 0; 
i < n14
;
++i7
) {
2942
7
    int div;
2943
7
2944
7
    div = isl_seq_first_non_zero(bmap->eq[i] + 1 + total, n_div);
2945
7
    if (div < 0)
2946
0
      isl_die(isl_basic_map_get_ctx(bmap), isl_error_internal,
2947
7
        "equality constraints modified unexpectedly",
2948
7
        goto error);
2949
7
    
if (7
isl_seq_first_non_zero(bmap->eq[i] + 1 + total + div + 1,
2950
7
            n_div - div - 1) != -1)
2951
0
      continue;
2952
7
    
if (7
isl_mat_row_gcd(A, i, &gcd) < 07
)
2953
0
      goto error;
2954
7
    
if (7
isl_int_is_one7
(gcd))
2955
1
      continue;
2956
6
    remove_incomplete_powers(&gcd, bmap->eq[i][1 + total + div]);
2957
6
    if (isl_int_is_one(gcd))
2958
1
      continue;
2959
5
    
isl_int_divexact5
(bmap->eq[i][1 + total + div],
2960
5
        bmap->eq[i][1 + total + div], gcd);
2961
5
    bmap = isl_basic_map_mark_div_unknown(bmap, div);
2962
5
    if (!bmap)
2963
0
      goto error;
2964
5
    any = 1;
2965
5
  }
2966
7
  
isl_int_clear7
(gcd);
2967
7
2968
7
  if (any)
2969
5
    bmap = isl_basic_map_gauss(bmap, NULL);
2970
7
2971
7
  return bmap;
2972
0
error:
2973
0
  isl_int_clear(gcd);
2974
0
  isl_basic_map_free(bmap);
2975
0
  return NULL;
2976
7
}
2977
2978
/* Simplify the stride constraints in "bmap" based on
2979
 * the remaining equality constraints in "bmap" and all equality
2980
 * constraints in "context".
2981
 * Only do this if both "bmap" and "context" have stride constraints.
2982
 *
2983
 * First extract a copy of the stride constraints in "bmap" in a compressed
2984
 * space exploiting all the other equality constraints and then
2985
 * use this compressed copy to simplify the original stride constraints.
2986
 */
2987
static __isl_give isl_basic_map *gist_strides(__isl_take isl_basic_map *bmap,
2988
  __isl_keep isl_basic_map *context)
2989
501
{
2990
501
  int bmap_n_eq, context_n_eq;
2991
501
  isl_mat *A;
2992
501
2993
501
  if (
!bmap || 501
!context501
)
2994
0
    return isl_basic_map_free(bmap);
2995
501
2996
501
  bmap_n_eq = n_div_eq(bmap);
2997
501
  context_n_eq = n_div_eq(context);
2998
501
2999
501
  if (
bmap_n_eq < 0 || 501
context_n_eq < 0501
)
3000
0
    return isl_basic_map_free(bmap);
3001
501
  
if (501
bmap_n_eq == 0 || 501
context_n_eq == 0316
)
3002
494
    return bmap;
3003
7
3004
7
  A = extract_compressed_stride_constraints(bmap, bmap_n_eq,
3005
7
                context, context_n_eq);
3006
7
  bmap = reduce_stride_constraints(bmap, bmap_n_eq, A);
3007
7
3008
7
  isl_mat_free(A);
3009
7
3010
7
  return bmap;
3011
7
}
3012
3013
/* Return a basic map that has the same intersection with "context" as "bmap"
3014
 * and that is as "simple" as possible.
3015
 *
3016
 * The core computation is performed on the pure constraints.
3017
 * When we add back the meaning of the integer divisions, we need
3018
 * to (re)introduce the div constraints.  If we happen to have
3019
 * discovered that some of these integer divisions are equal to
3020
 * some affine combination of other variables, then these div
3021
 * constraints may end up getting simplified in terms of the equalities,
3022
 * resulting in extra inequalities on the other variables that
3023
 * may have been removed already or that may not even have been
3024
 * part of the input.  We try and remove those constraints of
3025
 * this form that are most obviously redundant with respect to
3026
 * the context.  We also remove those div constraints that are
3027
 * redundant with respect to the other constraints in the result.
3028
 *
3029
 * The stride constraints among the equality constraints in "bmap" are
3030
 * also simplified with respecting to the other equality constraints
3031
 * in "bmap" and with respect to all equality constraints in "context".
3032
 */
3033
__isl_give isl_basic_map *isl_basic_map_gist(__isl_take isl_basic_map *bmap,
3034
  __isl_take isl_basic_map *context)
3035
20.2k
{
3036
20.2k
  isl_basic_set *bset, *eq;
3037
20.2k
  isl_basic_map *eq_bmap;
3038
20.2k
  unsigned total, n_div, extra, n_eq, n_ineq;
3039
20.2k
3040
20.2k
  if (
!bmap || 20.2k
!context20.2k
)
3041
0
    goto error;
3042
20.2k
3043
20.2k
  
if (20.2k
isl_basic_map_plain_is_universe(bmap)20.2k
) {
3044
1.42k
    isl_basic_map_free(context);
3045
1.42k
    return bmap;
3046
1.42k
  }
3047
18.7k
  
if (18.7k
isl_basic_map_plain_is_empty(context)18.7k
) {
3048
0
    isl_space *space = isl_basic_map_get_space(bmap);
3049
0
    isl_basic_map_free(bmap);
3050
0
    isl_basic_map_free(context);
3051
0
    return isl_basic_map_universe(space);
3052
0
  }
3053
18.7k
  
if (18.7k
isl_basic_map_plain_is_empty(bmap)18.7k
) {
3054
0
    isl_basic_map_free(context);
3055
0
    return bmap;
3056
0
  }
3057
18.7k
3058
18.7k
  bmap = isl_basic_map_remove_redundancies(bmap);
3059
18.7k
  context = isl_basic_map_remove_redundancies(context);
3060
18.7k
  if (!context)
3061
0
    goto error;
3062
18.7k
3063
18.7k
  context = isl_basic_map_align_divs(context, bmap);
3064
18.7k
  n_div = isl_basic_map_dim(context, isl_dim_div);
3065
18.7k
  total = isl_basic_map_dim(bmap, isl_dim_all);
3066
18.7k
  extra = n_div - isl_basic_map_dim(bmap, isl_dim_div);
3067
18.7k
3068
18.7k
  bset = isl_basic_map_underlying_set(isl_basic_map_copy(bmap));
3069
18.7k
  bset = isl_basic_set_add_dims(bset, isl_dim_set, extra);
3070
18.7k
  bset = uset_gist(bset,
3071
18.7k
        isl_basic_map_underlying_set(isl_basic_map_copy(context)));
3072
18.7k
  bset = isl_basic_set_project_out(bset, isl_dim_set, total, extra);
3073
18.7k
3074
18.7k
  if (
!bset || 18.7k
bset->n_eq == 018.7k
||
n_div == 011.2k
||
3075
18.7k
      
isl_basic_set_plain_is_empty(bset)602
) {
3076
18.2k
    isl_basic_map_free(context);
3077
18.2k
    return isl_basic_map_overlying_set(bset, bmap);
3078
18.2k
  }
3079
501
3080
501
  n_eq = bset->n_eq;
3081
501
  n_ineq = bset->n_ineq;
3082
501
  eq = isl_basic_set_copy(bset);
3083
501
  eq = isl_basic_set_cow(eq);
3084
501
  if (isl_basic_set_free_inequality(eq, n_ineq) < 0)
3085
0
    eq = isl_basic_set_free(eq);
3086
501
  if (isl_basic_set_free_equality(bset, n_eq) < 0)
3087
0
    bset = isl_basic_set_free(bset);
3088
501
3089
501
  eq_bmap = isl_basic_map_overlying_set(eq, isl_basic_map_copy(bmap));
3090
501
  eq_bmap = gist_strides(eq_bmap, context);
3091
501
  eq_bmap = isl_basic_map_remove_shifted_constraints(eq_bmap, context);
3092
501
  bmap = isl_basic_map_overlying_set(bset, bmap);
3093
501
  bmap = isl_basic_map_intersect(bmap, eq_bmap);
3094
501
  bmap = isl_basic_map_remove_redundancies(bmap);
3095
501
3096
501
  return bmap;
3097
0
error:
3098
0
  isl_basic_map_free(bmap);
3099
0
  isl_basic_map_free(context);
3100
0
  return NULL;
3101
20.2k
}
3102
3103
/*
3104
 * Assumes context has no implicit divs.
3105
 */
3106
__isl_give isl_map *isl_map_gist_basic_map(__isl_take isl_map *map,
3107
  __isl_take isl_basic_map *context)
3108
19.3k
{
3109
19.3k
  int i;
3110
19.3k
3111
19.3k
  if (
!map || 19.3k
!context19.3k
)
3112
0
    goto error;
3113
19.3k
3114
19.3k
  
if (19.3k
isl_basic_map_plain_is_empty(context)19.3k
) {
3115
0
    isl_space *space = isl_map_get_space(map);
3116
0
    isl_map_free(map);
3117
0
    isl_basic_map_free(context);
3118
0
    return isl_map_universe(space);
3119
0
  }
3120
19.3k
3121
19.3k
  context = isl_basic_map_remove_redundancies(context);
3122
19.3k
  map = isl_map_cow(map);
3123
19.3k
  if (
!map || 19.3k
!context19.3k
)
3124
0
    goto error;
3125
19.3k
  
isl_assert19.3k
(map->ctx, isl_space_is_equal(map->dim, context->dim), goto error);
3126
19.3k
  map = isl_map_compute_divs(map);
3127
19.3k
  if (!map)
3128
0
    goto error;
3129
38.7k
  
for (i = map->n - 1; 19.3k
i >= 038.7k
;
--i19.4k
) {
3130
19.4k
    map->p[i] = isl_basic_map_gist(map->p[i],
3131
19.4k
            isl_basic_map_copy(context));
3132
19.4k
    if (!map->p[i])
3133
0
      goto error;
3134
19.4k
    
if (19.4k
isl_basic_map_plain_is_empty(map->p[i])19.4k
) {
3135
2.51k
      isl_basic_map_free(map->p[i]);
3136
2.51k
      if (i != map->n - 1)
3137
1.07k
        map->p[i] = map->p[map->n - 1];
3138
2.51k
      map->n--;
3139
2.51k
    }
3140
19.4k
  }
3141
19.3k
  isl_basic_map_free(context);
3142
19.3k
  ISL_F_CLR(map, ISL_MAP_NORMALIZED);
3143
19.3k
  return map;
3144
0
error:
3145
0
  isl_map_free(map);
3146
0
  isl_basic_map_free(context);
3147
0
  return NULL;
3148
19.3k
}
3149
3150
/* Drop all inequalities from "bmap" that also appear in "context".
3151
 * "context" is assumed to have only known local variables and
3152
 * the initial local variables of "bmap" are assumed to be the same
3153
 * as those of "context".
3154
 * The constraints of both "bmap" and "context" are assumed
3155
 * to have been sorted using isl_basic_map_sort_constraints.
3156
 *
3157
 * Run through the inequality constraints of "bmap" and "context"
3158
 * in sorted order.
3159
 * If a constraint of "bmap" involves variables not in "context",
3160
 * then it cannot appear in "context".
3161
 * If a matching constraint is found, it is removed from "bmap".
3162
 */
3163
static __isl_give isl_basic_map *drop_inequalities(
3164
  __isl_take isl_basic_map *bmap, __isl_keep isl_basic_map *context)
3165
388
{
3166
388
  int i1, i2;
3167
388
  unsigned total, extra;
3168
388
3169
388
  if (
!bmap || 388
!context388
)
3170
0
    return isl_basic_map_free(bmap);
3171
388
3172
388
  total = isl_basic_map_total_dim(context);
3173
388
  extra = isl_basic_map_total_dim(bmap) - total;
3174
388
3175
388
  i1 = bmap->n_ineq - 1;
3176
388
  i2 = context->n_ineq - 1;
3177
1.46k
  while (
bmap && 1.46k
i1 >= 01.46k
&&
i2 >= 01.21k
) {
3178
1.08k
    int cmp;
3179
1.08k
3180
1.08k
    if (isl_seq_first_non_zero(bmap->ineq[i1] + 1 + total,
3181
1.08k
              extra) != -1) {
3182
18
      --i1;
3183
18
      continue;
3184
18
    }
3185
1.06k
    cmp = isl_basic_map_constraint_cmp(context, bmap->ineq[i1],
3186
1.06k
              context->ineq[i2]);
3187
1.06k
    if (
cmp < 01.06k
) {
3188
0
      --i2;
3189
0
      continue;
3190
0
    }
3191
1.06k
    
if (1.06k
cmp > 01.06k
) {
3192
295
      --i1;
3193
295
      continue;
3194
295
    }
3195
767
    
if (767
isl_int_eq767
(bmap->ineq[i1][0], context->ineq[i2][0])) {
3196
689
      bmap = isl_basic_map_cow(bmap);
3197
689
      if (isl_basic_map_drop_inequality(bmap, i1) < 0)
3198
0
        bmap = isl_basic_map_free(bmap);
3199
689
    }
3200
1.08k
    --i1;
3201
1.08k
    --i2;
3202
1.08k
  }
3203
388
3204
388
  return bmap;
3205
388
}
3206
3207
/* Drop all equalities from "bmap" that also appear in "context".
3208
 * "context" is assumed to have only known local variables and
3209
 * the initial local variables of "bmap" are assumed to be the same
3210
 * as those of "context".
3211
 *
3212
 * Run through the equality constraints of "bmap" and "context"
3213
 * in sorted order.
3214
 * If a constraint of "bmap" involves variables not in "context",
3215
 * then it cannot appear in "context".
3216
 * If a matching constraint is found, it is removed from "bmap".
3217
 */
3218
static __isl_give isl_basic_map *drop_equalities(
3219
  __isl_take isl_basic_map *bmap, __isl_keep isl_basic_map *context)
3220
388
{
3221
388
  int i1, i2;
3222
388
  unsigned total, extra;
3223
388
3224
388
  if (
!bmap || 388
!context388
)
3225
0
    return isl_basic_map_free(bmap);
3226
388
3227
388
  total = isl_basic_map_total_dim(context);
3228
388
  extra = isl_basic_map_total_dim(bmap) - total;
3229
388
3230
388
  i1 = bmap->n_eq - 1;
3231
388
  i2 = context->n_eq - 1;
3232
388
3233
420
  while (
bmap && 420
i1 >= 0420
&&
i2 >= 089
) {
3234
32
    int last1, last2;
3235
32
3236
32
    if (isl_seq_first_non_zero(bmap->eq[i1] + 1 + total,
3237
32
              extra) != -1)
3238
0
      break;
3239
32
    last1 = isl_seq_last_non_zero(bmap->eq[i1] + 1, total);
3240
32
    last2 = isl_seq_last_non_zero(context->eq[i2] + 1, total);
3241
32
    if (
last1 > last232
) {
3242
0
      --i2;
3243
0
      continue;
3244
0
    }
3245
32
    
if (32
last1 < last232
) {
3246
3
      --i1;
3247
3
      continue;
3248
3
    }
3249
29
    
if (29
isl_seq_eq(bmap->eq[i1], context->eq[i2], 1 + total)29
) {
3250
29
      bmap = isl_basic_map_cow(bmap);
3251
29
      if (isl_basic_map_drop_equality(bmap, i1) < 0)
3252
0
        bmap = isl_basic_map_free(bmap);
3253
29
    }
3254
32
    --i1;
3255
32
    --i2;
3256
32
  }
3257
388
3258
388
  return bmap;
3259
388
}
3260
3261
/* Remove the constraints in "context" from "bmap".
3262
 * "context" is assumed to have explicit representations
3263
 * for all local variables.
3264
 *
3265
 * First align the divs of "bmap" to those of "context" and
3266
 * sort the constraints.  Then drop all constraints from "bmap"
3267
 * that appear in "context".
3268
 */
3269
__isl_give isl_basic_map *isl_basic_map_plain_gist(
3270
  __isl_take isl_basic_map *bmap, __isl_take isl_basic_map *context)
3271
388
{
3272
388
  isl_bool done, known;
3273
388
3274
388
  done = isl_basic_map_plain_is_universe(context);
3275
388
  if (done == isl_bool_false)
3276
388
    done = isl_basic_map_plain_is_universe(bmap);
3277
388
  if (done == isl_bool_false)
3278
388
    done = isl_basic_map_plain_is_empty(context);
3279
388
  if (done == isl_bool_false)
3280
388
    done = isl_basic_map_plain_is_empty(bmap);
3281
388
  if (done < 0)
3282
0
    goto error;
3283
388
  
if (388
done388
) {
3284
0
    isl_basic_map_free(context);
3285
0
    return bmap;
3286
0
  }
3287
388
  known = isl_basic_map_divs_known(context);
3288
388
  if (known < 0)
3289
0
    goto error;
3290
388
  
if (388
!known388
)
3291
0
    isl_die(isl_basic_map_get_ctx(bmap), isl_error_invalid,
3292
388
      "context has unknown divs", goto error);
3293
388
3294
388
  bmap = isl_basic_map_align_divs(bmap, context);
3295
388
  bmap = isl_basic_map_gauss(bmap, NULL);
3296
388
  bmap = isl_basic_map_sort_constraints(bmap);
3297
388
  context = isl_basic_map_sort_constraints(context);
3298
388
3299
388
  bmap = drop_inequalities(bmap, context);
3300
388
  bmap = drop_equalities(bmap, context);
3301
388
3302
388
  isl_basic_map_free(context);
3303
388
  bmap = isl_basic_map_finalize(bmap);
3304
388
  return bmap;
3305
0
error:
3306
0
  isl_basic_map_free(bmap);
3307
0
  isl_basic_map_free(context);
3308
0
  return NULL;
3309
388
}
3310
3311
/* Replace "map" by the disjunct at position "pos" and free "context".
3312
 */
3313
static __isl_give isl_map *replace_by_disjunct(__isl_take isl_map *map,
3314
  int pos, __isl_take isl_basic_map *context)
3315
5
{
3316
5
  isl_basic_map *bmap;
3317
5
3318
5
  bmap = isl_basic_map_copy(map->p[pos]);
3319
5
  isl_map_free(map);
3320
5
  isl_basic_map_free(context);
3321
5
  return isl_map_from_basic_map(bmap);
3322
5
}
3323
3324
/* Remove the constraints in "context" from "map".
3325
 * If any of the disjuncts in the result turns out to be the universe,
3326
 * then return this universe.
3327
 * "context" is assumed to have explicit representations
3328
 * for all local variables.
3329
 */
3330
__isl_give isl_map *isl_map_plain_gist_basic_map(__isl_take isl_map *map,
3331
  __isl_take isl_basic_map *context)
3332
287
{
3333
287
  int i;
3334
287
  isl_bool univ, known;
3335
287
3336
287
  univ = isl_basic_map_plain_is_universe(context);
3337
287
  if (univ < 0)
3338
0
    goto error;
3339
287
  
if (287
univ287
) {
3340
86
    isl_basic_map_free(context);
3341
86
    return map;
3342
86
  }
3343
201
  known = isl_basic_map_divs_known(context);
3344
201
  if (known < 0)
3345
0
    goto error;
3346
201
  
if (201
!known201
)
3347
0
    isl_die(isl_map_get_ctx(map), isl_error_invalid,
3348
201
      "context has unknown divs", goto error);
3349
201
3350
201
  map = isl_map_cow(map);
3351
201
  if (!map)
3352
0
    goto error;
3353
584
  
for (i = 0; 201
i < map->n584
;
++i383
) {
3354
388
    map->p[i] = isl_basic_map_plain_gist(map->p[i],
3355
388
            isl_basic_map_copy(context));
3356
388
    univ = isl_basic_map_plain_is_universe(map->p[i]);
3357
388
    if (univ < 0)
3358
0
      goto error;
3359
388
    
if (388
univ && 388
map->n > 15
)
3360
5
      return replace_by_disjunct(map, i, context);
3361
388
  }
3362
201
3363
196
  isl_basic_map_free(context);
3364
196
  ISL_F_CLR(map, ISL_MAP_NORMALIZED);
3365
196
  if (map->n > 1)
3366
196
    ISL_F_CLR(map, ISL_MAP_DISJOINT);
3367
196
  return map;
3368
0
error:
3369
0
  isl_map_free(map);
3370
0
  isl_basic_map_free(context);
3371
0
  return NULL;
3372
287
}
3373
3374
/* Remove the constraints in "context" from "set".
3375
 * If any of the disjuncts in the result turns out to be the universe,
3376
 * then return this universe.
3377
 * "context" is assumed to have explicit representations
3378
 * for all local variables.
3379
 */
3380
__isl_give isl_set *isl_set_plain_gist_basic_set(__isl_take isl_set *set,
3381
  __isl_take isl_basic_set *context)
3382
103
{
3383
103
  return set_from_map(isl_map_plain_gist_basic_map(set_to_map(set),
3384
103
              bset_to_bmap(context)));
3385
103
}
3386
3387
/* Remove the constraints in "context" from "map".
3388
 * If any of the disjuncts in the result turns out to be the universe,
3389
 * then return this universe.
3390
 * "context" is assumed to consist of a single disjunct and
3391
 * to have explicit representations for all local variables.
3392
 */
3393
__isl_give isl_map *isl_map_plain_gist(__isl_take isl_map *map,
3394
  __isl_take isl_map *context)
3395
24
{
3396
24
  isl_basic_map *hull;
3397
24
3398
24
  hull = isl_map_unshifted_simple_hull(context);
3399
24
  return isl_map_plain_gist_basic_map(map, hull);
3400
24
}
3401
3402
/* Replace "map" by a universe map in the same space and free "drop".
3403
 */
3404
static __isl_give isl_map *replace_by_universe(__isl_take isl_map *map,
3405
  __isl_take isl_map *drop)
3406
8.82k
{
3407
8.82k
  isl_map *res;
3408
8.82k
3409
8.82k
  res = isl_map_universe(isl_map_get_space(map));
3410
8.82k
  isl_map_free(map);
3411
8.82k
  isl_map_free(drop);
3412
8.82k
  return res;
3413
8.82k
}
3414
3415
/* Return a map that has the same intersection with "context" as "map"
3416
 * and that is as "simple" as possible.
3417
 *
3418
 * If "map" is already the universe, then we cannot make it any simpler.
3419
 * Similarly, if "context" is the universe, then we cannot exploit it
3420
 * to simplify "map"
3421
 * If "map" and "context" are identical to each other, then we can
3422
 * return the corresponding universe.
3423
 *
3424
 * If either "map" or "context" consists of multiple disjuncts,
3425
 * then check if "context" happens to be a subset of "map",
3426
 * in which case all constraints can be removed.
3427
 * In case of multiple disjuncts, the standard procedure
3428
 * may not be able to detect that all constraints can be removed.
3429
 *
3430
 * If none of these cases apply, we have to work a bit harder.
3431
 * During this computation, we make use of a single disjunct context,
3432
 * so if the original context consists of more than one disjunct
3433
 * then we need to approximate the context by a single disjunct set.
3434
 * Simply taking the simple hull may drop constraints that are
3435
 * only implicitly available in each disjunct.  We therefore also
3436
 * look for constraints among those defining "map" that are valid
3437
 * for the context.  These can then be used to simplify away
3438
 * the corresponding constraints in "map".
3439
 */
3440
static __isl_give isl_map *map_gist(__isl_take isl_map *map,
3441
  __isl_take isl_map *context)
3442
54.2k
{
3443
54.2k
  int equal;
3444
54.2k
  int is_universe;
3445
54.2k
  int single_disjunct_map, single_disjunct_context;
3446
54.2k
  isl_bool subset;
3447
54.2k
  isl_basic_map *hull;
3448
54.2k
3449
54.2k
  is_universe = isl_map_plain_is_universe(map);
3450
54.2k
  if (
is_universe >= 0 && 54.2k
!is_universe54.2k
)
3451
34.2k
    is_universe = isl_map_plain_is_universe(context);
3452
54.2k
  if (is_universe < 0)
3453
0
    goto error;
3454
54.2k
  
if (54.2k
is_universe54.2k
) {
3455
28.2k
    isl_map_free(context);
3456
28.2k
    return map;
3457
28.2k
  }
3458
26.0k
3459
26.0k
  equal = isl_map_plain_is_equal(map, context);
3460
26.0k
  if (equal < 0)
3461
0
    goto error;
3462
26.0k
  
if (26.0k
equal26.0k
)
3463
8.80k
    return replace_by_universe(map, context);
3464
17.2k
3465
17.2k
  single_disjunct_map = isl_map_n_basic_map(map) == 1;
3466
17.2k
  single_disjunct_context = isl_map_n_basic_map(context) == 1;
3467
17.2k
  if (
!single_disjunct_map || 17.2k
!single_disjunct_context12.2k
) {
3468
5.42k
    subset = isl_map_is_subset(context, map);
3469
5.42k
    if (subset < 0)
3470
0
      goto error;
3471
5.42k
    
if (5.42k
subset5.42k
)
3472
19
      return replace_by_universe(map, context);
3473
17.1k
  }
3474
17.1k
3475
17.1k
  context = isl_map_compute_divs(context);
3476
17.1k
  if (!context)
3477
0
    goto error;
3478
17.1k
  
if (17.1k
single_disjunct_context17.1k
) {
3479
16.5k
    hull = isl_map_simple_hull(context);
3480
17.1k
  } else {
3481
686
    isl_ctx *ctx;
3482
686
    isl_map_list *list;
3483
686
3484
686
    ctx = isl_map_get_ctx(map);
3485
686
    list = isl_map_list_alloc(ctx, 2);
3486
686
    list = isl_map_list_add(list, isl_map_copy(context));
3487
686
    list = isl_map_list_add(list, isl_map_copy(map));
3488
686
    hull = isl_map_unshifted_simple_hull_from_map_list(context,
3489
686
                    list);
3490
686
  }
3491
17.1k
  return isl_map_gist_basic_map(map, hull);
3492
0
error:
3493
0
  isl_map_free(map);
3494
0
  isl_map_free(context);
3495
0
  return NULL;
3496
54.2k
}
3497
3498
__isl_give isl_map *isl_map_gist(__isl_take isl_map *map,
3499
  __isl_take isl_map *context)
3500
54.2k
{
3501
54.2k
  return isl_map_align_params_map_map_and(map, context, &map_gist);
3502
54.2k
}
3503
3504
struct isl_basic_set *isl_basic_set_gist(struct isl_basic_set *bset,
3505
            struct isl_basic_set *context)
3506
792
{
3507
792
  return bset_from_bmap(isl_basic_map_gist(bset_to_bmap(bset),
3508
792
            bset_to_bmap(context)));
3509
792
}
3510
3511
__isl_give isl_set *isl_set_gist_basic_set(__isl_take isl_set *set,
3512
  __isl_take isl_basic_set *context)
3513
2.13k
{
3514
2.13k
  return set_from_map(isl_map_gist_basic_map(set_to_map(set),
3515
2.13k
          bset_to_bmap(context)));
3516
2.13k
}
3517
3518
__isl_give isl_set *isl_set_gist_params_basic_set(__isl_take isl_set *set,
3519
  __isl_take isl_basic_set *context)
3520
0
{
3521
0
  isl_space *space = isl_set_get_space(set);
3522
0
  isl_basic_set *dom_context = isl_basic_set_universe(space);
3523
0
  dom_context = isl_basic_set_intersect_params(dom_context, context);
3524
0
  return isl_set_gist_basic_set(set, dom_context);
3525
0
}
3526
3527
__isl_give isl_set *isl_set_gist(__isl_take isl_set *set,
3528
  __isl_take isl_set *context)
3529
14.0k
{
3530
14.0k
  return set_from_map(isl_map_gist(set_to_map(set), set_to_map(context)));
3531
14.0k
}
3532
3533
/* Compute the gist of "bmap" with respect to the constraints "context"
3534
 * on the domain.
3535
 */
3536
__isl_give isl_basic_map *isl_basic_map_gist_domain(
3537
  __isl_take isl_basic_map *bmap, __isl_take isl_basic_set *context)
3538
0
{
3539
0
  isl_space *space = isl_basic_map_get_space(bmap);
3540
0
  isl_basic_map *bmap_context = isl_basic_map_universe(space);
3541
0
3542
0
  bmap_context = isl_basic_map_intersect_domain(bmap_context, context);
3543
0
  return isl_basic_map_gist(bmap, bmap_context);
3544
0
}
3545
3546
__isl_give isl_map *isl_map_gist_domain(__isl_take isl_map *map,
3547
  __isl_take isl_set *context)
3548
6.43k
{
3549
6.43k
  isl_map *map_context = isl_map_universe(isl_map_get_space(map));
3550
6.43k
  map_context = isl_map_intersect_domain(map_context, context);
3551
6.43k
  return isl_map_gist(map, map_context);
3552
6.43k
}
3553
3554
__isl_give isl_map *isl_map_gist_range(__isl_take isl_map *map,
3555
  __isl_take isl_set *context)
3556
90
{
3557
90
  isl_map *map_context = isl_map_universe(isl_map_get_space(map));
3558
90
  map_context = isl_map_intersect_range(map_context, context);
3559
90
  return isl_map_gist(map, map_context);
3560
90
}
3561
3562
__isl_give isl_map *isl_map_gist_params(__isl_take isl_map *map,
3563
  __isl_take isl_set *context)
3564
29.5k
{
3565
29.5k
  isl_map *map_context = isl_map_universe(isl_map_get_space(map));
3566
29.5k
  map_context = isl_map_intersect_params(map_context, context);
3567
29.5k
  return isl_map_gist(map, map_context);
3568
29.5k
}
3569
3570
__isl_give isl_set *isl_set_gist_params(__isl_take isl_set *set,
3571
  __isl_take isl_set *context)
3572
23.1k
{
3573
23.1k
  return isl_map_gist_params(set, context);
3574
23.1k
}
3575
3576
/* Quick check to see if two basic maps are disjoint.
3577
 * In particular, we reduce the equalities and inequalities of
3578
 * one basic map in the context of the equalities of the other
3579
 * basic map and check if we get a contradiction.
3580
 */
3581
isl_bool isl_basic_map_plain_is_disjoint(__isl_keep isl_basic_map *bmap1,
3582
  __isl_keep isl_basic_map *bmap2)
3583
30.4k
{
3584
30.4k
  struct isl_vec *v = NULL;
3585
30.4k
  int *elim = NULL;
3586
30.4k
  unsigned total;
3587
30.4k
  int i;
3588
30.4k
3589
30.4k
  if (
!bmap1 || 30.4k
!bmap230.4k
)
3590
0
    return isl_bool_error;
3591
30.4k
  
isl_assert30.4k
(bmap1->ctx, isl_space_is_equal(bmap1->dim, bmap2->dim),
3592
30.4k
      return isl_bool_error);
3593
30.4k
  
if (30.4k
bmap1->n_div || 30.4k
bmap2->n_div29.4k
)
3594
1.11k
    return isl_bool_false;
3595
29.2k
  
if (29.2k
!bmap1->n_eq && 29.2k
!bmap2->n_eq9.04k
)
3596
7.68k
    return isl_bool_false;
3597
21.6k
3598
21.6k
  total = isl_space_dim(bmap1->dim, isl_dim_all);
3599
21.6k
  if (total == 0)
3600
0
    return isl_bool_false;
3601
21.6k
  v = isl_vec_alloc(bmap1->ctx, 1 + total);
3602
21.6k
  if (!v)
3603
0
    goto error;
3604
21.6k
  
elim = 21.6k
isl_alloc_array21.6k
(bmap1->ctx, int, total);
3605
21.6k
  if (!elim)
3606
0
    goto error;
3607
21.6k
  compute_elimination_index(bmap1, elim);
3608
49.3k
  for (i = 0; 
i < bmap2->n_eq49.3k
;
++i27.7k
) {
3609
29.6k
    int reduced;
3610
29.6k
    reduced = reduced_using_equalities(v->block.data, bmap2->eq[i],
3611
29.6k
              bmap1, elim);
3612
29.6k
    if (
reduced && 29.6k
!15.9k
isl_int_is_zero15.9k
(v->block.data[0]) &&
3613
4.20k
        isl_seq_first_non_zero(v->block.data + 1, total) == -1)
3614
1.90k
      goto disjoint;
3615
29.6k
  }
3616
144k
  
for (i = 0; 19.7k
i < bmap2->n_ineq144k
;
++i124k
) {
3617
130k
    int reduced;
3618
130k
    reduced = reduced_using_equalities(v->block.data,
3619
130k
            bmap2->ineq[i], bmap1, elim);
3620
130k
    if (
reduced && 130k
isl_int_is_neg9.95k
(v->block.data[0]) &&
3621
6.65k
        isl_seq_first_non_zero(v->block.data + 1, total) == -1)
3622
5.31k
      goto disjoint;
3623
130k
  }
3624
14.3k
  compute_elimination_index(bmap2, elim);
3625
89.6k
  for (i = 0; 
i < bmap1->n_ineq89.6k
;
++i75.2k
) {
3626
79.8k
    int reduced;
3627
79.8k
    reduced = reduced_using_equalities(v->block.data,
3628
79.8k
            bmap1->ineq[i], bmap2, elim);
3629
79.8k
    if (
reduced && 79.8k
isl_int_is_neg7.73k
(v->block.data[0]) &&
3630
5.92k
        isl_seq_first_non_zero(v->block.data + 1, total) == -1)
3631
4.66k
      goto disjoint;
3632
79.8k
  }
3633
9.73k
  isl_vec_free(v);
3634
9.73k
  free(elim);
3635
9.73k
  return isl_bool_false;
3636
11.8k
disjoint:
3637
11.8k
  isl_vec_free(v);
3638
11.8k
  free(elim);
3639
11.8k
  return isl_bool_true;
3640
0
error:
3641
0
  isl_vec_free(v);
3642
0
  free(elim);
3643
0
  return isl_bool_error;
3644
30.4k
}
3645
3646
int isl_basic_set_plain_is_disjoint(__isl_keep isl_basic_set *bset1,
3647
  __isl_keep isl_basic_set *bset2)
3648
0
{
3649
0
  return isl_basic_map_plain_is_disjoint(bset_to_bmap(bset1),
3650
0
                bset_to_bmap(bset2));
3651
0
}
3652
3653
/* Does "test" hold for all pairs of basic maps in "map1" and "map2"?
3654
 */
3655
static isl_bool all_pairs(__isl_keep isl_map *map1, __isl_keep isl_map *map2,
3656
  isl_bool (*test)(__isl_keep isl_basic_map *bmap1,
3657
    __isl_keep isl_basic_map *bmap2))
3658
19.6k
{
3659
19.6k
  int i, j;
3660
19.6k
3661
19.6k
  if (
!map1 || 19.6k
!map219.6k
)
3662
0
    return isl_bool_error;
3663
19.6k
3664
34.9k
  
for (i = 0; 19.6k
i < map1->n34.9k
;
++i15.2k
) {
3665
45.6k
    for (j = 0; 
j < map2->n45.6k
;
++j17.4k
) {
3666
30.3k
      isl_bool d = test(map1->p[i], map2->p[j]);
3667
30.3k
      if (d != isl_bool_true)
3668
12.9k
        return d;
3669
30.3k
    }
3670
28.2k
  }
3671
19.6k
3672
6.72k
  return isl_bool_true;
3673
19.6k
}
3674
3675
/* Are "map1" and "map2" obviously disjoint, based on information
3676
 * that can be derived without looking at the individual basic maps?
3677
 *
3678
 * In particular, if one of them is empty or if they live in different spaces
3679
 * (ignoring parameters), then they are clearly disjoint.
3680
 */
3681
static isl_bool isl_map_plain_is_disjoint_global(__isl_keep isl_map *map1,
3682
  __isl_keep isl_map *map2)
3683
40.2k
{
3684
40.2k
  isl_bool disjoint;
3685
40.2k
  isl_bool match;
3686
40.2k
3687
40.2k
  if (
!map1 || 40.2k
!map240.2k
)
3688
0
    return isl_bool_error;
3689
40.2k
3690
40.2k
  disjoint = isl_map_plain_is_empty(map1);
3691
40.2k
  if (
disjoint < 0 || 40.2k
disjoint40.2k
)
3692
5.54k
    return disjoint;
3693
34.7k
3694
34.7k
  disjoint = isl_map_plain_is_empty(map2);
3695
34.7k
  if (
disjoint < 0 || 34.7k
disjoint34.7k
)
3696
9.02k
    return disjoint;
3697
25.7k
3698
25.7k
  match = isl_space_tuple_is_equal(map1->dim, isl_dim_in,
3699
25.7k
        map2->dim, isl_dim_in);
3700
25.7k
  if (
match < 0 || 25.7k
!match25.7k
)
3701
0
    
return match < 0 ? 0
isl_bool_error0
:
isl_bool_true0
;
3702
25.7k
3703
25.7k
  match = isl_space_tuple_is_equal(map1->dim, isl_dim_out,
3704
25.7k
        map2->dim, isl_dim_out);
3705
25.7k
  if (
match < 0 || 25.7k
!match25.7k
)
3706
0
    
return match < 0 ? 0
isl_bool_error0
:
isl_bool_true0
;
3707
25.7k
3708
25.7k
  return isl_bool_false;
3709
25.7k
}
3710
3711
/* Are "map1" and "map2" obviously disjoint?
3712
 *
3713
 * If one of them is empty or if they live in different spaces (ignoring
3714
 * parameters), then they are clearly disjoint.
3715
 * This is checked by isl_map_plain_is_disjoint_global.
3716
 *
3717
 * If they have different parameters, then we skip any further tests.
3718
 *
3719
 * If they are obviously equal, but not obviously empty, then we will
3720
 * not be able to detect if they are disjoint.
3721
 *
3722
 * Otherwise we check if each basic map in "map1" is obviously disjoint
3723
 * from each basic map in "map2".
3724
 */
3725
isl_bool isl_map_plain_is_disjoint(__isl_keep isl_map *map1,
3726
  __isl_keep isl_map *map2)
3727
0
{
3728
0
  isl_bool disjoint;
3729
0
  isl_bool intersect;
3730
0
  isl_bool match;
3731
0
3732
0
  disjoint = isl_map_plain_is_disjoint_global(map1, map2);
3733
0
  if (
disjoint < 0 || 0
disjoint0
)
3734
0
    return disjoint;
3735
0
3736
0
  match = isl_map_has_equal_params(map1, map2);
3737
0
  if (
match < 0 || 0
!match0
)
3738
0
    
return match < 0 ? 0
isl_bool_error0
:
isl_bool_false0
;
3739
0
3740
0
  intersect = isl_map_plain_is_equal(map1, map2);
3741
0
  if (
intersect < 0 || 0
intersect0
)
3742
0
    
return intersect < 0 ? 0
isl_bool_error0
:
isl_bool_false0
;
3743
0
3744
0
  return all_pairs(map1, map2, &isl_basic_map_plain_is_disjoint);
3745
0
}
3746
3747
/* Are "map1" and "map2" disjoint?
3748
 * The parameters are assumed to have been aligned.
3749
 *
3750
 * In particular, check whether all pairs of basic maps are disjoint.
3751
 */
3752
static isl_bool isl_map_is_disjoint_aligned(__isl_keep isl_map *map1,
3753
  __isl_keep isl_map *map2)
3754
19.6k
{
3755
19.6k
  return all_pairs(map1, map2, &isl_basic_map_is_disjoint);
3756
19.6k
}
3757
3758
/* Are "map1" and "map2" disjoint?
3759
 *
3760
 * They are disjoint if they are "obviously disjoint" or if one of them
3761
 * is empty.  Otherwise, they are not disjoint if one of them is universal.
3762
 * If the two inputs are (obviously) equal and not empty, then they are
3763
 * not disjoint.
3764
 * If none of these cases apply, then check if all pairs of basic maps
3765
 * are disjoint after aligning the parameters.
3766
 */
3767
isl_bool isl_map_is_disjoint(__isl_keep isl_map *map1, __isl_keep isl_map *map2)
3768
40.2k
{
3769
40.2k
  isl_bool disjoint;
3770
40.2k
  isl_bool intersect;
3771
40.2k
3772
40.2k
  disjoint = isl_map_plain_is_disjoint_global(map1, map2);
3773
40.2k
  if (
disjoint < 0 || 40.2k
disjoint40.2k
)
3774
14.5k
    return disjoint;
3775
25.7k
3776
25.7k
  disjoint = isl_map_is_empty(map1);
3777
25.7k
  if (
disjoint < 0 || 25.7k
disjoint25.7k
)
3778
0
    return disjoint;
3779
25.7k
3780
25.7k
  disjoint = isl_map_is_empty(map2);
3781
25.7k
  if (
disjoint < 0 || 25.7k
disjoint25.7k
)
3782
0
    return disjoint;
3783
25.7k
3784
25.7k
  intersect = isl_map_plain_is_universe(map1);
3785
25.7k
  if (
intersect < 0 || 25.7k
intersect25.7k
)
3786
3.55k
    
return intersect < 0 ? 3.55k
isl_bool_error0
:
isl_bool_false3.55k
;
3787
22.1k
3788
22.1k
  intersect = isl_map_plain_is_universe(map2);
3789
22.1k
  if (
intersect < 0 || 22.1k
intersect22.1k
)
3790
1.84k
    
return intersect < 0 ? 1.84k
isl_bool_error0
:
isl_bool_false1.84k
;
3791
20.3k
3792
20.3k
  intersect = isl_map_plain_is_equal(map1, map2);
3793
20.3k
  if (
intersect < 0 || 20.3k
intersect20.3k
)
3794
644
    return isl_bool_not(intersect);
3795
19.6k
3796
19.6k
  return isl_map_align_params_map_map_and_test(map1, map2,
3797
19.6k
            &isl_map_is_disjoint_aligned);
3798
19.6k
}
3799
3800
/* Are "bmap1" and "bmap2" disjoint?
3801
 *
3802
 * They are disjoint if they are "obviously disjoint" or if one of them
3803
 * is empty.  Otherwise, they are not disjoint if one of them is universal.
3804
 * If none of these cases apply, we compute the intersection and see if
3805
 * the result is empty.
3806
 */
3807
isl_bool isl_basic_map_is_disjoint(__isl_keep isl_basic_map *bmap1,
3808
  __isl_keep isl_basic_map *bmap2)
3809
30.4k
{
3810
30.4k
  isl_bool disjoint;
3811
30.4k
  isl_bool intersect;
3812
30.4k
  isl_basic_map *test;
3813
30.4k
3814
30.4k
  disjoint = isl_basic_map_plain_is_disjoint(bmap1, bmap2);
3815
30.4k
  if (
disjoint < 0 || 30.4k
disjoint30.4k
)
3816
11.8k
    return disjoint;
3817
18.5k
3818
18.5k
  disjoint = isl_basic_map_is_empty(bmap1);
3819
18.5k
  if (
disjoint < 0 || 18.5k
disjoint18.5k
)
3820
0
    return disjoint;
3821
18.5k
3822
18.5k
  disjoint = isl_basic_map_is_empty(bmap2);
3823
18.5k
  if (
disjoint < 0 || 18.5k
disjoint18.5k
)
3824
0
    return disjoint;
3825
18.5k
3826
18.5k
  intersect = isl_basic_map_plain_is_universe(bmap1);
3827
18.5k
  if (
intersect < 0 || 18.5k
intersect18.5k
)
3828
0
    
return intersect < 0 ? 0
isl_bool_error0
:
isl_bool_false0
;
3829
18.5k
3830
18.5k
  intersect = isl_basic_map_plain_is_universe(bmap2);
3831
18.5k
  if (
intersect < 0 || 18.5k
intersect18.5k
)
3832
0
    
return intersect < 0 ? 0
isl_bool_error0
:
isl_bool_false0
;
3833
18.5k
3834
18.5k
  test = isl_basic_map_intersect(isl_basic_map_copy(bmap1),
3835
18.5k
    isl_basic_map_copy(bmap2));
3836
18.5k
  disjoint = isl_basic_map_is_empty(test);
3837
18.5k
  isl_basic_map_free(test);
3838
18.5k
3839
18.5k
  return disjoint;
3840
18.5k
}
3841
3842
/* Are "bset1" and "bset2" disjoint?
3843
 */
3844
isl_bool isl_basic_set_is_disjoint(__isl_keep isl_basic_set *bset1,
3845
  __isl_keep isl_basic_set *bset2)
3846
21
{
3847
21
  return isl_basic_map_is_disjoint(bset1, bset2);
3848
21
}
3849
3850
isl_bool isl_set_plain_is_disjoint(__isl_keep isl_set *set1,
3851
  __isl_keep isl_set *set2)
3852
0
{
3853
0
  return isl_map_plain_is_disjoint(set_to_map(set1), set_to_map(set2));
3854
0
}
3855
3856
/* Are "set1" and "set2" disjoint?
3857
 */
3858
isl_bool isl_set_is_disjoint(__isl_keep isl_set *set1, __isl_keep isl_set *set2)
3859
13.9k
{
3860
13.9k
  return isl_map_is_disjoint(set1, set2);
3861
13.9k
}
3862
3863
/* Is "v" equal to 0, 1 or -1?
3864
 */
3865
static int is_zero_or_one(isl_int v)
3866
173
{
3867
173
  return 
isl_int_is_zero173
(v) ||
isl_int_is_one58
(v) ||
isl_int_is_negone34
(v);
3868
173
}
3869
3870
/* Check if we can combine a given div with lower bound l and upper
3871
 * bound u with some other div and if so return that other div.
3872
 * Otherwise return -1.
3873
 *
3874
 * We first check that
3875
 *  - the bounds are opposites of each other (except for the constant
3876
 *    term)
3877
 *  - the bounds do not reference any other div
3878
 *  - no div is defined in terms of this div
3879
 *
3880
 * Let m be the size of the range allowed on the div by the bounds.
3881
 * That is, the bounds are of the form
3882
 *
3883
 *  e <= a <= e + m - 1
3884
 *
3885
 * with e some expression in the other variables.
3886
 * We look for another div b such that no third div is defined in terms
3887
 * of this second div b and such that in any constraint that contains
3888
 * a (except for the given lower and upper bound), also contains b
3889
 * with a coefficient that is m times that of b.
3890
 * That is, all constraints (except for the lower and upper bound)
3891
 * are of the form
3892
 *
3893
 *  e + f (a + m b) >= 0
3894
 *
3895
 * Furthermore, in the constraints that only contain b, the coefficient
3896
 * of b should be equal to 1 or -1.
3897
 * If so, we return b so that "a + m b" can be replaced by
3898
 * a single div "c = a + m b".
3899
 */
3900
static int div_find_coalesce(struct isl_basic_map *bmap, int *pairs,
3901
  unsigned div, unsigned l, unsigned u)
3902
1.14k
{
3903
1.14k
  int i, j;
3904
1.14k
  unsigned dim;
3905
1.14k
  int coalesce = -1;
3906
1.14k
3907
1.14k
  if (bmap->n_div <= 1)
3908
354
    return -1;
3909
794
  dim = isl_space_dim(bmap->dim, isl_dim_all);
3910
794
  if (isl_seq_first_non_zero(bmap->ineq[l] + 1 + dim, div) != -1)
3911
524
    return -1;
3912
270
  
if (270
isl_seq_first_non_zero(bmap->ineq[l] + 1 + dim + div + 1,
3913
270
           bmap->n_div - div - 1) != -1)
3914
29
    return -1;
3915
241
  
if (241
!isl_seq_is_neg(bmap->ineq[l] + 1, bmap->ineq[u] + 1,
3916
241
          dim + bmap->n_div))
3917
128
    return -1;
3918
113
3919
383
  
for (i = 0; 113
i < bmap->n_div383
;
++i270
) {
3920
270
    if (isl_int_is_zero(bmap->div[i][0]))
3921
202
      continue;
3922
68
    
if (68
!68
isl_int_is_zero68
(bmap->div[i][1 + 1 + dim + div]))
3923
0
      return -1;
3924
270
  }
3925
113
3926
113
  
isl_int_add113
(bmap->ineq[l][0], bmap->ineq[l][0], bmap->ineq[u][0]);
3927
113
  if (
isl_int_is_neg113
(bmap->ineq[l][0])) {
3928
0
    isl_int_sub(bmap->ineq[l][0],
3929
0
          bmap->ineq[l][0], bmap->ineq[u][0]);
3930
0
    bmap = isl_basic_map_copy(bmap);
3931
0
    bmap = isl_basic_map_set_to_empty(bmap);
3932
0
    isl_basic_map_free(bmap);
3933
0
    return -1;
3934
0
  }
3935
113
  
isl_int_add_ui113
(bmap->ineq[l][0], bmap->ineq[l][0], 1);
3936
381
  for (i = 0; 
i < bmap->n_div381
;
++i268
) {
3937
269
    if (i == div)
3938
112
      continue;
3939
157
    
if (157
!pairs[i]157
)
3940
84
      continue;
3941
273
    
for (j = 0; 73
j < bmap->n_div273
;
++j200
) {
3942
200
      if (isl_int_is_zero(bmap->div[j][0]))
3943
165
        continue;
3944
35
      
if (35
!35
isl_int_is_zero35
(bmap->div[j][1 + 1 + dim + i]))
3945
0
        break;
3946
200
    }
3947
73
    if (j < bmap->n_div)
3948
0
      continue;
3949
304
    
for (j = 0; 73
j < bmap->n_ineq304
;
++j231
) {
3950
303
      int valid;
3951
303
      if (
j == l || 303
j == u265
)
3952
76
        continue;
3953
227
      
if (227
isl_int_is_zero227
(bmap->ineq[j][1 + dim + div])) {
3954
173
        if (is_zero_or_one(bmap->ineq[j][1 + dim + i]))
3955
151
          continue;
3956
22
        break;
3957
22
      }
3958
54
      
if (54
isl_int_is_zero54
(bmap->ineq[j][1 + dim + i]))
3959
35
        break;
3960
19
      
isl_int_mul19
(bmap->ineq[j][1 + dim + div],
3961
19
            bmap->ineq[j][1 + dim + div],
3962
19
            bmap->ineq[l][0]);
3963
19
      valid = isl_int_eq(bmap->ineq[j][1 + dim + div],
3964
19
             bmap->ineq[j][1 + dim + i]);
3965
19
      isl_int_divexact(bmap->ineq[j][1 + dim + div],
3966
19
           bmap->ineq[j][1 + dim + div],
3967
19
           bmap->ineq[l][0]);
3968
19
      if (!valid)
3969
15
        break;
3970
303
    }
3971
73
    if (j < bmap->n_ineq)
3972
72
      continue;
3973
1
    coalesce = i;
3974
1
    break;
3975
1
  }
3976
113
  isl_int_sub_ui(bmap->ineq[l][0], bmap->ineq[l][0], 1);
3977
113
  isl_int_sub(bmap->ineq[l][0], bmap->ineq[l][0], bmap->ineq[u][0]);
3978
1.14k
  return coalesce;
3979
1.14k
}
3980
3981
/* Internal data structure used during the construction and/or evaluation of
3982
 * an inequality that ensures that a pair of bounds always allows
3983
 * for an integer value.
3984
 *
3985
 * "tab" is the tableau in which the inequality is evaluated.  It may
3986
 * be NULL until it is actually needed.
3987
 * "v" contains the inequality coefficients.
3988
 * "g", "fl" and "fu" are temporary scalars used during the construction and
3989
 * evaluation.
3990
 */
3991
struct test_ineq_data {
3992
  struct isl_tab *tab;
3993
  isl_vec *v;
3994
  isl_int g;
3995
  isl_int fl;
3996
  isl_int fu;
3997
};
3998
3999
/* Free all the memory allocated by the fields of "data".
4000
 */
4001
static void test_ineq_data_clear(struct test_ineq_data *data)
4002
1.48k
{
4003
1.48k
  isl_tab_free(data->tab);
4004
1.48k
  isl_vec_free(data->v);
4005
1.48k
  isl_int_clear(data->g);
4006
1.48k
  isl_int_clear(data->fl);
4007
1.48k
  isl_int_clear(data->fu);
4008
1.48k
}
4009
4010
/* Is the inequality stored in data->v satisfied by "bmap"?
4011
 * That is, does it only attain non-negative values?
4012
 * data->tab is a tableau corresponding to "bmap".
4013
 */
4014
static isl_bool test_ineq_is_satisfied(__isl_keep isl_basic_map *bmap,
4015
  struct test_ineq_data *data)
4016
1.37k
{
4017
1.37k
  isl_ctx *ctx;
4018
1.37k
  enum isl_lp_result res;
4019
1.37k
4020
1.37k
  ctx = isl_basic_map_get_ctx(bmap);
4021
1.37k
  if (!data->tab)
4022
1.05k
    data->tab = isl_tab_from_basic_map(bmap, 0);
4023
1.37k
  res = isl_tab_min(data->tab, data->v->el, ctx->one, &data->g, NULL, 0);
4024
1.37k
  if (res == isl_lp_error)
4025
0
    return isl_bool_error;
4026
1.37k
  
return res == isl_lp_ok && 1.37k
isl_int_is_nonneg1.37k
(data->g);
4027
1.37k
}
4028
4029
/* Given a lower and an upper bound on div i, do they always allow
4030
 * for an integer value of the given div?
4031
 * Determine this property by constructing an inequality
4032
 * such that the property is guaranteed when the inequality is nonnegative.
4033
 * The lower bound is inequality l, while the upper bound is inequality u.
4034
 * The constructed inequality is stored in data->v.
4035
 *
4036
 * Let the upper bound be
4037
 *
4038
 *  -n_u a + e_u >= 0
4039
 *
4040
 * and the lower bound
4041
 *
4042
 *  n_l a + e_l >= 0
4043
 *
4044
 * Let n_u = f_u g and n_l = f_l g, with g = gcd(n_u, n_l).
4045
 * We have
4046
 *
4047
 *  - f_u e_l <= f_u f_l g a <= f_l e_u
4048
 *
4049
 * Since all variables are integer valued, this is equivalent to
4050
 *
4051
 *  - f_u e_l - (f_u - 1) <= f_u f_l g a <= f_l e_u + (f_l - 1)
4052
 *
4053
 * If this interval is at least f_u f_l g, then it contains at least
4054
 * one integer value for a.
4055
 * That is, the test constraint is
4056
 *
4057
 *  f_l e_u + f_u e_l + f_l - 1 + f_u - 1 + 1 >= f_u f_l g
4058
 *
4059
 * or
4060
 *
4061
 *  f_l e_u + f_u e_l + f_l - 1 + f_u - 1 + 1 - f_u f_l g >= 0
4062
 *
4063
 * If the coefficients of f_l e_u + f_u e_l have a common divisor g',
4064
 * then the constraint can be scaled down by a factor g',
4065
 * with the constant term replaced by
4066
 * floor((f_l e_{u,0} + f_u e_{l,0} + f_l - 1 + f_u - 1 + 1 - f_u f_l g)/g').
4067
 * Note that the result of applying Fourier-Motzkin to this pair
4068
 * of constraints is
4069
 *
4070
 *  f_l e_u + f_u e_l >= 0
4071
 *
4072
 * If the constant term of the scaled down version of this constraint,
4073
 * i.e., floor((f_l e_{u,0} + f_u e_{l,0})/g') is equal to the constant
4074
 * term of the scaled down test constraint, then the test constraint
4075
 * is known to hold and no explicit evaluation is required.
4076
 * This is essentially the Omega test.
4077
 *
4078
 * If the test constraint consists of only a constant term, then
4079
 * it is sufficient to look at the sign of this constant term.
4080
 */
4081
static isl_bool int_between_bounds(__isl_keep isl_basic_map *bmap, int i,
4082
  int l, int u, struct test_ineq_data *data)
4083
3.11k
{
4084
3.11k
  unsigned offset, n_div;
4085
3.11k
  offset = isl_basic_map_offset(bmap, isl_dim_div);
4086
3.11k
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
4087
3.11k
4088
3.11k
  isl_int_gcd(data->g,
4089
3.11k
        bmap->ineq[l][offset + i], bmap->ineq[u][offset + i]);
4090
3.11k
  isl_int_divexact(data->fl, bmap->ineq[l][offset + i], data->g);
4091
3.11k
  isl_int_divexact(data->fu, bmap->ineq[u][offset + i], data->g);
4092
3.11k
  isl_int_neg(data->fu, data->fu);
4093
3.11k
  isl_seq_combine(data->v->el, data->fl, bmap->ineq[u],
4094
3.11k
      data->fu, bmap->ineq[l], offset + n_div);
4095
3.11k
  isl_int_mul(data->g, data->g, data->fl);
4096
3.11k
  isl_int_mul(data->g, data->g, data->fu);
4097
3.11k
  isl_int_sub(data->g, data->g, data->fl);
4098
3.11k
  isl_int_sub(data->g, data->g, data->fu);
4099
3.11k
  isl_int_add_ui(data->g, data->g, 1);
4100
3.11k
  isl_int_sub(data->fl, data->v->el[0], data->g);
4101
3.11k
4102
3.11k
  isl_seq_gcd(data->v->el + 1, offset - 1 + n_div, &data->g);
4103
3.11k
  if (isl_int_is_zero(data->g))
4104
936
    
return 936
isl_int_is_nonneg936
(data->fl);
4105
2.18k
  
if (2.18k
isl_int_is_one2.18k
(data->g)) {
4106
1.02k
    isl_int_set(data->v->el[0], data->fl);
4107
1.02k
    return test_ineq_is_satisfied(bmap, data);
4108
1.02k
  }
4109
1.15k
  
isl_int_fdiv_q1.15k
(data->fl, data->fl, data->g);
4110
1.15k
  isl_int_fdiv_q(data->v->el[0], data->v->el[0], data->g);
4111
1.15k
  if (isl_int_eq(data->fl, data->v->el[0]))
4112
810
    return isl_bool_true;
4113
343
  
isl_int_set343
(data->v->el[0], data->fl);
4114
343
  isl_seq_scale_down(data->v->el + 1, data->v->el + 1, data->g,
4115
343
          offset - 1 + n_div);
4116
343
4117
343
  return test_ineq_is_satisfied(bmap, data);
4118
343
}
4119
4120
/* Remove more kinds of divs that are not strictly needed.
4121
 * In particular, if all pairs of lower and upper bounds on a div
4122
 * are such that they allow at least one integer value of the div,
4123
 * then we can eliminate the div using Fourier-Motzkin without
4124
 * introducing any spurious solutions.
4125
 *
4126
 * If at least one of the two constraints has a unit coefficient for the div,
4127
 * then the presence of such a value is guaranteed so there is no need to check.
4128
 * In particular, the value attained by the bound with unit coefficient
4129
 * can serve as this intermediate value.
4130
 */
4131
static __isl_give isl_basic_map *drop_more_redundant_divs(
4132
  __isl_take isl_basic_map *bmap, __isl_take int *pairs, int n)
4133
1.48k
{
4134
1.48k
  isl_ctx *ctx;
4135
1.48k
  struct test_ineq_data data = { NULL, NULL };
4136
1.48k
  unsigned off, n_div;
4137
1.48k
  int remove = -1;
4138
1.48k
4139
1.48k
  isl_int_init(data.g);
4140
1.48k
  isl_int_init(data.fl);
4141
1.48k
  isl_int_init(data.fu);
4142
1.48k
4143
1.48k
  if (!bmap)
4144
0
    goto error;
4145
1.48k
4146
1.48k
  ctx = isl_basic_map_get_ctx(bmap);
4147
1.48k
  off = isl_basic_map_offset(bmap, isl_dim_div);
4148
1.48k
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
4149
1.48k
  data.v = isl_vec_alloc(ctx, off + n_div);
4150
1.48k
  if (!data.v)
4151
0
    goto error;
4152
1.48k
4153
2.67k
  
while (1.48k
n > 02.67k
) {
4154
1.88k
    int i, l, u;
4155
1.88k
    int best = -1;
4156
1.88k
    isl_bool has_int;
4157
1.88k
4158
6.72k
    for (i = 0; 
i < n_div6.72k
;
++i4.84k
) {
4159
4.84k
      if (!pairs[i])
4160
2.31k
        continue;
4161
2.53k
      
if (2.53k
best >= 0 && 2.53k
pairs[best] <= pairs[i]656
)
4162
514
        continue;
4163
2.02k
      best = i;
4164
2.02k
    }
4165
1.88k
4166
1.88k
    i = best;
4167
14.4k
    for (l = 0; 
l < bmap->n_ineq14.4k
;
++l12.5k
) {
4168
13.7k
      if (
!13.7k
isl_int_is_pos13.7k
(bmap->ineq[l][off + i]))
4169
10.7k
        continue;
4170
2.97k
      
if (2.97k
isl_int_is_one2.97k
(bmap->ineq[l][off + i]))
4171
830
        continue;
4172
19.9k
      
for (u = 0; 2.14k
u < bmap->n_ineq19.9k
;
++u17.8k
) {
4173
19.0k
        if (
!19.0k
isl_int_is_neg19.0k
(bmap->ineq[u][off + i]))
4174
15.0k
          continue;
4175
4.01k
        
if (4.01k
isl_int_is_negone4.01k
(bmap->ineq[u][off + i]))
4176
892
          continue;
4177
3.11k
        has_int = int_between_bounds(bmap, i, l, u,
4178
3.11k
                &data);
4179
3.11k
        if (has_int < 0)
4180
0
          goto error;
4181
3.11k
        
if (3.11k
data.tab && 3.11k
data.tab->empty2.47k
)
4182
0
          break;
4183
3.11k
        
if (3.11k
!has_int3.11k
)
4184
1.19k
          break;
4185
19.0k
      }
4186
2.14k
      
if (2.14k
u < bmap->n_ineq2.14k
)
4187
1.19k
        break;
4188
13.7k
    }
4189
1.88k
    
if (1.88k
data.tab && 1.88k
data.tab->empty1.42k
) {
4190
0
      bmap = isl_basic_map_set_to_empty(bmap);
4191
0
      break;
4192
0
    }
4193
1.88k
    
if (1.88k
l == bmap->n_ineq1.88k
) {
4194
683
      remove = i;
4195
683
      break;
4196
683
    }
4197
1.19k
    pairs[i] = 0;
4198
1.19k
    --n;
4199
1.19k
  }
4200
1.48k
4201
1.48k
  test_ineq_data_clear(&data);
4202
1.48k
4203
1.48k
  free(pairs);
4204
1.48k
4205
1.48k
  if (remove < 0)
4206
798
    return bmap;
4207
683
4208
683
  bmap = isl_basic_map_remove_dims(bmap, isl_dim_div, remove, 1);
4209
683
  return isl_basic_map_drop_redundant_divs(bmap);
4210
0
error:
4211
0
  free(pairs);
4212
0
  isl_basic_map_free(bmap);
4213
0
  test_ineq_data_clear(&data);
4214
0
  return NULL;
4215
1.48k
}
4216
4217
/* Given a pair of divs div1 and div2 such that, except for the lower bound l
4218
 * and the upper bound u, div1 always occurs together with div2 in the form
4219
 * (div1 + m div2), where m is the constant range on the variable div1
4220
 * allowed by l and u, replace the pair div1 and div2 by a single
4221
 * div that is equal to div1 + m div2.
4222
 *
4223
 * The new div will appear in the location that contains div2.
4224
 * We need to modify all constraints that contain
4225
 * div2 = (div - div1) / m
4226
 * The coefficient of div2 is known to be equal to 1 or -1.
4227
 * (If a constraint does not contain div2, it will also not contain div1.)
4228
 * If the constraint also contains div1, then we know they appear
4229
 * as f (div1 + m div2) and we can simply replace (div1 + m div2) by div,
4230
 * i.e., the coefficient of div is f.
4231
 *
4232
 * Otherwise, we first need to introduce div1 into the constraint.
4233
 * Let l be
4234
 *
4235
 *  div1 + f >=0
4236
 *
4237
 * and u
4238
 *
4239
 *  -div1 + f' >= 0
4240
 *
4241
 * A lower bound on div2
4242
 *
4243
 *  div2 + t >= 0
4244
 *
4245
 * can be replaced by
4246
 *
4247
 *  m div2 + div1 + m t + f >= 0
4248
 *
4249
 * An upper bound
4250
 *
4251
 *  -div2 + t >= 0
4252
 *
4253
 * can be replaced by
4254
 *
4255
 *  -(m div2 + div1) + m t + f' >= 0
4256
 *
4257
 * These constraint are those that we would obtain from eliminating
4258
 * div1 using Fourier-Motzkin.
4259
 *
4260
 * After all constraints have been modified, we drop the lower and upper
4261
 * bound and then drop div1.
4262
 * Since the new div is only placed in the same location that used
4263
 * to store div2, but otherwise has a different meaning, any possible
4264
 * explicit representation of the original div2 is removed.
4265
 */
4266
static __isl_give isl_basic_map *coalesce_divs(__isl_take isl_basic_map *bmap,
4267
  unsigned div1, unsigned div2, unsigned l, unsigned u)
4268
1
{
4269
1
  isl_ctx *ctx;
4270
1
  isl_int m;
4271
1
  unsigned dim, total;
4272
1
  int i;
4273
1
4274
1
  ctx = isl_basic_map_get_ctx(bmap);
4275
1
4276
1
  dim = isl_space_dim(bmap->dim, isl_dim_all);
4277
1
  total = 1 + dim + bmap->n_div;
4278
1
4279
1
  isl_int_init(m);
4280
1
  isl_int_add(m, bmap->ineq[l][0], bmap->ineq[u][0]);
4281
1
  isl_int_add_ui(m, m, 1);
4282
1
4283
7
  for (i = 0; 
i < bmap->n_ineq7
;
++i6
) {
4284
6
    if (
i == l || 6
i == u5
)
4285
2
      continue;
4286
4
    
if (4
isl_int_is_zero4
(bmap->ineq[i][1 + dim + div2]))
4287
0
      continue;
4288
4
    
if (4
isl_int_is_zero4
(bmap->ineq[i][1 + dim + div1])) {
4289
2
      if (isl_int_is_pos(bmap->ineq[i][1 + dim + div2]))
4290
1
        isl_seq_combine(bmap->ineq[i], m, bmap->ineq[i],
4291
1
            ctx->one, bmap->ineq[l], total);
4292
2
      else
4293
1
        isl_seq_combine(bmap->ineq[i], m, bmap->ineq[i],
4294
1
            ctx->one, bmap->ineq[u], total);
4295
2
    }
4296
4
    isl_int_set(bmap->ineq[i][1 + dim + div2],
4297
4
          bmap->ineq[i][1 + dim + div1]);
4298
4
    isl_int_set_si(bmap->ineq[i][1 + dim + div1], 0);
4299
6
  }
4300
1
4301
1
  isl_int_clear(m);
4302
1
  if (
l > u1
) {
4303
0
    isl_basic_map_drop_inequality(bmap, l);
4304
0
    isl_basic_map_drop_inequality(bmap, u);
4305
1
  } else {
4306
1
    isl_basic_map_drop_inequality(bmap, u);
4307
1
    isl_basic_map_drop_inequality(bmap, l);
4308
1
  }
4309
1
  bmap = isl_basic_map_mark_div_unknown(bmap, div2);
4310
1
  bmap = isl_basic_map_drop_div(bmap, div1);
4311
1
  return bmap;
4312
1
}
4313
4314
/* First check if we can coalesce any pair of divs and
4315
 * then continue with dropping more redundant divs.
4316
 *
4317
 * We loop over all pairs of lower and upper bounds on a div
4318
 * with coefficient 1 and -1, respectively, check if there
4319
 * is any other div "c" with which we can coalesce the div
4320
 * and if so, perform the coalescing.
4321
 */
4322
static __isl_give isl_basic_map *coalesce_or_drop_more_redundant_divs(
4323
  __isl_take isl_basic_map *bmap, int *pairs, int n)
4324
1.48k
{
4325
1.48k
  int i, l, u;
4326
1.48k
  unsigned dim;
4327
1.48k
4328
1.48k
  dim = isl_space_dim(bmap->dim, isl_dim_all);
4329
1.48k
4330
4.92k
  for (i = 0; 
i < bmap->n_div4.92k
;
++i3.44k
) {
4331
3.44k
    if (!pairs[i])
4332
1.47k
      continue;
4333
24.5k
    
for (l = 0; 1.97k
l < bmap->n_ineq24.5k
;
++l22.6k
) {
4334
22.6k
      if (
!22.6k
isl_int_is_one22.6k
(bmap->ineq[l][1 + dim + i]))
4335
21.4k
        continue;
4336
12.5k
      
for (u = 0; 1.13k
u < bmap->n_ineq12.5k
;
++u11.3k
) {
4337
11.3k
        int c;
4338
11.3k
4339
11.3k
        if (
!11.3k
isl_int_is_negone11.3k
(bmap->ineq[u][1+dim+i]))
4340
10.2k
          continue;
4341
1.14k
        c = div_find_coalesce(bmap, pairs, i, l, u);
4342
1.14k
        if (c < 0)
4343
1.14k
          continue;
4344
1
        free(pairs);
4345
1
        bmap = coalesce_divs(bmap, i, c, l, u);
4346
1
        return isl_basic_map_drop_redundant_divs(bmap);
4347
1
      }
4348
22.6k
    }
4349
3.44k
  }
4350
1.48k
4351
1.48k
  
if (1.48k
ISL_F_ISSET1.48k
(bmap, ISL_BASIC_MAP_EMPTY)) {
4352
0
    free(pairs);
4353
0
    return bmap;
4354
0
  }
4355
1.48k
4356
1.48k
  return drop_more_redundant_divs(bmap, pairs, n);
4357
1.48k
}
4358
4359
/* Are the "n" coefficients starting at "first" of inequality constraints
4360
 * "i" and "j" of "bmap" equal to each other?
4361
 */
4362
static int is_parallel_part(__isl_keep isl_basic_map *bmap, int i, int j,
4363
  int first, int n)
4364
371
{
4365
371
  return isl_seq_eq(bmap->ineq[i] + first, bmap->ineq[j] + first, n);
4366
371
}
4367
4368
/* Are the "n" coefficients starting at "first" of inequality constraints
4369
 * "i" and "j" of "bmap" opposite to each other?
4370
 */
4371
static int is_opposite_part(__isl_keep isl_basic_map *bmap, int i, int j,
4372
  int first, int n)
4373
4.84k
{
4374
4.84k
  return isl_seq_is_neg(bmap->ineq[i] + first, bmap->ineq[j] + first, n);
4375
4.84k
}
4376
4377
/* Are inequality constraints "i" and "j" of "bmap" opposite to each other,
4378
 * apart from the constant term?
4379
 */
4380
static isl_bool is_opposite(__isl_keep isl_basic_map *bmap, int i, int j)
4381
4.43k
{
4382
4.43k
  unsigned total;
4383
4.43k
4384
4.43k
  total = isl_basic_map_dim(bmap, isl_dim_all);
4385
4.43k
  return is_opposite_part(bmap, i, j, 1, total);
4386
4.43k
}
4387
4388
/* Are inequality constraints "i" and "j" of "bmap" equal to each other,
4389
 * apart from the constant term and the coefficient at position "pos"?
4390
 */
4391
static int is_parallel_except(__isl_keep isl_basic_map *bmap, int i, int j,
4392
  int pos)
4393
350
{
4394
350
  unsigned total;
4395
350
4396
350
  total = isl_basic_map_dim(bmap, isl_dim_all);
4397
350
  return is_parallel_part(bmap, i, j, 1, pos - 1) &&
4398
21
    is_parallel_part(bmap, i, j, pos + 1, total - pos);
4399
350
}
4400
4401
/* Are inequality constraints "i" and "j" of "bmap" opposite to each other,
4402
 * apart from the constant term and the coefficient at position "pos"?
4403
 */
4404
static int is_opposite_except(__isl_keep isl_basic_map *bmap, int i, int j,
4405
  int pos)
4406
335
{
4407
335
  unsigned total;
4408
335
4409
335
  total = isl_basic_map_dim(bmap, isl_dim_all);
4410
335
  return is_opposite_part(bmap, i, j, 1, pos - 1) &&
4411
73
    is_opposite_part(bmap, i, j, pos + 1, total - pos);
4412
335
}
4413
4414
/* Restart isl_basic_map_drop_redundant_divs after "bmap" has
4415
 * been modified, simplying it if "simplify" is set.
4416
 * Free the temporary data structure "pairs" that was associated
4417
 * to the old version of "bmap".
4418
 */
4419
static __isl_give isl_basic_map *drop_redundant_divs_again(
4420
  __isl_take isl_basic_map *bmap, __isl_take int *pairs, int simplify)
4421
3.70k
{
4422
3.70k
  if (simplify)
4423
1.09k
    bmap = isl_basic_map_simplify(bmap);
4424
3.70k
  free(pairs);
4425
3.70k
  return isl_basic_map_drop_redundant_divs(bmap);
4426
3.70k
}
4427
4428
/* Is "div" the single unknown existentially quantified variable
4429
 * in inequality constraint "ineq" of "bmap"?
4430
 * "div" is known to have a non-zero coefficient in "ineq".
4431
 */
4432
static isl_bool single_unknown(__isl_keep isl_basic_map *bmap, int ineq,
4433
  int div)
4434
1.37k
{
4435
1.37k
  int i;
4436
1.37k
  unsigned n_div, o_div;
4437
1.37k
  isl_bool known;
4438
1.37k
4439
1.37k
  known = isl_basic_map_div_is_known(bmap, div);
4440
1.37k
  if (
known < 0 || 1.37k
known1.37k
)
4441
127
    return isl_bool_not(known);
4442
1.25k
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
4443
1.25k
  if (n_div == 1)
4444
803
    return isl_bool_true;
4445
447
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
4446
1.51k
  for (i = 0; 
i < n_div1.51k
;
++i1.07k
) {
4447
1.11k
    isl_bool known;
4448
1.11k
4449
1.11k
    if (i == div)
4450
427
      continue;
4451
683
    
if (683
isl_int_is_zero683
(bmap->ineq[ineq][o_div + i]))
4452
632
      continue;
4453
51
    known = isl_basic_map_div_is_known(bmap, i);
4454
51
    if (
known < 0 || 51
!known51
)
4455
39
      return known;
4456
1.11k
  }
4457
447
4458
408
  return isl_bool_true;
4459
1.37k
}
4460
4461
/* Does integer division "div" have coefficient 1 in inequality constraint
4462
 * "ineq" of "map"?
4463
 */
4464
static isl_bool has_coef_one(__isl_keep isl_basic_map *bmap, int div, int ineq)
4465
1.21k
{
4466
1.21k
  unsigned o_div;
4467
1.21k
4468
1.21k
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
4469
1.21k
  if (isl_int_is_one(bmap->ineq[ineq][o_div + div]))
4470
1.08k
    return isl_bool_true;
4471
122
4472
122
  return isl_bool_false;
4473
122
}
4474
4475
/* Turn inequality constraint "ineq" of "bmap" into an equality and
4476
 * then try and drop redundant divs again,
4477
 * freeing the temporary data structure "pairs" that was associated
4478
 * to the old version of "bmap".
4479
 */
4480
static __isl_give isl_basic_map *set_eq_and_try_again(
4481
  __isl_take isl_basic_map *bmap, int ineq, __isl_take int *pairs)
4482
1.08k
{
4483
1.08k
  bmap = isl_basic_map_cow(bmap);
4484
1.08k
  isl_basic_map_inequality_to_equality(bmap, ineq);
4485
1.08k
  return drop_redundant_divs_again(bmap, pairs, 1);
4486
1.08k
}
4487
4488
/* Drop the integer division at position "div", along with the two
4489
 * inequality constraints "ineq1" and "ineq2" in which it appears
4490
 * from "bmap" and then try and drop redundant divs again,
4491
 * freeing the temporary data structure "pairs" that was associated
4492
 * to the old version of "bmap".
4493
 */
4494
static __isl_give isl_basic_map *drop_div_and_try_again(
4495
  __isl_take isl_basic_map *bmap, int div, int ineq1, int ineq2,
4496
  __isl_take int *pairs)
4497
881
{
4498
881
  if (
ineq1 > ineq2881
) {
4499
528
    isl_basic_map_drop_inequality(bmap, ineq1);
4500
528
    isl_basic_map_drop_inequality(bmap, ineq2);
4501
881
  } else {
4502
353
    isl_basic_map_drop_inequality(bmap, ineq2);
4503
353
    isl_basic_map_drop_inequality(bmap, ineq1);
4504
353
  }
4505
881
  bmap = isl_basic_map_drop_div(bmap, div);
4506
881
  return drop_redundant_divs_again(bmap, pairs, 0);
4507
881
}
4508
4509
/* Given two inequality constraints
4510
 *
4511
 *  f(x) + n d + c >= 0,    (ineq)
4512
 *
4513
 * with d the variable at position "pos", and
4514
 *
4515
 *  f(x) + c0 >= 0,     (lower)
4516
 *
4517
 * compute the maximal value of the lower bound ceil((-f(x) - c)/n)
4518
 * determined by the first constraint.
4519
 * That is, store
4520
 *
4521
 *  ceil((c0 - c)/n)
4522
 *
4523
 * in *l.
4524
 */
4525
static void lower_bound_from_parallel(__isl_keep isl_basic_map *bmap,
4526
  int ineq, int lower, int pos, isl_int *l)
4527
14
{
4528
14
  isl_int_neg(*l, bmap->ineq[ineq][0]);
4529
14
  isl_int_add(*l, *l, bmap->ineq[lower][0]);
4530
14
  isl_int_cdiv_q(*l, *l, bmap->ineq[ineq][pos]);
4531
14
}
4532
4533
/* Given two inequality constraints
4534
 *
4535
 *  f(x) + n d + c >= 0,    (ineq)
4536
 *
4537
 * with d the variable at position "pos", and
4538
 *
4539
 *  -f(x) - c0 >= 0,    (upper)
4540
 *
4541
 * compute the minimal value of the lower bound ceil((-f(x) - c)/n)
4542
 * determined by the first constraint.
4543
 * That is, store
4544
 *
4545
 *  ceil((-c1 - c)/n)
4546
 *
4547
 * in *u.
4548
 */
4549
static void lower_bound_from_opposite(__isl_keep isl_basic_map *bmap,
4550
  int ineq, int upper, int pos, isl_int *u)
4551
11
{
4552
11
  isl_int_neg(*u, bmap->ineq[ineq][0]);
4553
11
  isl_int_sub(*u, *u, bmap->ineq[upper][0]);
4554
11
  isl_int_cdiv_q(*u, *u, bmap->ineq[ineq][pos]);
4555
11
}
4556
4557
/* Given a lower bound constraint "ineq" on "div" in "bmap",
4558
 * does the corresponding lower bound have a fixed value in "bmap"?
4559
 *
4560
 * In particular, "ineq" is of the form
4561
 *
4562
 *  f(x) + n d + c >= 0
4563
 *
4564
 * with n > 0, c the constant term and
4565
 * d the existentially quantified variable "div".
4566
 * That is, the lower bound is
4567
 *
4568
 *  ceil((-f(x) - c)/n)
4569
 *
4570
 * Look for a pair of constraints
4571
 *
4572
 *  f(x) + c0 >= 0
4573
 *  -f(x) + c1 >= 0
4574
 *
4575
 * i.e., -c1 <= -f(x) <= c0, that fix ceil((-f(x) - c)/n) to a constant value.
4576
 * That is, check that
4577
 *
4578
 *  ceil((-c1 - c)/n) = ceil((c0 - c)/n)
4579
 *
4580
 * If so, return the index of inequality f(x) + c0 >= 0.
4581
 * Otherwise, return -1.
4582
 */
4583
static int lower_bound_is_cst(__isl_keep isl_basic_map *bmap, int div, int ineq)
4584
122
{
4585
122
  int i;
4586
122
  int lower = -1, upper = -1;
4587
122
  unsigned o_div;
4588
122
  isl_int l, u;
4589
122
  int equal;
4590
122
4591
122
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
4592
760
  for (i = 0; 
i < bmap->n_ineq && 760
(lower < 0 || 647
upper < 054
);
++i638
) {
4593
638
    if (i == ineq)
4594
113
      continue;
4595
525
    
if (525
!525
isl_int_is_zero525
(bmap->ineq[i][o_div + div]))
4596
146
      continue;
4597
379
    
if (379
lower < 0 &&
4598
379
        
is_parallel_except(bmap, ineq, i, o_div + div)350
) {
4599
17
      lower = i;
4600
17
      continue;
4601
17
    }
4602
362
    
if (362
upper < 0 &&
4603
362
        
is_opposite_except(bmap, ineq, i, o_div + div)335
) {
4604
70
      upper = i;
4605
70
    }
4606
638
  }
4607
122
4608
122
  if (
lower < 0 || 122
upper < 017
)
4609
111
    return -1;
4610
11
4611
11
  
isl_int_init11
(l);
4612
11
  isl_int_init(u);
4613
11
4614
11
  lower_bound_from_parallel(bmap, ineq, lower, o_div + div, &l);
4615
11
  lower_bound_from_opposite(bmap, ineq, upper, o_div + div, &u);
4616
11
4617
11
  equal = isl_int_eq(l, u);
4618
11
4619
11
  isl_int_clear(l);
4620
11
  isl_int_clear(u);
4621
11
4622
11
  return equal ? 
lower3
:
-18
;
4623
122
}
4624
4625
/* Given a lower bound constraint "ineq" on the existentially quantified
4626
 * variable "div", such that the corresponding lower bound has
4627
 * a fixed value in "bmap", assign this fixed value to the variable and
4628
 * then try and drop redundant divs again,
4629
 * freeing the temporary data structure "pairs" that was associated
4630
 * to the old version of "bmap".
4631
 * "lower" determines the constant value for the lower bound.
4632
 *
4633
 * In particular, "ineq" is of the form
4634
 *
4635
 *  f(x) + n d + c >= 0,
4636
 *
4637
 * while "lower" is of the form
4638
 *
4639
 *  f(x) + c0 >= 0
4640
 *
4641
 * The lower bound is ceil((-f(x) - c)/n) and its constant value
4642
 * is ceil((c0 - c)/n).
4643
 */
4644
static __isl_give isl_basic_map *fix_cst_lower(__isl_take isl_basic_map *bmap,
4645
  int div, int ineq, int lower, int *pairs)
4646
3
{
4647
3
  isl_int c;
4648
3
  unsigned o_div;
4649
3
4650
3
  isl_int_init(c);
4651
3
4652
3
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
4653
3
  lower_bound_from_parallel(bmap, ineq, lower, o_div + div, &c);
4654
3
  bmap = isl_basic_map_fix(bmap, isl_dim_div, div, c);
4655
3
  free(pairs);
4656
3
4657
3
  isl_int_clear(c);
4658
3
4659
3
  return isl_basic_map_drop_redundant_divs(bmap);
4660
3
}
4661
4662
/* Remove divs that are not strictly needed based on the inequality
4663
 * constraints.
4664
 * In particular, if a div only occurs positively (or negatively)
4665
 * in constraints, then it can simply be dropped.
4666
 * Also, if a div occurs in only two constraints and if moreover
4667
 * those two constraints are opposite to each other, except for the constant
4668
 * term and if the sum of the constant terms is such that for any value
4669
 * of the other values, there is always at least one integer value of the
4670
 * div, i.e., if one plus this sum is greater than or equal to
4671
 * the (absolute value) of the coefficient of the div in the constraints,
4672
 * then we can also simply drop the div.
4673
 *
4674
 * If an existentially quantified variable does not have an explicit
4675
 * representation, appears in only a single lower bound that does not
4676
 * involve any other such existentially quantified variables and appears
4677
 * in this lower bound with coefficient 1,
4678
 * then fix the variable to the value of the lower bound.  That is,
4679
 * turn the inequality into an equality.
4680
 * If for any value of the other variables, there is any value
4681
 * for the existentially quantified variable satisfying the constraints,
4682
 * then this lower bound also satisfies the constraints.
4683
 * It is therefore safe to pick this lower bound.
4684
 *
4685
 * The same reasoning holds even if the coefficient is not one.
4686
 * However, fixing the variable to the value of the lower bound may
4687
 * in general introduce an extra integer division, in which case
4688
 * it may be better to pick another value.
4689
 * If this integer division has a known constant value, then plugging
4690
 * in this constant value removes the existentially quantified variable
4691
 * completely.  In particular, if the lower bound is of the form
4692
 * ceil((-f(x) - c)/n) and there are two constraints, f(x) + c0 >= 0 and
4693
 * -f(x) + c1 >= 0 such that ceil((-c1 - c)/n) = ceil((c0 - c)/n),
4694
 * then the existentially quantified variable can be assigned this
4695
 * shared value.
4696
 *
4697
 * We skip divs that appear in equalities or in the definition of other divs.
4698
 * Divs that appear in the definition of other divs usually occur in at least
4699
 * 4 constraints, but the constraints may have been simplified.
4700
 *
4701
 * If any divs are left after these simple checks then we move on
4702
 * to more complicated cases in drop_more_redundant_divs.
4703
 */
4704
static __isl_give isl_basic_map *isl_basic_map_drop_redundant_divs_ineq(
4705
  __isl_take isl_basic_map *bmap)
4706
213k
{
4707
213k
  int i, j;
4708
213k
  unsigned off;
4709
213k
  int *pairs = NULL;
4710
213k
  int n = 0;
4711
213k
4712
213k
  if (!bmap)
4713
0
    goto error;
4714
213k
  
if (213k
bmap->n_div == 0213k
)
4715
202k
    return bmap;
4716
11.1k
4717
11.1k
  off = isl_space_dim(bmap->dim, isl_dim_all);
4718
11.1k
  pairs = isl_calloc_array(bmap->ctx, int, bmap->n_div);
4719
11.1k
  if (!pairs)
4720
0
    goto error;
4721
11.1k
4722
22.7k
  
for (i = 0; 11.1k
i < bmap->n_div22.7k
;
++i11.5k
) {
4723
15.2k
    int pos, neg;
4724
15.2k
    int last_pos, last_neg;
4725
15.2k
    int redundant;
4726
15.2k
    int defined;
4727
15.2k
    isl_bool opp, set_div;
4728
15.2k
4729
15.2k
    defined = !isl_int_is_zero(bmap->div[i][0]);
4730
37.0k
    for (j = i; 
j < bmap->n_div37.0k
;
++j21.7k
)
4731
22.6k
      
if (22.6k
!22.6k
isl_int_is_zero22.6k
(bmap->div[j][1 + 1 + off + i]))
4732
882
        break;
4733
15.2k
    if (j < bmap->n_div)
4734
882
      continue;
4735
23.4k
    
for (j = 0; 14.3k
j < bmap->n_eq23.4k
;
++j9.05k
)
4736
15.0k
      
if (15.0k
!15.0k
isl_int_is_zero15.0k
(bmap->eq[j][1 + off + i]))
4737
6.00k
        break;
4738
14.3k
    if (j < bmap->n_eq)
4739
6.00k
      continue;
4740
8.38k
    ++n;
4741
8.38k
    pos = neg = 0;
4742
77.0k
    for (j = 0; 
j < bmap->n_ineq77.0k
;
++j68.7k
) {
4743
68.7k
      if (
isl_int_is_pos68.7k
(bmap->ineq[j][1 + off + i])) {
4744
9.33k
        last_pos = j;
4745
9.33k
        ++pos;
4746
9.33k
      }
4747
68.7k
      if (
isl_int_is_neg68.7k
(bmap->ineq[j][1 + off + i])) {
4748
9.25k
        last_neg = j;
4749
9.25k
        ++neg;
4750
9.25k
      }
4751
68.7k
    }
4752
8.38k
    pairs[i] = pos * neg;
4753
8.38k
    if (
pairs[i] == 08.38k
) {
4754
1.79k
      for (j = bmap->n_ineq - 1; 
j >= 01.79k
;
--j66
)
4755
66
        
if (66
!66
isl_int_is_zero66
(bmap->ineq[j][1+off+i]))
4756
31
          isl_basic_map_drop_inequality(bmap, j);
4757
1.72k
      bmap = isl_basic_map_drop_div(bmap, i);
4758
1.72k
      return drop_redundant_divs_again(bmap, pairs, 0);
4759
1.72k
    }
4760
6.65k
    
if (6.65k
pairs[i] != 16.65k
)
4761
2.21k
      opp = isl_bool_false;
4762
6.65k
    else
4763
4.43k
      opp = is_opposite(bmap, last_pos, last_neg);
4764
6.65k
    if (opp < 0)
4765
0
      goto error;
4766
6.65k
    
if (6.65k
!opp6.65k
) {
4767
3.26k
      int lower;
4768
3.26k
      isl_bool single, one;
4769
3.26k
4770
3.26k
      if (pos != 1)
4771
1.89k
        continue;
4772
1.37k
      single = single_unknown(bmap, last_pos, i);
4773
1.37k
      if (single < 0)
4774
0
        goto error;
4775
1.37k
      
if (1.37k
!single1.37k
)
4776
166
        continue;
4777
1.21k
      one = has_coef_one(bmap, i, last_pos);
4778
1.21k
      if (one < 0)
4779
0
        goto error;
4780
1.21k
      
if (1.21k
one1.21k
)
4781
1.08k
        return set_eq_and_try_again(bmap, last_pos,
4782
1.08k
                  pairs);
4783
122
      lower = lower_bound_is_cst(bmap, i, last_pos);
4784
122
      if (lower >= 0)
4785
3
        return fix_cst_lower(bmap, i, last_pos, lower,
4786
3
            pairs);
4787
119
      continue;
4788
119
    }
4789
3.38k
4790
3.38k
    
isl_int_add3.38k
(bmap->ineq[last_pos][0],
4791
3.38k
          bmap->ineq[last_pos][0], bmap->ineq[last_neg][0]);
4792
3.38k
    isl_int_add_ui(bmap->ineq[last_pos][0],
4793
3.38k
             bmap->ineq[last_pos][0], 1);
4794
3.38k
    redundant = isl_int_ge(bmap->ineq[last_pos][0],
4795
3.38k
        bmap->ineq[last_pos][1+off+i]);
4796
3.38k
    isl_int_sub_ui(bmap->ineq[last_pos][0],
4797
3.38k
             bmap->ineq[last_pos][0], 1);
4798
3.38k
    isl_int_sub(bmap->ineq[last_pos][0],
4799
3.38k
          bmap->ineq[last_pos][0], bmap->ineq[last_neg][0]);
4800
3.38k
    if (redundant)
4801
881
      return drop_div_and_try_again(bmap, i,
4802
881
                last_pos, last_neg, pairs);
4803
2.50k
    
if (2.50k
defined2.50k
)
4804
2.49k
      set_div = isl_bool_false;
4805
2.50k
    else
4806
9
      set_div = ok_to_set_div_from_bound(bmap, i, last_pos);
4807
2.50k
    if (set_div < 0)
4808
0
      return isl_basic_map_free(bmap);
4809
2.50k
    
if (2.50k
set_div2.50k
) {
4810
3
      bmap = set_div_from_lower_bound(bmap, i, last_pos);
4811
3
      return drop_redundant_divs_again(bmap, pairs, 1);
4812
3
    }
4813
2.50k
    pairs[i] = 0;
4814
2.50k
    --n;
4815
2.50k
  }
4816
11.1k
4817
7.43k
  
if (7.43k
n > 07.43k
)
4818
1.48k
    return coalesce_or_drop_more_redundant_divs(bmap, pairs, n);
4819
5.95k
4820
5.95k
  free(pairs);
4821
5.95k
  return bmap;
4822
0
error:
4823
0
  free(pairs);
4824
0
  isl_basic_map_free(bmap);
4825
0
  return NULL;
4826
213k
}
4827
4828
/* Consider the coefficients at "c" as a row vector and replace
4829
 * them with their product with "T".  "T" is assumed to be a square matrix.
4830
 */
4831
static isl_stat preimage(isl_int *c, __isl_keep isl_mat *T)
4832
19.4k
{
4833
19.4k
  int n;
4834
19.4k
  isl_ctx *ctx;
4835
19.4k
  isl_vec *v;
4836
19.4k
4837
19.4k
  if (!T)
4838
0
    return isl_stat_error;
4839
19.4k
  n = isl_mat_rows(T);
4840
19.4k
  if (isl_seq_first_non_zero(c, n) == -1)
4841
11.5k
    return isl_stat_ok;
4842
7.87k
  ctx = isl_mat_get_ctx(T);
4843
7.87k
  v = isl_vec_alloc(ctx, n);
4844
7.87k
  if (!v)
4845
0
    return isl_stat_error;
4846
7.87k
  isl_seq_swp_or_cpy(v->el, c, n);
4847
7.87k
  v = isl_vec_mat_product(v, isl_mat_copy(T));
4848
7.87k
  if (!v)
4849
0
    return isl_stat_error;
4850
7.87k
  isl_seq_swp_or_cpy(c, v->el, n);
4851
7.87k
  isl_vec_free(v);
4852
7.87k
4853
7.87k
  return isl_stat_ok;
4854
7.87k
}
4855
4856
/* Plug in T for the variables in "bmap" starting at "pos".
4857
 * T is a linear unimodular matrix, i.e., without constant term.
4858
 */
4859
static __isl_give isl_basic_map *isl_basic_map_preimage_vars(
4860
  __isl_take isl_basic_map *bmap, unsigned pos, __isl_take isl_mat *T)
4861
1.63k
{
4862
1.63k
  int i;
4863
1.63k
  unsigned n, total;
4864
1.63k
4865
1.63k
  bmap = isl_basic_map_cow(bmap);
4866
1.63k
  if (
!bmap || 1.63k
!T1.63k
)
4867
0
    goto error;
4868
1.63k
4869
1.63k
  n = isl_mat_cols(T);
4870
1.63k
  if (n != isl_mat_rows(T))
4871
0
    isl_die(isl_mat_get_ctx(T), isl_error_invalid,
4872
1.63k
      "expecting square matrix", goto error);
4873
1.63k
4874
1.63k
  total = isl_basic_map_dim(bmap, isl_dim_all);
4875
1.63k
  if (
pos + n > total || 1.63k
pos + n < pos1.63k
)
4876
0
    isl_die(isl_mat_get_ctx(T), isl_error_invalid,
4877
1.63k
      "invalid range", goto error);
4878
1.63k
4879
4.59k
  
for (i = 0; 1.63k
i < bmap->n_eq4.59k
;
++i2.95k
)
4880
2.95k
    
if (2.95k
preimage(bmap->eq[i] + 1 + pos, T) < 02.95k
)
4881
0
      goto error;
4882
17.3k
  
for (i = 0; 1.63k
i < bmap->n_ineq17.3k
;
++i15.7k
)
4883
15.7k
    
if (15.7k
preimage(bmap->ineq[i] + 1 + pos, T) < 015.7k
)
4884
0
      goto error;
4885
6.30k
  
for (i = 0; 1.63k
i < bmap->n_div6.30k
;
++i4.66k
) {
4886
4.66k
    if (isl_basic_map_div_is_marked_unknown(bmap, i))
4887
3.88k
      continue;
4888
782
    
if (782
preimage(bmap->div[i] + 1 + 1 + pos, T) < 0782
)
4889
0
      goto error;
4890
4.66k
  }
4891
1.63k
4892
1.63k
  isl_mat_free(T);
4893
1.63k
  return bmap;
4894
0
error:
4895
0
  isl_basic_map_free(bmap);
4896
0
  isl_mat_free(T);
4897
0
  return NULL;
4898
1.63k
}
4899
4900
/* Remove divs that are not strictly needed.
4901
 *
4902
 * First look for an equality constraint involving two or more
4903
 * existentially quantified variables without an explicit
4904
 * representation.  Replace the combination that appears
4905
 * in the equality constraint by a single existentially quantified
4906
 * variable such that the equality can be used to derive
4907
 * an explicit representation for the variable.
4908
 * If there are no more such equality constraints, then continue
4909
 * with isl_basic_map_drop_redundant_divs_ineq.
4910
 *
4911
 * In particular, if the equality constraint is of the form
4912
 *
4913
 *  f(x) + \sum_i c_i a_i = 0
4914
 *
4915
 * with a_i existentially quantified variable without explicit
4916
 * representation, then apply a transformation on the existentially
4917
 * quantified variables to turn the constraint into
4918
 *
4919
 *  f(x) + g a_1' = 0
4920
 *
4921
 * with g the gcd of the c_i.
4922
 * In order to easily identify which existentially quantified variables
4923
 * have a complete explicit representation, i.e., without being defined
4924
 * in terms of other existentially quantified variables without
4925
 * an explicit representation, the existentially quantified variables
4926
 * are first sorted.
4927
 *
4928
 * The variable transformation is computed by extending the row
4929
 * [c_1/g ... c_n/g] to a unimodular matrix, obtaining the transformation
4930
 *
4931
 *  [a_1']   [c_1/g ... c_n/g]   [ a_1 ]
4932
 *  [a_2']                       [ a_2 ]
4933
 *   ...   =         U             ....
4934
 *  [a_n']                   [ a_n ]
4935
 *
4936
 * with [c_1/g ... c_n/g] representing the first row of U.
4937
 * The inverse of U is then plugged into the original constraints.
4938
 * The call to isl_basic_map_simplify makes sure the explicit
4939
 * representation for a_1' is extracted from the equality constraint.
4940
 */
4941
__isl_give isl_basic_map *isl_basic_map_drop_redundant_divs(
4942
  __isl_take isl_basic_map *bmap)
4943
215k
{
4944
215k
  int first;
4945
215k
  int i;
4946
215k
  unsigned o_div, n_div;
4947
215k
  int l;
4948
215k
  isl_ctx *ctx;
4949
215k
  isl_mat *T;
4950
215k
4951
215k
  if (!bmap)
4952
0
    return NULL;
4953
215k
  
if (215k
isl_basic_map_divs_known(bmap)215k
)
4954
209k
    return isl_basic_map_drop_redundant_divs_ineq(bmap);
4955
5.72k
  
if (5.72k
bmap->n_eq == 05.72k
)
4956
1.25k
    return isl_basic_map_drop_redundant_divs_ineq(bmap);
4957
4.47k
  bmap = isl_basic_map_sort_divs(bmap);
4958
4.47k
  if (!bmap)
4959
0
    return NULL;
4960
4.47k
4961
4.47k
  first = isl_basic_map_first_unknown_div(bmap);
4962
4.47k
  if (first < 0)
4963
0
    return isl_basic_map_free(bmap);
4964
4.47k
4965
4.47k
  o_div = isl_basic_map_offset(bmap, isl_dim_div);
4966
4.47k
  n_div = isl_basic_map_dim(bmap, isl_dim_div);
4967
4.47k
4968
7.87k
  for (i = 0; 
i < bmap->n_eq7.87k
;
++i3.39k
) {
4969
5.03k
    l = isl_seq_first_non_zero(bmap->eq[i] + o_div + first,
4970
5.03k
              n_div - (first));
4971
5.03k
    if (l < 0)
4972
3.39k
      continue;
4973
1.63k
    l += first;
4974
1.63k
    if (isl_seq_first_non_zero(bmap->eq[i] + o_div + l + 1,
4975
1.63k
              n_div - (l + 1)) == -1)
4976
0
      continue;
4977
1.63k
    break;
4978
1.63k
  }
4979
4.47k
  if (i >= bmap->n_eq)
4980
2.84k
    return isl_basic_map_drop_redundant_divs_ineq(bmap);
4981
1.63k
4982
1.63k
  ctx = isl_basic_map_get_ctx(bmap);
4983
1.63k
  T = isl_mat_alloc(ctx, n_div - l, n_div - l);
4984
1.63k
  if (!T)
4985
0
    return isl_basic_map_free(bmap);
4986
1.63k
  isl_seq_cpy(T->row[0], bmap->eq[i] + o_div + l, n_div - l);
4987
1.63k
  T = isl_mat_normalize_row(T, 0);
4988
1.63k
  T = isl_mat_unimodular_complete(T, 1);
4989
1.63k
  T = isl_mat_right_inverse(T);
4990
1.63k
4991
5.46k
  for (i = l; 
i < n_div5.46k
;
++i3.83k
)
4992
3.83k
    bmap = isl_basic_map_mark_div_unknown(bmap, i);
4993
215k
  bmap = isl_basic_map_preimage_vars(bmap, o_div - 1 + l, T);
4994
215k
  bmap = isl_basic_map_simplify(bmap);
4995
215k
4996
215k
  return isl_basic_map_drop_redundant_divs(bmap);
4997
215k
}
4998
4999
/* Does "bmap" satisfy any equality that involves more than 2 variables
5000
 * and/or has coefficients different from -1 and 1?
5001
 */
5002
static int has_multiple_var_equality(__isl_keep isl_basic_map *bmap)
5003
7.09k
{
5004
7.09k
  int i;
5005
7.09k
  unsigned total;
5006
7.09k
5007
7.09k
  total = isl_basic_map_dim(bmap, isl_dim_all);
5008
7.09k
5009
20.0k
  for (i = 0; 
i < bmap->n_eq20.0k
;
++i12.9k
) {
5010
13.8k
    int j, k;
5011
13.8k
5012
13.8k
    j = isl_seq_first_non_zero(bmap->eq[i] + 1, total);
5013
13.8k
    if (j < 0)
5014
0
      continue;
5015
13.8k
    
if (13.8k
!13.8k
isl_int_is_one13.8k
(bmap->eq[i][1 + j]) &&
5016
4.87k
        
!4.87k
isl_int_is_negone4.87k
(bmap->eq[i][1 + j]))
5017
263
      return 1;
5018
13.5k
5019
13.5k
    j += 1;
5020
13.5k
    k = isl_seq_first_non_zero(bmap->eq[i] + 1 + j, total - j);
5021
13.5k
    if (k < 0)
5022
8.45k
      continue;
5023
5.10k
    j += k;
5024
5.10k
    if (
!5.10k
isl_int_is_one5.10k
(bmap->eq[i][1 + j]) &&
5025
535
        
!535
isl_int_is_negone535
(bmap->eq[i][1 + j]))
5026
297
      return 1;
5027
4.80k
5028
4.80k
    j += 1;
5029
4.80k
    k = isl_seq_first_non_zero(bmap->eq[i] + 1 + j, total - j);
5030
4.80k
    if (k >= 0)
5031
355
      return 1;
5032
13.8k
  }
5033
7.09k
5034
6.17k
  return 0;
5035
7.09k
}
5036
5037
/* Remove any common factor g from the constraint coefficients in "v".
5038
 * The constant term is stored in the first position and is replaced
5039
 * by floor(c/g).  If any common factor is removed and if this results
5040
 * in a tightening of the constraint, then set *tightened.
5041
 */
5042
static __isl_give isl_vec *normalize_constraint(__isl_take isl_vec *v,
5043
  int *tightened)
5044
3.22k
{
5045
3.22k
  isl_ctx *ctx;
5046
3.22k
5047
3.22k
  if (!v)
5048
0
    return NULL;
5049
3.22k
  ctx = isl_vec_get_ctx(v);
5050
3.22k
  isl_seq_gcd(v->el + 1, v->size - 1, &ctx->normalize_gcd);
5051
3.22k
  if (isl_int_is_zero(ctx->normalize_gcd))
5052
0
    return v;
5053
3.22k
  
if (3.22k
isl_int_is_one3.22k
(ctx->normalize_gcd))
5054
2.37k
    return v;
5055
849
  v = isl_vec_cow(v);
5056
849
  if (!v)
5057
0
    return NULL;
5058
849
  
if (849
tightened && 849
!849
isl_int_is_divisible_by849
(v->el[0], ctx->normalize_gcd))
5059
190
    *tightened = 1;
5060
849
  isl_int_fdiv_q(v->el[0], v->el[0], ctx->normalize_gcd);
5061
3.22k
  isl_seq_scale_down(v->el + 1, v->el + 1, ctx->normalize_gcd,
5062
3.22k
        v->size - 1);
5063
3.22k
  return v;
5064
3.22k
}
5065
5066
/* If "bmap" is an integer set that satisfies any equality involving
5067
 * more than 2 variables and/or has coefficients different from -1 and 1,
5068
 * then use variable compression to reduce the coefficients by removing
5069
 * any (hidden) common factor.
5070
 * In particular, apply the variable compression to each constraint,
5071
 * factor out any common factor in the non-constant coefficients and
5072
 * then apply the inverse of the compression.
5073
 * At the end, we mark the basic map as having reduced constants.
5074
 * If this flag is still set on the next invocation of this function,
5075
 * then we skip the computation.
5076
 *
5077
 * Removing a common factor may result in a tightening of some of
5078
 * the constraints.  If this happens, then we may end up with two
5079
 * opposite inequalities that can be replaced by an equality.
5080
 * We therefore call isl_basic_map_detect_inequality_pairs,
5081
 * which checks for such pairs of inequalities as well as eliminate_divs_eq
5082
 * and isl_basic_map_gauss if such a pair was found.
5083
 *
5084
 * Note that this function may leave the result in an inconsistent state.
5085
 * In particular, the constraints may not be gaussed.
5086
 * Unfortunately, isl_map_coalesce actually depends on this inconsistent state
5087
 * for some of the test cases to pass successfully.
5088
 * Any potential modification of the representation is therefore only
5089
 * performed on a single copy of the basic map.
5090
 */
5091
__isl_give isl_basic_map *isl_basic_map_reduce_coefficients(
5092
  __isl_take isl_basic_map *bmap)
5093
57.2k
{
5094
57.2k
  unsigned total;
5095
57.2k
  isl_ctx *ctx;
5096
57.2k
  isl_vec *v;
5097
57.2k
  isl_mat *eq, *T, *T2;
5098
57.2k
  int i;
5099
57.2k
  int tightened;
5100
57.2k
5101
57.2k
  if (!bmap)
5102
0
    return NULL;
5103
57.2k
  
if (57.2k
ISL_F_ISSET57.2k
(bmap, ISL_BASIC_MAP_REDUCED_COEFFICIENTS))
5104
86
    return bmap;
5105
57.1k
  
if (57.1k
isl_basic_map_is_rational(bmap)57.1k
)
5106
24.5k
    return bmap;
5107
32.5k
  
if (32.5k
bmap->n_eq == 032.5k
)
5108
25.4k
    return bmap;
5109
7.09k
  
if (7.09k
!has_multiple_var_equality(bmap)7.09k
)
5110
6.17k
    return bmap;
5111
915
5112
915
  total = isl_basic_map_dim(bmap, isl_dim_all);
5113
915
  ctx = isl_basic_map_get_ctx(bmap);
5114
915
  v = isl_vec_alloc(ctx, 1 + total);
5115
915
  if (!v)
5116
0
    return isl_basic_map_free(bmap);
5117
915
5118
915
  eq = isl_mat_sub_alloc6(ctx, bmap->eq, 0, bmap->n_eq, 0, 1 + total);
5119
915
  T = isl_mat_variable_compression(eq, &T2);
5120
915
  if (
!T || 915
!T2915
)
5121
0
    goto error;
5122
915
  
if (915
T->n_col == 0915
) {
5123
1
    isl_mat_free(T);
5124
1
    isl_mat_free(T2);
5125
1
    isl_vec_free(v);
5126
1
    return isl_basic_map_set_to_empty(bmap);
5127
1
  }
5128
914
5129
914
  bmap = isl_basic_map_cow(bmap);
5130
914
  if (!bmap)
5131
0
    goto error;
5132
914
5133
914
  tightened = 0;
5134
4.13k
  for (i = 0; 
i < bmap->n_ineq4.13k
;
++i3.22k
) {
5135
3.22k
    isl_seq_cpy(v->el, bmap->ineq[i], 1 + total);
5136
3.22k
    v = isl_vec_mat_product(v, isl_mat_copy(T));
5137
3.22k
    v = normalize_constraint(v, &tightened);
5138
3.22k
    v = isl_vec_mat_product(v, isl_mat_copy(T2));
5139
3.22k
    if (!v)
5140
0
      goto error;
5141
3.22k
    isl_seq_cpy(bmap->ineq[i], v->el, 1 + total);
5142
3.22k
  }
5143
914
5144
914
  isl_mat_free(T);
5145
914
  isl_mat_free(T2);
5146
914
  isl_vec_free(v);
5147
914
5148
914
  ISL_F_SET(bmap, ISL_BASIC_MAP_REDUCED_COEFFICIENTS);
5149
914
5150
914
  if (
tightened914
) {
5151
145
    int progress = 0;
5152
145
5153
145
    bmap = isl_basic_map_detect_inequality_pairs(bmap, &progress);
5154
145
    if (
progress145
) {
5155
35
      bmap = eliminate_divs_eq(bmap, &progress);
5156
35
      bmap = isl_basic_map_gauss(bmap, NULL);
5157
35
    }
5158
145
  }
5159
914
5160
914
  return bmap;
5161
0
error:
5162
0
  isl_mat_free(T);
5163
0
  isl_mat_free(T2);
5164
0
  isl_vec_free(v);
5165
0
  return isl_basic_map_free(bmap);
5166
57.2k
}
5167
5168
/* Shift the integer division at position "div" of "bmap"
5169
 * by "shift" times the variable at position "pos".
5170
 * "pos" is as determined by isl_basic_map_offset, i.e., pos == 0
5171
 * corresponds to the constant term.
5172
 *
5173
 * That is, if the integer division has the form
5174
 *
5175
 *  floor(f(x)/d)
5176
 *
5177
 * then replace it by
5178
 *
5179
 *  floor((f(x) + shift * d * x_pos)/d) - shift * x_pos
5180
 */
5181
__isl_give isl_basic_map *isl_basic_map_shift_div(
5182
  __isl_take isl_basic_map *bmap, int div, int pos, isl_int shift)
5183
9.69k
{
5184
9.69k
  int i;
5185
9.69k
  unsigned total;
5186
9.69k
5187
9.69k
  if (isl_int_is_zero(shift))
5188
70
    return bmap;
5189
9.62k
  
if (9.62k
!bmap9.62k
)
5190
0
    return NULL;
5191
9.62k
5192
9.62k
  total = isl_basic_map_dim(bmap, isl_dim_all);
5193
9.62k
  total -= isl_basic_map_dim(bmap, isl_dim_div);
5194
9.62k
5195
9.62k
  isl_int_addmul(bmap->div[div][1 + pos], shift, bmap->div[div][0]);
5196
9.62k
5197
31.6k
  for (i = 0; 
i < bmap->n_eq31.6k
;
++i22.0k
) {
5198
22.0k
    if (isl_int_is_zero(bmap->eq[i][1 + total + div]))
5199
13.8k
      continue;
5200
8.19k
    
isl_int_submul8.19k
(bmap->eq[i][pos],
5201
8.19k
        shift, bmap->eq[i][1 + total + div]);
5202
8.19k
  }
5203
76.7k
  for (i = 0; 
i < bmap->n_ineq76.7k
;
++i67.1k
) {
5204
67.1k
    if (isl_int_is_zero(bmap->ineq[i][1 + total + div]))
5205
60.5k
      continue;
5206
6.62k
    
isl_int_submul6.62k
(bmap->ineq[i][pos],
5207
6.62k
        shift, bmap->ineq[i][1 + total + div]);
5208
6.62k
  }
5209
31.4k
  for (i = 0; 
i < bmap->n_div31.4k
;
++i21.8k
) {
5210
21.8k
    if (isl_int_is_zero(bmap->div[i][0]))
5211
2.64k
      continue;
5212
19.1k
    
if (19.1k
isl_int_is_zero19.1k
(bmap->div[i][1 + 1 + total + div]))
5213
18.7k
      continue;
5214
410
    
isl_int_submul410
(bmap->div[i][1 + pos],
5215
410
        shift, bmap->div[i][1 + 1 + total + div]);
5216
410
  }
5217
9.69k
5218
9.69k
  return bmap;
5219
9.69k
}