Mercurial > hg > octave-nkf

comparison src/fft.cc @ 162:d1c5e5edbf1e

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
161:21b599370728 162:d1c5e5edbf1e
33 #include "error.h" 33 #include "error.h"
34 #include "f-fft.h" 34 #include "f-fft.h"
35 35
36 #ifdef WITH_DLD 36 #ifdef WITH_DLD
37 tree_constant * 37 tree_constant *
38 builtin_fft_2 (tree_constant *args, int nargin, int nargout) 38 builtin_fft_2 (const tree_constant *args, int nargin, int nargout)
39 { 39 {
40 tree_constant *retval = new tree_constant [2]; 40 tree_constant *retval = new tree_constant [2];
41 retval[0] = fft (args[1]); 41 retval[0] = fft (args[1]);
42 return retval; 42 return retval;
43 } 43 }
44 #endif 44 #endif
45 45
46 tree_constant 46 tree_constant
47 fft (tree_constant& a) 47 fft (const tree_constant& a)
48 { 48 {
49 tree_constant retval; 49 tree_constant retval;
50 50
51 tree_constant tmp = a.make_numeric ();; 51 tree_constant tmp = a.make_numeric ();;
52 52