Mercurial > hg > octave-nkf
diff liboctave/idx-vector.cc @ 1130:65430ec9a4aa
[project @ 1995-02-22 13:32:29 by jwe]
author | jwe |
---|---|
date | Wed, 22 Feb 1995 13:33:31 +0000 |
parents | dfe01093f657 |
children | 32cb143658a6 |
line wrap: on
line diff
--- a/liboctave/idx-vector.cc +++ b/liboctave/idx-vector.cc @@ -54,7 +54,7 @@ min_val = a.min_val; } else - data = (int *) 0; + data = 0; } static inline int @@ -77,7 +77,7 @@ if (nr == 0 || nc == 0) { len = 0; - data = (int *) 0; + data =0; num_zeros = 0; num_ones = 0; one_zero = 0; @@ -128,7 +128,7 @@ } else if (len == 0) { - data = (int *) 0; + data = 0; num_zeros = 0; num_ones = 0; one_zero = 0; @@ -203,16 +203,7 @@ if (one_zero && z_len == len) { - if (num_zeros == len) - { - delete [] data; - len = 0; - data = (int *) 0; - num_zeros = 0; - num_ones = 0; - one_zero = 0; - } - else if (num_ones != len || user_pref.prefer_zero_one_indexing) + if (num_ones != len || user_pref.prefer_zero_one_indexing) convert_one_zero_to_idx (); } else if (min_val < 0) @@ -246,6 +237,7 @@ max_val = 0; min_val = 0; delete [] data; + data = 0; } else {