Mercurial > hg > octave-lyh
diff liboctave/lo-specfun.cc @ 10258:e317791645c4
64-bit fixes
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 03 Feb 2010 15:27:53 -0500 |
| parents | 4c0cdbe0acca |
| children | 07ebe522dac2 |
line wrap: on
line diff
--- a/liboctave/lo-specfun.cc +++ b/liboctave/lo-specfun.cc @@ -2095,8 +2095,6 @@ r1, c1, r2, c2, r3, c3); } -static dim_vector null_dims (0); - static void gripe_betainc_nonconformant (const dim_vector& d1, const dim_vector& d2, const dim_vector& d3) @@ -2217,7 +2215,7 @@ retval (i) = betainc (x, a(i), b(i)); } else - gripe_betainc_nonconformant (dim_vector (0), dv, b.dims ()); + gripe_betainc_nonconformant (dim_vector (0, 0), dv, b.dims ()); return retval; } @@ -2346,7 +2344,7 @@ retval (i) = betainc (x(i), a, b(i)); } else - gripe_betainc_nonconformant (dv, dim_vector (0), b.dims ()); + gripe_betainc_nonconformant (dv, dim_vector (0, 0), b.dims ()); return retval; } @@ -2367,7 +2365,7 @@ retval (i) = betainc (x(i), a(i), b); } else - gripe_betainc_nonconformant (dv, a.dims (), dim_vector (0)); + gripe_betainc_nonconformant (dv, a.dims (), dim_vector (0, 0)); return retval; } @@ -2500,7 +2498,7 @@ retval (i) = betainc (x, a(i), b(i)); } else - gripe_betainc_nonconformant (dim_vector (0), dv, b.dims ()); + gripe_betainc_nonconformant (dim_vector (0, 0), dv, b.dims ()); return retval; } @@ -2629,7 +2627,7 @@ retval (i) = betainc (x(i), a, b(i)); } else - gripe_betainc_nonconformant (dv, dim_vector (0), b.dims ()); + gripe_betainc_nonconformant (dv, dim_vector (0, 0), b.dims ()); return retval; } @@ -2650,7 +2648,7 @@ retval (i) = betainc (x(i), a(i), b); } else - gripe_betainc_nonconformant (dv, a.dims (), dim_vector (0)); + gripe_betainc_nonconformant (dv, a.dims (), dim_vector (0, 0)); return retval; }