Subversion Repositories openrisc

/*
 * Javolution - Java(TM) Solution for Real-Time and Embedded Systems
 * Copyright (C) 2006 - Javolution (http://javolution.org/)
 * All rights reserved.
 * 
 * Permission to use, copy, modify, and distribute this software is
 * freely granted, provided that this notice is preserved.
 */
 
public final class PR31264 
{
  public static long fubar(double d, int n) 
  {
    long bits = Double.doubleToRawLongBits(d);
    int exp = ((int)(bits >> 52)) & 0x7FF;
    long m = bits & 0x000fffffffffffffL;
    if (exp == 0) 
      {
	if (m == 0) return 0L;
	return fubar(d * 18014398509481984L, n - 54); // 2^54 Exact.
      }
    return m;
  }
 
  public static void main(String[] argv)
  {
  }
}