Mercurial > hg > octave-nkf

comparison src/eig.cc @ 163:b4bdbdf95e05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-10-18 19:26:01 by jwe] ..
author jwe
date Mon, 18 Oct 1993 19:26:01 +0000
parents d68036bcad4c
children a99f28f5e351
comparison
equal deleted inserted replaced
162:d1c5e5edbf1e 163:b4bdbdf95e05
33 #include "error.h" 33 #include "error.h"
34 #include "f-eig.h" 34 #include "f-eig.h"
35 35
36 #ifdef WITH_DLD 36 #ifdef WITH_DLD
37 tree_constant * 37 tree_constant *
38 builtin_eig (tree_constant *args, int nargin, int nargout) 38 builtin_eig (const tree_constant *args, int nargin, int nargout)
39 { 39 {
40 return eig (args, nargin, nargout); 40 return eig (args, nargin, nargout);
41 } 41 }
42 #endif 42 #endif
43 43
44 tree_constant * 44 tree_constant *
45 eig (tree_constant *args, int nargin, int nargout) 45 eig (const tree_constant *args, int nargin, int nargout)
46 { 46 {
47 tree_constant *retval = NULL_TREE_CONST; 47 tree_constant *retval = NULL_TREE_CONST;
48 48
49 tree_constant arg = args[1].make_numeric (); 49 tree_constant arg = args[1].make_numeric ();
50 50