From: Ben Pfaff <blp@gnu.org>
Date: Sat, 19 Mar 2005 22:50:59 +0000 (+0000)
Subject: (dump_aggregate_info) Properly test whether the destination variable
X-Git-Tag: v0.4.0~128
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=304c185799902df1dd96a8ff2d13d279005a82e5;p=pspp-builds.git

(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 cb998be2..f2b48da2 100644
--- 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 f56a2160..55ca5ece 100644
--- 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;