Mercurial > octave-libgccjit

diff src/DLD-FUNCTIONS/besselj.cc @ 3810:f19f00339363

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-03-29 21:03:01 by jwe]
author jwe
date Thu, 29 Mar 2001 21:03:02 +0000
parents 58549b931ad5
children 6b96ce9f5743
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/besselj.cc	Wed Mar 28 14:03:17 2001 +0000
+++ b/src/DLD-FUNCTIONS/besselj.cc	Thu Mar 29 21:03:02 2001 +0000
@@ -332,17 +332,15 @@
 
   int nargin = args.length ();
 
-  int kind = 1;
-
   if (nargin == 2)
     {
       retval = do_bessel (BESSEL_H1, "besselh", args, nargout);
     }
   else if (nargin == 3 || nargin == 4)
     {
-      double d_kind = args(1).double_value ();
+      int kind = args(1).int_value ();
 
-      if (! error_state && D_NINT (d_kind) == d_kind)
+      if (! error_state)
 	{
 	  octave_value_list tmp_args;