Fix crash when ONEWAY/CONTRASTS contained an empty list.

Found by zzuf.

diff --git a/src/language/stats/oneway.c b/src/language/stats/oneway.c
index 9650dc6e6a7c3f14ed5afeb9446dedf6c52e86c1..8d7867234b0ce687a94502dfd990fdb0168c606e 100644 (file)
--- a/src/language/stats/oneway.c
+++ b/src/language/stats/oneway.c
@@ -545,6 +545,9 @@ cmd_oneway (struct lexer *lexer, struct dataset *ds)
                  goto error;
                }
            }
+         
+         if ( ll_count (coefficient_list) <= 0)
+           goto error;
 
          ll_push_tail (&oneway.contrast_list, &cl->ll);
        }

diff --git a/tests/language/stats/oneway.at b/tests/language/stats/oneway.at
index 336b328364a63e872419d2839f894857ef2cb57e..a53dfcdd4dea0ae7e285f241c8a58ee4392bedef 100644 (file)
--- a/tests/language/stats/oneway.at
+++ b/tests/language/stats/oneway.at
@@ -1008,8 +1008,30 @@ begin data.
 end data.
 
 oneway a"by b.
+
 ])
 
 AT_CHECK([pspp -O format=csv crash5.sps], [1], [ignore])
 
 AT_CLEANUP
+
+
+
+
+AT_SETUP([ONEWAY Crash on unterminated string])
+
+AT_DATA([crash6.sps], [dnl
+DATA LIST NOTABLE LIST /height * weight * temperature * sex *.
+BEGIN DATA.
+1801     .       .     0
+1606     .   0   .     1
+END DATA.
+
+ONEWAY /VARIABLES= height weight temperature BY sex
+ /CONTRAST =" 2 -2  1
+ .
+])
+
+AT_CHECK([pspp -O format=csv crash6.sps], [1], [ignore])
+
+AT_CLEANUP