X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fglm.c;h=28f61bc68bc7dd21e6f931aea8bf631d069eb1d7;hb=0cab34a28a09856c4aff9ce432c2c53350d1a501;hp=4b1b1a8bf3f7e233e44db8519e07da484963c23a;hpb=d4cbe8251cba21b41df4965adfb8f78c9d1f3947;p=pspp-builds.git

diff --git a/src/language/stats/glm.c b/src/language/stats/glm.c
index 4b1b1a8b..28f61bc6 100644
--- a/src/language/stats/glm.c
+++ b/src/language/stats/glm.c
@@ -33,6 +33,7 @@
 #include "language/lexer/lexer.h"
 #include "language/lexer/value-parser.h"
 #include "language/lexer/variable-parser.h"
+#include "libpspp/assertion.h"
 #include "libpspp/ll.h"
 #include "libpspp/message.h"
 #include "libpspp/misc.h"
@@ -537,7 +538,18 @@ run_glm (struct glm_spec *cmd, struct casereader *input,
     */
     ws.ssq = gsl_vector_alloc (cm->size1);
     gsl_vector_set (ws.ssq, 0, gsl_matrix_get (cm, 0, 0));
-    get_ssq (cov, ws.ssq, cmd);
+    switch (cmd->ss_type)
+      {
+      case 1:
+	break;
+      case 2:
+      case 3:
+	get_ssq (cov, ws.ssq, cmd);
+	break;
+      default:
+	NOT_REACHED ();
+	break;
+      }
     //    dump_matrix (cm);
 
     gsl_matrix_free (cm);