# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1266572667 -3600
# Node ID 21dd58bd683ca94a81391b0614cf1ab081128e81
# Parent  7c97da90fc8fe5b755162001c753f7ee3e6b0fb4
fix unsafe conversion in find

diff -r 7c97da90fc8f -r 21dd58bd683c src/ChangeLog
--- a/src/ChangeLog	Fri Feb 19 07:06:36 2010 +0100
+++ b/src/ChangeLog	Fri Feb 19 10:44:27 2010 +0100
@@ -1,3 +1,8 @@
+2010-02-19  Jaroslav Hajek  <highegg@gmail.com>
+
+	* DLD-FUNCTIONS/find.cc (Ffind): Avoid unsafe conversion from Inf to
+	integer.
+
 2010-02-18  Jaroslav Hajek  <highegg@gmail.com>
 
 	* syscalls.cc (mk_stat_result): New helper function.
diff -r 7c97da90fc8f -r 21dd58bd683c src/DLD-FUNCTIONS/find.cc
--- a/src/DLD-FUNCTIONS/find.cc	Fri Feb 19 07:06:36 2010 +0100
+++ b/src/DLD-FUNCTIONS/find.cc	Fri Feb 19 10:44:27 2010 +0100
@@ -440,12 +440,12 @@
     {
       double val = args(1).scalar_value ();
 
-      if (error_state || (! xisinf (val) && (val < 0 || val != xround (val))))
+      if (error_state || (val < 0 || (! xisinf (val) && val != xround (val))))
         {
           error ("find: expecting second argument to be a nonnegative integer");
           return retval;
         }
-      else
+      else if (! xisinf (val))
         n_to_find = val;
     }