1 files changed, 70 insertions, 0 deletions
diff --git a/cloog-core/source/stride.c b/cloog-core/source/stride.c
new file mode 100644
index 0000000..d7358a0
--- /dev/null
+++ b/cloog-core/source/stride.c
@@ -0,0 +1,70 @@
+#include <stdlib.h>
+#include <cloog/cloog.h>
+
+#define ALLOC(type) (type*)malloc(sizeof(type))
+
+CloogStride *cloog_stride_malloc()
+{
+	CloogStride *s;
+
+	s = ALLOC(CloogStride);
+	if (!s)
+		cloog_die("memory overflow.\n");
+
+	s->references = 1;
+	cloog_int_init(s->stride);
+	cloog_int_init(s->offset);
+	cloog_int_init(s->factor);
+	s->constraint = cloog_constraint_invalid();
+
+	return s;
+}
+
+CloogStride *cloog_stride_alloc(cloog_int_t stride, cloog_int_t offset)
+{
+	CloogStride *s = cloog_stride_malloc();
+
+	cloog_int_set(s->stride, stride);
+	cloog_int_set(s->offset, offset);
+	cloog_int_set_si(s->factor, 0);
+
+	return s;
+}
+
+CloogStride *cloog_stride_alloc_from_constraint(cloog_int_t stride,
+	CloogConstraint *constraint, cloog_int_t factor)
+{
+	CloogStride *s = cloog_stride_malloc();
+
+	cloog_int_set(s->stride, stride);
+	cloog_int_set(s->factor, factor);
+	cloog_int_set_si(s->offset, -1);
+	s->constraint = constraint;
+
+	return s;
+}
+
+CloogStride *cloog_stride_copy(CloogStride *stride)
+{
+	if (!stride)
+		return stride;
+
+	stride->references++;
+	return stride;
+}
+
+void cloog_stride_free(CloogStride *stride)
+{
+	if (!stride)
+		return;
+
+	stride->references--;
+	if (stride->references > 0)
+		return;
+
+	cloog_int_clear(stride->stride);
+	cloog_int_clear(stride->offset);
+	cloog_int_clear(stride->factor);
+	cloog_constraint_release(stride->constraint);
+	free(stride);
+}