Mercurial > octave-nkf

comparison src/OPERATORS/op-int-conv.cc @ 10405:cc69a17ec801

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove integer math warnings
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 09 Mar 2010 08:06:30 +0100
parents ac4b97c6bf8b
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10404:b40a5fd3af41 10405:cc69a17ec801
49 #define DEFINTCONVFN(name, tfrom, tto) \ 49 #define DEFINTCONVFN(name, tfrom, tto) \
50 CONVDECL (name) \ 50 CONVDECL (name) \
51 { \ 51 { \
52 CAST_CONV_ARG (const octave_ ## tfrom&); \ 52 CAST_CONV_ARG (const octave_ ## tfrom&); \
53 \ 53 \
54 octave_ ## tto ::clear_conv_flag (); \
55 octave_ ## tto ## _matrix v2 = v.tto ## _array_value (); \ 54 octave_ ## tto ## _matrix v2 = v.tto ## _array_value (); \
56 if (octave_ ## tto ::get_trunc_flag ()) \
57 gripe_truncated_conversion (v.type_name (). c_str (), \
58 v2.type_name (). c_str ()); \
59 if (octave_ ## tto ::get_nan_flag ()) \
60 gripe_nan_conversion (v.type_name (). c_str (), \
61 v2.type_name (). c_str ()); \
62 if (octave_ ## tto ::get_non_int_flag ()) \
63 gripe_non_integer_conversion (v.type_name (). c_str (), \
64 v2.type_name (). c_str ()); \
65 octave_ ## tto ::clear_conv_flag (); \
66 return new octave_ ## tto ## _matrix (v2); \ 55 return new octave_ ## tto ## _matrix (v2); \
67 } 56 }
68 57
69 // conversion ops 58 // conversion ops
70 59