Mercurial > hg > octave-nkf

diff liboctave/floatQRP.cc @ 8811:20dfb885f877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/floatQRP.cc
+++ b/liboctave/floatQRP.cc
@@ -75,7 +75,8 @@
                                  tau, &rlwork, -1, info));
 
       // allocate buffer and do the job.
-      octave_idx_type lwork = rlwork; lwork = std::max (lwork, 1);
+      octave_idx_type lwork = rlwork;
+      lwork = std::max (lwork, static_cast<octave_idx_type> (1));
       OCTAVE_LOCAL_BUFFER (float, work, lwork);
       F77_XFCN (sgeqp3, SGEQP3, (m, n, afact.fortran_vec (), m, jpvt.fortran_vec (),
                                  tau, work, lwork, info));
@@ -86,7 +87,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);