Mercurial > hg > octave-nkf
diff src/ov-typeinfo.h @ 2882:05926e1b367d
[project @ 1997-04-24 09:48:59 by jwe]
| author | jwe |
|---|---|
| date | Thu, 24 Apr 1997 09:51:05 +0000 |
| parents | 8b262e771614 |
| children | 66ef74ee5d9f |
line wrap: on
line diff
--- a/src/ov-typeinfo.h +++ b/src/ov-typeinfo.h @@ -47,7 +47,8 @@ static bool register_binary_op (octave_value::binary_op, int, int, binary_op_fcn); - static bool register_assign_op (int, int, assign_op_fcn); + static bool register_assign_op (octave_value::assign_op, int, int, + assign_op_fcn); static bool register_pref_assign_conv (int, int, int); @@ -60,9 +61,9 @@ } static assign_op_fcn - lookup_assign_op (int t_lhs, int t_rhs) + lookup_assign_op (octave_value::assign_op op, int t_lhs, int t_rhs) { - return instance->do_lookup_assign_op (t_lhs, t_rhs); + return instance->do_lookup_assign_op (op, t_lhs, t_rhs); } static int @@ -88,7 +89,8 @@ : num_types (0), types (init_tab_sz, string ()), binary_ops (octave_value::num_binary_ops, init_tab_sz, init_tab_sz, (binary_op_fcn) 0), - assign_ops (init_tab_sz, init_tab_sz, (assign_op_fcn) 0), + assign_ops (octave_value::num_assign_ops, init_tab_sz, + init_tab_sz, (assign_op_fcn) 0), pref_assign_conv (init_tab_sz, init_tab_sz, -1), widening_ops (init_tab_sz, init_tab_sz, (type_conv_fcn) 0) { } @@ -104,7 +106,7 @@ Array3<binary_op_fcn> binary_ops; - Array2<assign_op_fcn> assign_ops; + Array3<assign_op_fcn> assign_ops; Array2<int> pref_assign_conv; @@ -115,7 +117,8 @@ bool do_register_binary_op (octave_value::binary_op, int, int, binary_op_fcn); - bool do_register_assign_op (int, int, assign_op_fcn); + bool do_register_assign_op (octave_value::assign_op, int, int, + assign_op_fcn); bool do_register_pref_assign_conv (int, int, int); @@ -124,7 +127,8 @@ binary_op_fcn do_lookup_binary_op (octave_value::binary_op, int, int); - assign_op_fcn do_lookup_assign_op (int, int); + assign_op_fcn + do_lookup_assign_op (octave_value::assign_op, int, int); int do_lookup_pref_assign_conv (int, int);