From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 14 Jul 2007 06:25:23 +0000 (+0000)
Subject: Only taint casereader if case size is unknown.
X-Git-Tag: v0.6.0~382
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=25b137fbf6afe8bd40b26a93543e5b8a5af87e61;p=pspp-builds.git

Only taint casereader if case size is unknown.
---

diff --git a/src/data/sys-file-reader.c b/src/data/sys-file-reader.c
index 6d2a982d..cecd7e3b 100644
--- a/src/data/sys-file-reader.c
+++ b/src/data/sys-file-reader.c
@@ -1161,7 +1161,8 @@ sys_file_casereader_read (struct casereader *reader, void *r_,
                            sizeof (union value) * r->flt64_cnt))
         {
           case_destroy (c);
-	  read_error (reader, r);
+	  if ( r->case_cnt != -1 )
+	    read_error (reader, r);
           return false;
         }
 
@@ -1237,7 +1238,8 @@ sys_file_casereader_read (struct casereader *reader, void *r_,
       case_destroy (c);
       if (i != 0)
         partial_record (r);
-      read_error (reader, r);
+      if ( r->case_cnt != -1 )
+	read_error (reader, r);
       return false;
     }
 }