From: Ben Pfaff <blp@gnu.org>
Date: Thu, 18 Mar 2004 19:10:15 +0000 (+0000)
Subject: Fix EXPORT problem with string variables.  From Andreas Streichardt
X-Git-Tag: v0.4.0~316
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c87013b64d1731dac5da8f738ae8d1b4c1030a90;p=pspp-builds.git

Fix EXPORT problem with string variables.  From Andreas Streichardt
<streichardt@globalpark.de>.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 2e52e8ef..3a8fdf71 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+Thu Mar 18 11:07:14 2004  Ben Pfaff  <blp@gnu.org>
+
+	* pfm-write.c: (bufwrite) Write out the correct element for string
+	variables.  From Andreas Streichardt <streichardt@globalpark.de>.
+
 Mon Mar 15 20:48:03 2004  Ben Pfaff  <blp@gnu.org>
 
 	Get rid of static and global (!) vars in matrix-data.c.
diff --git a/src/pfm-write.c b/src/pfm-write.c
index 359f0440..054621fe 100644
--- a/src/pfm-write.c
+++ b/src/pfm-write.c
@@ -473,7 +473,7 @@ pfm_write_case (struct file_handle *h, const union value *elem)
 	}
       else
 	{
-	  if (!write_int (h, width) || !bufwrite (h, elem->c, width))
+	  if (!write_int (h, width) || !bufwrite (h, elem[i].c, width))
 	    return 0;
 	}
     }