random.tcc (poisson_distribution<>::operator()): Avoid potential warnings when…

random.tcc (poisson_distribution<>::operator()): Avoid potential warnings when _IntType is unsigned.

2006-09-08  Paolo Carlini  <pcarlini@suse.de>

	* include/tr1/random.tcc (poisson_distribution<>::operator()):
	Avoid potential warnings when _IntType is unsigned.

From-SVN: r116779

libstdc++-v3/ChangeLog

+2006-09-08  Paolo Carlini  <pcarlini@suse.de>
+
+	* include/tr1/random.tcc (poisson_distribution<>::operator()):
+	Avoid potential warnings when _IntType is unsigned.
+
 2006-09-08  Benjamin Kosnik  <bkoz@redhat.com>
 
 	* include/debug/debug.h (_GLIBCXX_DEBUG_ONLY): New.

libstdc++-v3/include/tr1/random.tcc

@@ -906,7 +906,7 @@ _GLIBCXX_BEGIN_NAMESPACE(tr1)
 	else
 #endif
 	  {
-	    _IntType     __x = -1;
+	    _IntType     __x = 0;
 	    _RealType __prod = 1.0;
 
 	    do
@@ -916,7 +916,7 @@ _GLIBCXX_BEGIN_NAMESPACE(tr1)
 	      }
 	    while (__prod > _M_lm_thr);
 
-	    return __x;
+	    return __x - 1;
 	  }
       }