Mercurial > octave

diff src/expm.cc @ 497:88614b380d6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-08 02:00:57 by jwe]
author jwe
date Fri, 08 Jul 1994 02:08:37 +0000
parents 393e95f46b51
children 0f388340e607
line wrap: on
line diff
--- a/src/expm.cc	Wed Jul 06 15:02:26 1994 +0000
+++ b/src/expm.cc	Fri Jul 08 02:08:37 1994 +0000
@@ -43,11 +43,11 @@
 #include "f-expm.h"
 
 #ifdef WITH_DLD
-tree_constant *
-builtin_matrix_exp_2 (const tree_constant *args, int nargin, int nargout)
+Octave_object
+builtin_matrix_exp_2 (const Octave_object& args, int nargin, int nargout)
 {
-  tree_constant *retval = new tree_constant [2];
-  retval[0] = matrix_exp (args[1]);
+  Octave_object retval (1);
+  retval(0) = matrix_exp (args(1));
   return retval;
 }
 #endif
@@ -69,7 +69,7 @@
 
 // Constants for matrix exponential calculation.
 
-  static double padec[] =
+  static double padec [] =
     {
       5.0000000000000000e-1,
       1.1666666666666667e-1,