Changeset 11954

Timestamp:

05/26/09 18:34:23 (14 years ago)

Author:

ehuelsmann

Message:

Remove workaround for the fact that Math.hypot() was added in Java 1.5:
We require 1.5 and hence don't need to work around it.

File:

• trunk/abcl/src/org/armedbear/lisp/Complex.java (modified) (3 diffs)

trunk/abcl/src/org/armedbear/lisp/Complex.java

@@ -33 +33 @@
 
 package org.armedbear.lisp;
-
-import java.lang.reflect.Method;
 
 public final class Complex extends LispObject
@@ -303 +301 @@
   }
 
-  private static Method hypotMethod = null;
-  static { try {
-      hypotMethod = 
-          Class.forName("java.lang.Math")
-          .getMethod("hypot", new Class[] { Double.TYPE, Double.TYPE });
-  }
-  catch (Throwable t) { Debug.trace(t); }
-  }
-
   @Override
   public LispObject ABS() throws ConditionThrowable
@@ -319 +308 @@
     double real = DoubleFloat.coerceToFloat(realpart).value;
     double imag = DoubleFloat.coerceToFloat(imagpart).value;
-    try
-      {
-        if (hypotMethod != null)
-          {
-            Object[] args;
-            args = new Object[2];
-            args[0] = new Double(real);
-            args[1] = new Double(imag);
-            Double d = (Double) hypotMethod.invoke(null, args);
-            if (realpart instanceof DoubleFloat)
-              return new DoubleFloat(d.doubleValue());
-            else
-              return new SingleFloat((float)d.doubleValue());
-          }
-      }
-    catch (Throwable t)
-      {
-        Debug.trace(t);
-        // Fall through...
-      }
-    double result = Math.sqrt(real * real + imag * imag);
     if (realpart instanceof DoubleFloat)
-      return new DoubleFloat(result);
+      return new DoubleFloat(Math.hypot(real, imag));
     else
-      return new SingleFloat((float)result);
+      return new SingleFloat((float)Math.hypot(real, imag));
   }