Mercurial > octave
diff src/OPERATORS/op-fs-fcs.cc @ 7814:87865ed7405f
Second set of single precision test code and fix of resulting bugs
author | David Bateman <dbateman@free.fr> |
---|---|
date | Mon, 02 Jun 2008 16:57:45 +0200 |
parents | 82be108cc558 |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/src/OPERATORS/op-fs-fcs.cc Thu May 22 22:00:26 2008 +0200 +++ b/src/OPERATORS/op-fs-fcs.cc Mon Jun 02 16:57:45 2008 +0200 @@ -31,6 +31,7 @@ #include "ov-scalar.h" #include "ov-float.h" #include "ov-flt-complex.h" +#include "ov-complex.h" #include "ov-cx-mat.h" #include "ov-flt-cx-mat.h" #include "ov-typeinfo.h" @@ -157,6 +158,12 @@ DEFNDCATOP_FN (fs_fcs, float_scalar, float_complex, float_array, float_complex_array, concat) +DEFNDCATOP_FN (s_fcs, scalar, float_complex, float_array, + float_complex_array, concat) + +DEFNDCATOP_FN (fs_cs, float_scalar, complex, float_array, + float_complex_array, concat) + void install_fs_fcs_ops (void) { @@ -180,6 +187,8 @@ INSTALL_BINOP (op_el_or, octave_float_scalar, octave_float_complex, el_or); INSTALL_CATOP (octave_float_scalar, octave_float_complex, fs_fcs); + INSTALL_CATOP (octave_scalar, octave_float_complex, s_fcs); + INSTALL_CATOP (octave_float_scalar, octave_complex, fs_cs); INSTALL_ASSIGNCONV (octave_float_scalar, octave_float_complex, octave_float_complex_matrix);