source/stride.c

   1 #include <cloog/cloog.h>
   2
   3 #define ALLOC(type) (type*)malloc(sizeof(type))
   4
   5 CloogStride *cloog_stride_malloc()
   6 {
   7         CloogStride *s;
   8
   9         s = ALLOC(CloogStride);
  10         if (!s)
  11                 cloog_die("memory overflow.\n");
  12
  13         s->references = 1;
  14         cloog_int_init(s->stride);
  15         cloog_int_init(s->offset);
  16         cloog_int_init(s->factor);
  17         s->constraint = cloog_constraint_invalid();
  18
  19         return s;
  20 }
  21
  22 CloogStride *cloog_stride_alloc(cloog_int_t stride, cloog_int_t offset)
  23 {
  24         CloogStride *s = cloog_stride_malloc();
  25
  26         cloog_int_set(s->stride, stride);
  27         cloog_int_set(s->offset, offset);
  28         cloog_int_set_si(s->factor, 0);
  29
  30         return s;
  31 }
  32
  33 CloogStride *cloog_stride_alloc_from_constraint(cloog_int_t stride,
  34         CloogConstraint *constraint, cloog_int_t factor)
  35 {
  36         CloogStride *s = cloog_stride_malloc();
  37
  38         cloog_int_set(s->stride, stride);
  39         cloog_int_set(s->factor, factor);
  40         cloog_int_set_si(s->offset, -1);
  41         s->constraint = constraint;
  42
  43         return s;
  44 }
  45
  46 CloogStride *cloog_stride_copy(CloogStride *stride)
  47 {
  48         if (!stride)
  49                 return stride;
  50
  51         stride->references++;
  52         return stride;
  53 }
  54
  55 void cloog_stride_free(CloogStride *stride)
  56 {
  57         if (!stride)
  58                 return;
  59
  60         stride->references--;
  61         if (stride->references > 0)
  62                 return;
  63
  64         cloog_int_clear(stride->stride);
  65         cloog_int_clear(stride->offset);
  66         cloog_int_clear(stride->factor);
  67         cloog_constraint_release(stride->constraint);
  68         free(stride);
  69 }