diff options
Diffstat (limited to 'math/octave-forge-specfun/files/patch-ellipj.cc')
| -rw-r--r-- | math/octave-forge-specfun/files/patch-ellipj.cc | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/math/octave-forge-specfun/files/patch-ellipj.cc b/math/octave-forge-specfun/files/patch-ellipj.cc new file mode 100644 index 000000000000..7e90c22ee7f3 --- /dev/null +++ b/math/octave-forge-specfun/files/patch-ellipj.cc @@ -0,0 +1,29 @@ +--- ellipj.cc.orig 2021-02-21 22:11:36 UTC ++++ ellipj.cc +@@ -190,7 +190,7 @@ return @code{NaN}.\n\ + + if (u_arg.is_scalar_type ()) { /* u scalar */ + /*{{{*/ +- if (u_arg.is_real_type ()) { // u real ++ if (u_arg.isreal ()) { // u real + double u = args(0).double_value (); + + if (! error_state) { +@@ -265,7 +265,7 @@ return @code{NaN}.\n\ + int nc = m.cols (); + Matrix err (nr, nc); + +- if (u_arg.is_real_type ()) { ++ if (u_arg.isreal ()) { + double u = u_arg.double_value (); + Matrix sn (nr, nc), cn (nr, nc), dn (nr, nc); + if (! error_state) { +@@ -296,7 +296,7 @@ return @code{NaN}.\n\ + /*}}}*/ + } else { // u is matrix (m is matrix) + /*{{{*/ +- if (u_arg.is_real_type ()) { // u real matrix ++ if (u_arg.isreal ()) { // u real matrix + + Matrix u = u_arg.matrix_value (); + if (! error_state) { |