2003-04-19 Jerry Quinn <jlquinn@optonline.net>

	* java/math/BigInteger.java (probablePrime): New.
	* java/math/BigDecimal.java (unscaledValue): New.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@65825 138bc75d-0d04-0410-961f-82ee72b054a4

3 files changed, 27 insertions, 0 deletions

diff --git a/libjava/ChangeLog b/libjava/ChangeLog
index d7d7bd30d35..ee610a8062e 100644
--- a/libjava/ChangeLog
+++ b/libjava/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-19  Jerry Quinn  <jlquinn@optonline.net>
+
+	* java/math/BigInteger.java (probablePrime): New.
+	* java/math/BigDecimal.java (unscaledValue): New.
+
 2003-04-19  Ranjit Mathew  <rmathew@hotmail.com>
 
 	* java/io/File.java (getAbsolutePath): On Windows, take care
diff --git a/libjava/java/math/BigDecimal.java b/libjava/java/math/BigDecimal.java
index a4a4a560e94..fc99cf1f7d2 100644
--- a/libjava/java/math/BigDecimal.java
+++ b/libjava/java/math/BigDecimal.java
@@ -431,6 +431,11 @@ public class BigDecimal extends Number implements Comparable
     return scale;
   }
   
+  public BigInteger unscaledValue()
+  {
+    return intVal;
+  }
+
   public BigDecimal abs () 
   {
     return new BigDecimal (intVal.abs (), scale);
diff --git a/libjava/java/math/BigInteger.java b/libjava/java/math/BigInteger.java
index 6f919f785cc..34ec5a4c425 100644
--- a/libjava/java/math/BigInteger.java
+++ b/libjava/java/math/BigInteger.java
@@ -223,6 +223,23 @@ public class BigInteger extends Number implements Comparable
       }
   }
 
+  /** 
+   *  Return a BigInteger that is bitLength bits long with a
+   *  probability < 2^-100 of being composite.
+   *
+   *  @param bitLength length in bits of resulting number
+   *  @param rnd random number generator to use
+   *  @throws ArithmeticException if bitLength < 2
+   *  @since 1.4
+   */
+  public static BigInteger probablePrime(int bitLength, Random rnd)
+  {
+    if (bitLength < 2)
+      throw new ArithmeticException();
+
+    return new BigInteger(bitLength, 100, rnd);
+  }
+
   /** Return a (possibly-shared) BigInteger with a given long value. */
   public static BigInteger valueOf(long val)
   {