Changed factors' independent variables to be copies on the heap.

[pspp-builds.git] / src / data / variable.c

diff --git a/src/data/variable.c b/src/data/variable.c
index 8582308d25f93e7b64fb417a22084914c3283070..b43fce7e41d6f844ff74c35c183225af1827962b 100644 (file)
--- a/src/data/variable.c
+++ b/src/data/variable.c
@@ -123,6 +123,21 @@ var_dtor_free (struct variable *v)
   free (v->aux);
 }
 
+/* Duplicate a value.
+   The caller is responsible for freeing the returned value
+*/
+union value *
+value_dup (const union value *val, int width)
+{
+  size_t bytes = MAX(width, sizeof *val);
+
+  union value *v = xmalloc (bytes);
+  memcpy (v, val, bytes);
+  return v;
+}
+
+
+
 /* Compares A and B, which both have the given WIDTH, and returns
    a strcmp()-type result. */
 int