# HG changeset patch
# User jwe
# Date 1199401533 0
# Node ID 3093cb640697179a50d4ce85b951f5f6bc1d28b9
# Parent  3706ac0750f1a6037d464e5c552ba2f6c53389cb
[3-0-0-branch @ 2008-01-03 23:05:32 by jwe]

diff -r 3706ac0750f1 -r 3093cb640697 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Wed Jan 02 07:42:13 2008 +0000
+++ b/liboctave/ChangeLog	Thu Jan 03 23:05:33 2008 +0000
@@ -1,3 +1,9 @@
+2008-01-03  David Bateman  <dbateman@free.fr>
+
+	* MSparse.cc (SPARSE_A2A2_OP): If first arg is scalar zero, then
+	need unary operator on remaining argument
+	* Sparse-op-defs.h (SPARSE_SMSM_BIN_OP_1): ditto.
+
 2007-12-21  John W. Eaton  <jwe@octave.org>
 
 	Version 3.0.0 released.
diff -r 3706ac0750f1 -r 3093cb640697 liboctave/MSparse.cc
--- a/liboctave/MSparse.cc	Wed Jan 02 07:42:13 2008 +0000
+++ b/liboctave/MSparse.cc	Thu Jan 03 23:05:33 2008 +0000
@@ -292,7 +292,7 @@
     if (a_nr == 1 && a_nc == 1) \
       { \
         if (a.elem(0,0) == 0.) \
-          r = MSparse<T> (b); \
+          r =  OP MSparse<T> (b); \
         else \
           { \
 	    r = MSparse<T> (b_nr, b_nc, a.data(0) OP 0.); \
diff -r 3706ac0750f1 -r 3093cb640697 liboctave/Sparse-op-defs.h
--- a/liboctave/Sparse-op-defs.h	Wed Jan 02 07:42:13 2008 +0000
+++ b/liboctave/Sparse-op-defs.h	Thu Jan 03 23:05:33 2008 +0000
@@ -396,7 +396,7 @@
     if (m1_nr == 1 && m1_nc == 1) \
       { \
         if (m1.elem(0,0) == 0.) \
-          r = R (m2); \
+          r = OP R (m2); \
         else \
           { \
 	    r = R (m2_nr, m2_nc, m1.data(0) OP 0.); \