workbench/libs/mathieeedoubtrans/intern_ieeedpisodd.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <aros/libcall.h>
  10 #include <proto/mathieeedoubbas.h>
  11 #include <proto/mathieeedoubtrans.h>
  12 #include <proto/exec.h>
  13 #include <exec/types.h>
  14 #include "mathieeedoubtrans_intern.h"
  15
  16
  17 LONG intern_IEEEDPisodd(QUAD fnum)
  18 {
  19   LONG Exponent = ((Get_High32of64(fnum) & IEEEDPExponent_Mask_Hi) >> 20) - 0x3ff;
  20   QUAD Mask;
  21   Set_Value64C(Mask, 0x00100000, 0x0 );
  22   SHRU64(Mask, Mask, Exponent); /* Mask = Mask >> Exponent*/
  23
  24   AND64Q(fnum, Mask);
  25   if (is_neqC(fnum, 0x0, 0x0))
  26     return TRUE;
  27   else
  28     return FALSE;
  29 } /* intern_IEEEDPisodd  */