# HG changeset patch
# User dbateman
# Date 1147376775 0
# Node ID dfef2f909f341827acf399e3934ea39310247619
# Parent  653405a3af98dd00fe7b52cb7315dbe5e538cf75
[project @ 2006-05-11 19:46:15 by dbateman]

diff -r 653405a3af98 -r dfef2f909f34 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Thu May 11 17:43:42 2006 +0000
+++ b/liboctave/ChangeLog	Thu May 11 19:46:15 2006 +0000
@@ -1,3 +1,8 @@
+2006-05-08  David Bateman  <dbateman@free.fr>
+
+	* Sparse-op-defs.h (SPARSE_SPARSE_MUL): fix bug in previous
+	modification.
+
 2006-05-09  David Bateman  <dbateman@free.fr>
 
 	* sparse-dmsolve.cc: Remove reference to ov-re-sparse.h,
diff -r 653405a3af98 -r dfef2f909f34 liboctave/Sparse-op-defs.h
--- a/liboctave/Sparse-op-defs.h	Thu May 11 17:43:42 2006 +0000
+++ b/liboctave/Sparse-op-defs.h	Thu May 11 19:46:15 2006 +0000
@@ -1623,7 +1623,7 @@
 			} \
 		    } \
 		  for (octave_idx_type k = 0; k < nr; k++) \
-		    if (w[k] == i + 1 && Xcol[k] != 0.) \
+		    if (w[k] == i + 1) \
 		      { \
 		        retval.xdata(ii) = Xcol[k]; \
 		        retval.xridx(ii++) = k; \
@@ -1655,7 +1655,7 @@
 		    retval.xdata(k) = Xcol[retval.xridx(k)]; \
 		}  \
 	    } \
-	  retval.maybe_compress ();\
+	  retval.maybe_compress (true);\
 	  return retval; \
 	} \
     }