workbench/libs/mathieeesingtrans/intern_ieeespisodd.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <libraries/mathieeesp.h>
   7 #include <aros/libcall.h>
   8 #include <proto/mathieeesingbas.h>
   9 #include <proto/mathieeesingtrans.h>
  10 #include <proto/exec.h>
  11 #include <exec/types.h>
  12 #include "mathieeesingtrans_intern.h"
  13
  14 LONG intern_IEEESPisodd(LONG fnum)
  15 {
  16     LONG Exponent = ((fnum & IEEESPExponent_Mask) >> 23) - 0x7f;
  17     LONG Mask = (0x00800000 >> Exponent);
  18
  19     if ((fnum & Mask) != 0) return TRUE;
  20     else                    return FALSE;
  21 } /* intern_IEEESPisodd  */