(casereader_read): Don't require cases read by a casereader to be

exactly the expected size: as long as they're big enough, it's OK.

diff --git a/src/data/ChangeLog b/src/data/ChangeLog
index 4d4ff743521a8f957879fab4697a424f04d3d608..176a6fc0e912329ffc0bf1bde06d9c63766a24b1 100644 (file)
--- a/src/data/ChangeLog
+++ b/src/data/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-12  Ben Pfaff  <blp@gnu.org>
+
+       * casereader.c (casereader_read): Don't require cases read by a
+       casereader to be exactly the expected size: as long as they're big
+       enough, it's OK.
+
 2007-08-12  Ben Pfaff  <blp@gnu.org>
 
        Make casewriters keep track of the number of `union value's in
@@ -12,7 +18,6 @@
        (casewriter_write): Check that the case passed in is big enough.
        (casewriter_get_value_cnt): New function.
        (casewriter_create): Add value_cnt parameter.
-       
 
 2007-08-09  Ben Pfaff  <blp@gnu.org>
 

diff --git a/src/data/casereader.c b/src/data/casereader.c
index 8521ec9120f03d172d187364549f244e80afca28..3be1042d8224f2e4b97d6beb66e4dcc71adb56ee 100644 (file)
--- a/src/data/casereader.c
+++ b/src/data/casereader.c
@@ -58,7 +58,7 @@ casereader_read (struct casereader *reader, struct ccase *c)
 {
   if (reader->case_cnt != 0 && reader->class->read (reader, reader->aux, c))
     {
-      assert (case_get_value_cnt (c) == reader->value_cnt);
+      assert (case_get_value_cnt (c) >= reader->value_cnt);
       if (reader->case_cnt != CASENUMBER_MAX)
         reader->case_cnt--;
       return true;