workbench/libs/mathtrans/intern_spisodd.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <libraries/mathffp.h>
   7 #include <aros/libcall.h>
   8 #include <proto/mathffp.h>
   9 #include <proto/mathtrans.h>
  10 #include <proto/exec.h>
  11 #include <exec/types.h>
  12 #include "mathtrans_intern.h"
  13
  14 LONG intern_SPisodd(ULONG fnum)
  15 {
  16     char Exponent = ((fnum & FFPExponent_Mask)) - 0x41;
  17     ULONG Mask = (0x80000000 >> Exponent);
  18
  19     if ((fnum & Mask) != 0) return TRUE;
  20     else                    return FALSE;
  21 } /* intern_SPisodd  */