Mercurial > hg > octave-nkf
diff liboctave/MArray.cc @ 5275:23b37da9fd5b
[project @ 2005-04-08 16:07:35 by jwe]
| author | jwe |
|---|---|
| date | Fri, 08 Apr 2005 16:07:37 +0000 |
| parents | e35b034d3523 |
| children | 4c8a2e4e0717 |
line wrap: on
line diff
--- a/liboctave/MArray.cc +++ b/liboctave/MArray.cc @@ -56,10 +56,10 @@ MArray<T>& operator += (MArray<T>& a, const MArray<T>& b) { - int l = a.length (); + octave_idx_type l = a.length (); if (l > 0) { - int bl = b.length (); + octave_idx_type bl = b.length (); if (l != bl) gripe_nonconformant ("operator +=", l, bl); else @@ -72,10 +72,10 @@ MArray<T>& operator -= (MArray<T>& a, const MArray<T>& b) { - int l = a.length (); + octave_idx_type l = a.length (); if (l > 0) { - int bl = b.length (); + octave_idx_type bl = b.length (); if (l != bl) gripe_nonconformant ("operator -=", l, bl); else @@ -93,7 +93,7 @@ { \ MArray<T> result (a.length ()); \ T *r = result.fortran_vec (); \ - int l = a.length (); \ + octave_idx_type l = a.length (); \ const T *v = a.data (); \ DO_VS_OP (r, l, v, OP, s); \ return result; \ @@ -113,7 +113,7 @@ { \ MArray<T> result (a.length ()); \ T *r = result.fortran_vec (); \ - int l = a.length (); \ + octave_idx_type l = a.length (); \ const T *v = a.data (); \ DO_SV_OP (r, l, s, OP, v); \ return result; \ @@ -131,8 +131,8 @@ MArray<T> \ FCN (const MArray<T>& a, const MArray<T>& b) \ { \ - int l = a.length (); \ - int bl = b.length (); \ + octave_idx_type l = a.length (); \ + octave_idx_type bl = b.length (); \ if (l != bl) \ { \ gripe_nonconformant (#FCN, l, bl); \ @@ -166,7 +166,7 @@ MArray<T> operator - (const MArray<T>& a) { - int l = a.length (); + octave_idx_type l = a.length (); MArray<T> result (l); T *r = result.fortran_vec (); const T *x = a.data ();