Fix EXPORT problem with string variables. From Andreas Streichardt

<streichardt@globalpark.de>.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2e52e8ef05389ff7e867d7ebf320d2da54ef9341..3a8fdf716155c0d43e146a877de2669710c5ebe7 100644 (file)
--- 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 359f0440159480c26d9d40264ccc1079e85bb232..054621fea3335dba01d08c8add37a40e38ddac89 100644 (file)
--- 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;
        }
     }