[Pspp-cvs] pspp/src/data ChangeLog sys-file-writer.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Branch:         
Changes by:     Ben Pfaff <address@hidden>      06/05/06 21:26:48

Modified files:
        src/data       : ChangeLog sys-file-writer.c 

Log message:
        (does_dict_need_translation) Fix bug: inverted return value (!).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/pspp/src/data/ChangeLog.diff?tr1=1.36&tr2=1.37&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/pspp/pspp/src/data/sys-file-writer.c.diff?tr1=1.7&tr2=1.8&r1=text&r2=text

Patches:
Index: pspp/src/data/ChangeLog
diff -u pspp/src/data/ChangeLog:1.36 pspp/src/data/ChangeLog:1.37
--- pspp/src/data/ChangeLog:1.36        Sat May  6 20:39:47 2006
+++ pspp/src/data/ChangeLog     Sat May  6 21:26:48 2006
@@ -1,3 +1,8 @@
+Sat May  6 14:25:49 2006  Ben Pfaff  <address@hidden>
+
+       * sys-file-writer.c: (does_dict_need_translation) Fix bug:
+       inverted return value (!).
+
 Sat May  6 13:37:52 2006  Ben Pfaff  <address@hidden>
 
        Continue reforming procedure execution.  
Index: pspp/src/data/sys-file-writer.c
diff -u pspp/src/data/sys-file-writer.c:1.7 pspp/src/data/sys-file-writer.c:1.8
--- pspp/src/data/sys-file-writer.c:1.7 Tue May  2 03:51:43 2006
+++ pspp/src/data/sys-file-writer.c     Sat May  6 21:26:48 2006
@@ -328,6 +328,10 @@
   goto error;
 }
 
+/* Returns zero if dictionary D's cases are ordered in the
+   natural manner, with the first variable followed by the
+   second, and so on,
+   nonzero otherwise. */
 static int
 does_dict_need_translation (const struct dictionary *d)
 {
@@ -339,10 +343,10 @@
     {
       struct variable *v = dict_get_var (d, i);
       if (v->fv != case_idx)
-        return 0;
+        return 1;
       case_idx += v->nv;
     }
-  return 1;
+  return 0;
 }
 
 /* Returns value of X truncated to two least-significant digits. */