Mercurial > octave-nkf

comparison src/OPERATORS/op-fcs-fcs.cc @ 9588:319e2ab9b8ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
warn about the complex comparison ops
author Jaroslav Hajek <highegg@gmail.com>
date Sun, 30 Aug 2009 21:48:19 +0200
parents 42a18d5aff7f
children fb6b6fcafa62
comparison
equal deleted inserted replaced
9587:5ab448e3febe 9588:319e2ab9b8ae
92 gripe_divide_by_zero (); 92 gripe_divide_by_zero ();
93 93
94 return octave_value (v2.float_complex_value () / d); 94 return octave_value (v2.float_complex_value () / d);
95 } 95 }
96 96
97 DEFBINOP_OP (lt, float_complex, float_complex, <) 97 DEFCMPLXCMPOP_OP (lt, float_complex, float_complex, <)
98 DEFBINOP_OP (le, float_complex, float_complex, <=) 98 DEFCMPLXCMPOP_OP (le, float_complex, float_complex, <=)
99 DEFBINOP_OP (eq, float_complex, float_complex, ==) 99 DEFCMPLXCMPOP_OP (eq, float_complex, float_complex, ==)
100 DEFBINOP_OP (ge, float_complex, float_complex, >=) 100 DEFCMPLXCMPOP_OP (ge, float_complex, float_complex, >=)
101 DEFBINOP_OP (gt, float_complex, float_complex, >) 101 DEFCMPLXCMPOP_OP (gt, float_complex, float_complex, >)
102 DEFBINOP_OP (ne, float_complex, float_complex, !=) 102 DEFCMPLXCMPOP_OP (ne, float_complex, float_complex, !=)
103 103
104 DEFBINOP_OP (el_mul, float_complex, float_complex, *) 104 DEFBINOP_OP (el_mul, float_complex, float_complex, *)
105 105
106 DEFBINOP (el_div, float_complex, float_complex) 106 DEFBINOP (el_div, float_complex, float_complex)
107 { 107 {