Mercurial > mxe-octave

changeset 4943:c2953d95fbc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
of-linear-algebra: dev octave update patch (bug #55325) * src/of-linear-algebra-5-deprecated.patch: new file * dist-files.mk: add ref to patch
author Markus Mützel <markus.muetzel@gmx.de>
date Sat, 26 Jan 2019 12:33:02 +0100
parents 805494784837
children 46e04d53b955
files dist-files.mk src/of-linear-algebra-5-deprecated.patch
diffstat 2 files changed, 50 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/dist-files.mk	Sun Jan 20 17:59:50 2019 +0100
+++ b/dist-files.mk	Sat Jan 26 12:33:02 2019 +0100
@@ -493,6 +493,7 @@
   of-linear-algebra-2-dev-fixes.patch \
   of-linear-algebra-3-fixes.patch \
   of-linear-algebra-4-fixes.patch \
+  of-linear-algebra-5-deprecated.patch \
   of-linear-algebra.mk \
   of-lssa.mk \
   of-ltfat-1-cross-fixes.patch \
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/of-linear-algebra-5-deprecated.patch	Sat Jan 26 12:33:02 2019 +0100
@@ -0,0 +1,49 @@
+diff -r a9667cba7fd4 src/CmplxGSVD.cc
+--- a/src/CmplxGSVD.cc	Mon Jan 02 16:31:33 2017 -0500
++++ b/src/CmplxGSVD.cc	Sun Jan 20 20:15:09 2019 +0100
+@@ -215,9 +215,6 @@
+ 			     F77_CHAR_ARG_LEN (1)
+ 			     F77_CHAR_ARG_LEN (1)
+ 			     F77_CHAR_ARG_LEN (1)));
+-  
+-  if (f77_exception_encountered)
+-    (*current_liboctave_error_handler) ("unrecoverable error in zggsvd");
+ 
+   if (info < 0) {
+     (*current_liboctave_error_handler) ("zggsvd.f: argument %d illegal", -info);
+diff -r a9667cba7fd4 src/dbleGSVD.cc
+--- a/src/dbleGSVD.cc	Mon Jan 02 16:31:33 2017 -0500
++++ b/src/dbleGSVD.cc	Sun Jan 20 20:15:09 2019 +0100
+@@ -210,10 +210,7 @@
+                              F77_CHAR_ARG_LEN (1)
+                              F77_CHAR_ARG_LEN (1)
+                              F77_CHAR_ARG_LEN (1)));
+-  
+-  if (f77_exception_encountered)
+-    (*current_liboctave_error_handler) ("unrecoverable error in dggsvd");
+- 
++
+   if (info < 0) {
+     (*current_liboctave_error_handler) ("dggsvd.f: argument %d illegal", -info);
+   } else {
+diff -r a9667cba7fd4 src/pgmres.cc
+--- a/src/pgmres.cc	Mon Jan 02 16:31:33 2017 -0500
++++ b/src/pgmres.cc	Sun Jan 20 20:15:09 2019 +0100
+@@ -148,7 +148,7 @@
+                   prn = xnorm (res, 2.0);
+                   B(0) = prn;
+                   H = Matrix (1, 1, 0.0);
+-                  V = Matrix (b.length (), 1, 0.0);
++                  V = Matrix (b.numel (), 1, 0.0);
+                   for (octave_idx_type ii = 0; ii < V.rows (); ii++)
+                     V(ii,0) = res(ii) / prn;
+                 }
+@@ -206,7 +206,7 @@
+ {
+   ColumnVector res;
+   octave_value_list retval;
+-  retval = feval (fun, octave_value(b), 1);
++  retval = octave::feval (fun, ovl (b), 1);
+   res = retval(0).column_vector_value ();
+   if ( error_state)
+     {