From: John Darrington <john@darrington.wattle.id.au>
Date: Mon, 27 Jul 2009 17:41:25 +0000 (+0200)
Subject: Fix bug in casemapping long strings.
X-Git-Tag: build37~25
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=16ed48d38c50eff5d7c3f37e4ffbf58aee573891;p=pspp-builds.git

Fix bug in casemapping long strings.

Thanks to Ben Pfaff for pointing out the error.
---

diff --git a/src/data/case-map.c b/src/data/case-map.c
index 411b9f0d..49297d13 100644
--- a/src/data/case-map.c
+++ b/src/data/case-map.c
@@ -100,7 +100,7 @@ case_map_execute (const struct case_map *map, struct ccase *src)
         {
           int src_idx = map->map[dst_idx];
           if (src_idx != -1)
-            *case_data_rw_idx (dst, dst_idx) = *case_data_idx (src, src_idx);
+	    value_copy (case_data_rw_idx (dst, dst_idx), case_data_idx (src, src_idx), caseproto_get_width (map->proto, dst_idx));
         }
       case_unref (src);
       return dst;