Line data    Source code

       1             : /*
       2             :  * Copyright 2008-2009 Katholieke Universiteit Leuven
       3             :  *
       4             :  * Use of this software is governed by the MIT license
       5             :  *
       6             :  * Written by Sven Verdoolaege, K.U.Leuven, Departement
       7             :  * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
       8             :  */
       9             : 
      10             : #include <isl_blk.h>
      11             : #include <isl_ctx_private.h>
      12             : 
      13             : /* The maximal number of cache misses before first element is evicted */
      14             : #define ISL_BLK_MAX_MISS        100
      15             : 
      16   166342750 : struct isl_blk isl_blk_empty()
      17             : {
      18             :         struct isl_blk block;
      19   166342750 :         block.size = 0;
      20   166342750 :         block.data = NULL;
      21   166342750 :         return block;
      22             : }
      23             : 
      24   147680481 : static int isl_blk_is_empty(struct isl_blk block)
      25             : {
      26   147680481 :         return block.size == 0 && block.data == NULL;
      27             : }
      28             : 
      29           0 : static struct isl_blk isl_blk_error()
      30             : {
      31             :         struct isl_blk block;
      32           0 :         block.size = -1;
      33           0 :         block.data = NULL;
      34           0 :         return block;
      35             : }
      36             : 
      37   209388082 : int isl_blk_is_error(struct isl_blk block)
      38             : {
      39   209388082 :         return block.size == -1 && block.data == NULL;
      40             : }
      41             : 
      42     1484256 : static void isl_blk_free_force(struct isl_ctx *ctx, struct isl_blk block)
      43             : {
      44             :         int i;
      45             : 
      46    94956894 :         for (i = 0; i < block.size; ++i)
      47    93472638 :                 isl_int_clear(block.data[i]);
      48     1484256 :         free(block.data);
      49     1484256 : }
      50             : 
      51   111182967 : static struct isl_blk extend(struct isl_ctx *ctx, struct isl_blk block,
      52             :                                 size_t new_n)
      53             : {
      54             :         int i;
      55             :         isl_int *p;
      56             : 
      57   111182967 :         if (block.size >= new_n)
      58   107997137 :                 return block;
      59             : 
      60     3185830 :         p = isl_realloc_array(ctx, block.data, isl_int, new_n);
      61     3185830 :         if (!p) {
      62           0 :                 isl_blk_free_force(ctx, block);
      63           0 :                 return isl_blk_error();
      64             :         }
      65     3185830 :         block.data = p;
      66             : 
      67    96712017 :         for (i = block.size; i < new_n; ++i)
      68    93526187 :                 isl_int_init(block.data[i]);
      69     3185830 :         block.size = new_n;
      70             : 
      71     3185830 :         return block;
      72             : }
      73             : 
      74   110917338 : struct isl_blk isl_blk_alloc(struct isl_ctx *ctx, size_t n)
      75             : {
      76             :         int i;
      77             :         struct isl_blk block;
      78             : 
      79   110917338 :         block = isl_blk_empty();
      80   110917338 :         if (n && ctx->n_cached) {
      81    97417256 :                 int best = 0;
      82   829739092 :                 for (i = 1; ctx->cache[best].size != n && i < ctx->n_cached; ++i) {
      83   732321836 :                         if (ctx->cache[best].size < n) {
      84   139388067 :                                 if (ctx->cache[i].size > ctx->cache[best].size)
      85    76902415 :                                         best = i;
      86   975193338 :                         } else if (ctx->cache[i].size >= n &&
      87   382259569 :                                    ctx->cache[i].size < ctx->cache[best].size)
      88   120169436 :                                         best = i;
      89             :                 }
      90    97417256 :                 if (ctx->cache[best].size < 2 * n + 100) {
      91    96755954 :                         block = ctx->cache[best];
      92    96755954 :                         if (--ctx->n_cached != best)
      93    71485240 :                                 ctx->cache[best] = ctx->cache[ctx->n_cached];
      94    96755954 :                         if (best == 0)
      95    14006406 :                                 ctx->n_miss = 0;
      96      661302 :                 } else if (ctx->n_miss++ >= ISL_BLK_MAX_MISS) {
      97         192 :                         isl_blk_free_force(ctx, ctx->cache[0]);
      98         192 :                         if (--ctx->n_cached != 0)
      99         191 :                                 ctx->cache[0] = ctx->cache[ctx->n_cached];
     100         192 :                         ctx->n_miss = 0;
     101             :                 }
     102             :         }
     103             : 
     104   110917338 :         return extend(ctx, block, n);
     105             : }
     106             : 
     107      291576 : struct isl_blk isl_blk_extend(struct isl_ctx *ctx, struct isl_blk block,
     108             :                                 size_t new_n)
     109             : {
     110      291576 :         if (isl_blk_is_empty(block))
     111       25947 :                 return isl_blk_alloc(ctx, new_n);
     112             : 
     113      265629 :         return extend(ctx, block, new_n);
     114             : }
     115             : 
     116   147388905 : void isl_blk_free(struct isl_ctx *ctx, struct isl_blk block)
     117             : {
     118   147388905 :         if (isl_blk_is_empty(block) || isl_blk_is_error(block))
     119    49147635 :                 return;
     120             : 
     121    98241270 :         if (ctx->n_cached < ISL_BLK_CACHE_SIZE)
     122    96757206 :                 ctx->cache[ctx->n_cached++] = block;
     123             :         else
     124     1484064 :                 isl_blk_free_force(ctx, block);
     125             : }
     126             : 
     127           0 : void isl_blk_clear_cache(struct isl_ctx *ctx)
     128             : {
     129             :         int i;
     130             : 
     131           0 :         for (i = 0; i < ctx->n_cached; ++i)
     132           0 :                 isl_blk_free_force(ctx, ctx->cache[i]);
     133           0 :         ctx->n_cached = 0;
     134           0 : }