# HG changeset patch # User jwe # Date 1037732098 0 # Node ID dda53b247bc8dbd50e367c2f0315df2e3abda7a8 # Parent bf9c5ca4c3f34e67970353c52df2712e947a6bcf [project @ 2002-11-19 18:54:58 by jwe] diff -r bf9c5ca4c3f3 -r dda53b247bc8 liboctave/MDiagArray2.cc --- a/liboctave/MDiagArray2.cc Tue Nov 19 00:33:40 2002 +0000 +++ b/liboctave/MDiagArray2.cc Tue Nov 19 18:54:58 2002 +0000 @@ -33,6 +33,9 @@ #include "MArray-defs.h" +// Some functions return a reference to this object after a failure. +template MDiagArray2 MDiagArray2::nil_array; + // Two dimensional diagonal array with math ops. // Element by element MDiagArray2 by MDiagArray2 ops. @@ -50,8 +53,7 @@ if (r != b_nr || c != b_nc) { gripe_nonconformant ("operator +=", r, c, b_nr, b_nc); - static MDiagArray2 foo; - return foo; + return MDiagArray2::nil_array; } else { @@ -74,8 +76,7 @@ if (r != b_nr || c != b_nc) { gripe_nonconformant ("operator -=", r, c, b_nr, b_nc); - static MDiagArray2 foo; - return foo; + return MDiagArray2::nil_array; } else { diff -r bf9c5ca4c3f3 -r dda53b247bc8 liboctave/MDiagArray2.h --- a/liboctave/MDiagArray2.h Tue Nov 19 00:33:40 2002 +0000 +++ b/liboctave/MDiagArray2.h Tue Nov 19 18:54:58 2002 +0000 @@ -81,6 +81,8 @@ return retval; } + static MDiagArray2 nil_array; + // Currently, the OPS functions don't need to be friends, but that // may change. diff -r bf9c5ca4c3f3 -r dda53b247bc8 src/ChangeLog --- a/src/ChangeLog Tue Nov 19 00:33:40 2002 +0000 +++ b/src/ChangeLog Tue Nov 19 18:54:58 2002 +0000 @@ -1,3 +1,8 @@ +2002-11-19 John W. Eaton + + * DLD-FUNCTIONS/odessa.cc (odessa_user_j): Put T in args(1), not + args(0). + 2002-11-18 John W. Eaton * parse.y (symtab_context): Now extern. diff -r bf9c5ca4c3f3 -r dda53b247bc8 src/DLD-FUNCTIONS/odessa.cc --- a/src/DLD-FUNCTIONS/odessa.cc Tue Nov 19 00:33:40 2002 +0000 +++ b/src/DLD-FUNCTIONS/odessa.cc Tue Nov 19 18:54:58 2002 +0000 @@ -134,7 +134,7 @@ else args(2) = Matrix (); - args(0) = t; + args(1) = t; if (n > 1) args(0) = x;