X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=blobdiff_plain;f=src%2Fdata%2Fcaseproto.c;h=68df141ba9f9638f72914b1822789764ac712d33;hp=1a40213a537d295f78241a0c35a0594ba3a6262a;hb=ed0dda01c61c6b086e47f64302b75da5df97db87;hpb=ed7039fafdba4e2f72ad6e4192197fc938c6d2b0

diff --git a/src/data/caseproto.c b/src/data/caseproto.c
index 1a40213a..68df141b 100644
--- a/src/data/caseproto.c
+++ b/src/data/caseproto.c
@@ -59,6 +59,26 @@ caseproto_create (void)
   return proto;
 }
 
+
+struct caseproto *
+caseproto_clone (const struct caseproto *in)
+{
+  struct caseproto *proto = xmalloc (caseproto_size (in->n_widths));
+  proto->ref_cnt = 1;
+
+  proto->n_widths = in->n_widths;
+  proto->allocated_widths = in->allocated_widths;
+  
+  memcpy (proto->widths, in->widths, proto->n_widths *  sizeof *proto->widths);
+
+  proto->n_long_strings = in->n_long_strings;
+  proto->long_strings = NULL;
+  if ( proto->n_long_strings > 0)
+    caseproto_refresh_long_string_cache__ (proto);
+
+  return proto;
+}
+
 static void
 do_unref (void *proto_)
 {