(dump_aggregate_info) Properly test whether the destination variable

is numeric, when making the result system-missing for columnwise
missing values.

diff --git a/src/ChangeLog b/src/ChangeLog
index cb998be23e28a02217f7549b03ee7784c0cda5df..f2b48da2fc74ed160cbd08074dfc696859a8ad2e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+Sat Mar 19 14:48:19 2005  Ben Pfaff  <blp@gnu.org>
+
+       * aggregate.c: (dump_aggregate_info) Properly test whether the
+       destination variable is numeric, when making the result
+       system-missing for columnwise missing values.
+
 Mon Mar 14 21:52:34 2005  Ben Pfaff  <blp@gnu.org>
 
        * misc.h: Remove GCC specializations.

diff --git a/src/aggregate.c b/src/aggregate.c
index f56a216083b6ea74c7f9760f57cc6523b65b4bf9..55ca5ece76959f404e0cfde61a1035f3917b22e3 100644 (file)
--- a/src/aggregate.c
+++ b/src/aggregate.c
@@ -996,7 +996,7 @@ dump_aggregate_info (struct agr_proc *agr, struct ccase *output)
            && (i->function & FUNC) != N && (i->function & FUNC) != NU
            && (i->function & FUNC) != NMISS && (i->function & FUNC) != NUMISS)
          {
-           if (i->function & FSTRING)
+           if (i->dest->type == ALPHA)
              memset (v->s, ' ', i->dest->width);
            else
              v->f = SYSMIS;