diff liboctave/CmplxQRP.cc @ 8811:20dfb885f877

int -> octave_idx fixes
author John W. Eaton <jwe@octave.org>
date Wed, 18 Feb 2009 23:34:03 -0500
parents c86718093c1b
children eb63fbe60fab
line wrap: on
line diff
--- a/liboctave/CmplxQRP.cc	Wed Feb 18 17:46:07 2009 -0500
+++ b/liboctave/CmplxQRP.cc	Wed Feb 18 23:34:03 2009 -0500
@@ -77,7 +77,8 @@
                                  tau, &clwork, -1, rwork, info));
 
       // allocate buffer and do the job.
-      octave_idx_type lwork = clwork.real (); lwork = std::max (lwork, 1);
+      octave_idx_type lwork = clwork.real ();
+      lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (Complex, work, lwork);
       F77_XFCN (zgeqp3, ZGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
                                  tau, work, lwork, rwork, info));
@@ -88,7 +89,7 @@
   // Form Permutation matrix (if economy is requested, return the
   // indices only!)
 
-  jpvt -= 1;
+  jpvt -= static_cast<octave_idx_type> (1);
   p = PermMatrix (jpvt, true);