Mercurial > octave

changeset 20860:61892a245653

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2015 Code Sprint: dmperm.cc: use ovl().
author Rik <rik@octave.org>
date Sat, 12 Dec 2015 08:31:22 -0800
parents 1f4d6b1f50c1
children 6774cc464ea0
files libinterp/dldfcn/dmperm.cc
diffstat 1 files changed, 4 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/dldfcn/dmperm.cc	Sat Dec 12 08:26:36 2015 -0800
+++ b/libinterp/dldfcn/dmperm.cc	Sat Dec 12 08:31:22 2015 -0800
@@ -112,15 +112,11 @@
       //retval(5) = put_int (dm->rr, 5);
       //retval(4) = put_int (dm->cc, 5);
 #if defined (CS_VER) && (CS_VER >= 2)
-      retval(3) = put_int (dm->s, dm->nb+1);
-      retval(2) = put_int (dm->r, dm->nb+1);
-      retval(1) = put_int (dm->q, nc);
-      retval(0) = put_int (dm->p, nr);
+      retval = ovl (put_int (dm->p, nr), put_int (dm->q, nc),
+                    put_int (dm->r, dm->nb+1), put_int (dm->s, dm->nb+1));
 #else
-      retval(3) = put_int (dm->S, dm->nb+1);
-      retval(2) = put_int (dm->R, dm->nb+1);
-      retval(1) = put_int (dm->Q, nc);
-      retval(0) = put_int (dm->P, nr);
+      retval = ovl (put_int (dm->P, nr), put_int (dm->Q, nc),
+                    put_int (dm->R, dm->nb+1), put_int (dm->S, dm->nb+1));
 #endif
       CXSPARSE_NAME (_dfree) (dm);
     }