Mercurial > hg > octave-lyh

comparison src/ov-complex.cc @ 2423:de430cdd9234

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-10-18 20:39:41 by jwe]
author jwe
date Fri, 18 Oct 1996 20:39:42 +0000
parents 367485171742
children 1573640a9994
comparison
equal deleted inserted replaced
2422:327f65b8ea0c 2423:de430cdd9234
31 #include "lo-ieee.h" 31 #include "lo-ieee.h"
32 32
33 #include "oct-obj.h" 33 #include "oct-obj.h"
34 #include "ops.h" 34 #include "ops.h"
35 #include "ov-complex.h" 35 #include "ov-complex.h"
36 #include "ov-cx-mat.h"
36 #include "ov-scalar.h" 37 #include "ov-scalar.h"
37 #include "gripes.h" 38 #include "gripes.h"
38 #include "pr-output.h" 39 #include "pr-output.h"
39 40
40 int octave_complex::t_id = -1; 41 int octave_complex::t_id = -1;
77 // 78 //
78 // a = i; a([1,1], [1,1], [1,1]) 79 // a = i; a([1,1], [1,1], [1,1])
79 // 80 //
80 // and similar constructions. Hmm... 81 // and similar constructions. Hmm...
81 82
82 octave_value tmp (complex_matrix_value ()); 83 // XXX FIXME XXX -- using this constructor avoids narrowing the
84 // 1x1 matrix back to a scalar value. Need a better solution
85 // to this problem.
86
87 octave_value tmp (new octave_complex_matrix (complex_matrix_value ()));
83 88
84 retval = tmp.index (idx); 89 retval = tmp.index (idx);
85 } 90 }
86 91
87 return retval; 92 return retval;