From: John Darrington <john@darrington.wattle.id.au>
Date: Wed, 10 Jun 2009 13:50:48 +0000 (+0800)
Subject: Fix bug when positive and negative groups are of different lengths
X-Git-Tag: build37~50^2~20
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ef05e82c1e224ccfc24594ffc41a155a585276d5;p=pspp-builds.git

Fix bug when positive and negative groups are of different lengths
---

diff --git a/src/language/stats/roc.c b/src/language/stats/roc.c
index 054289f1..b3841634 100644
--- a/src/language/stats/roc.c
+++ b/src/language/stats/roc.c
@@ -474,6 +474,8 @@ do_roc (struct cmd_roc *roc, struct casereader *input, struct dictionary *dict)
 		case_unref (cneg);
 
 	      cneg = casereader_read (n_neg);
+	      if ( ! cneg )
+		break;
 	      dneg = case_data_idx (cneg, VALUE)->f;
 	    }