Mercurial > hg > octave-nkf

diff src/DLD-FUNCTIONS/lsode.cc @ 3997:d4091aff6468

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-17 18:00:06 by jwe]
author jwe
date Wed, 17 Jul 2002 18:00:07 +0000
parents 48d2bc4a3729
children f6df65db67f9
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/lsode.cc
+++ b/src/DLD-FUNCTIONS/lsode.cc
@@ -289,7 +289,9 @@
 
       if (! error_state)
 	{
-	  retval(2) = ode.error_message ();
+	  std::string msg = ode.error_message ();
+
+	  retval(2) = msg;
 	  retval(1) = static_cast<double> (ode.integration_state ());
 
 	  if (ode.integration_ok ())
@@ -299,10 +301,7 @@
 	      retval(0) = Matrix ();
 
 	      if (nargout < 2)
-		{
-		  std::string msg = ode.error_message ();
-		  error ("lsode: %s", msg.c_str ());
-		}
+		error ("lsode: %s", msg.c_str ());
 	    }
 	}
     }