mirror of
https://github.com/deadw00d/AROS.git
synced 2025-12-06 13:11:35 +00:00
21 lines
521 B
C
21 lines
521 B
C
/*
|
|
Copyright (C) 1995-2003, The AROS Development Team. All rights reserved.
|
|
*/
|
|
|
|
#include <libraries/mathffp.h>
|
|
#include <aros/libcall.h>
|
|
#include <proto/mathffp.h>
|
|
#include <proto/mathtrans.h>
|
|
#include <proto/exec.h>
|
|
#include <exec/types.h>
|
|
#include "mathtrans_intern.h"
|
|
|
|
LONG intern_SPisodd(ULONG fnum)
|
|
{
|
|
char Exponent = ((fnum & FFPExponent_Mask)) - 0x41;
|
|
ULONG Mask = (0x80000000 >> Exponent);
|
|
|
|
if ((fnum & Mask) != 0) return TRUE;
|
|
else return FALSE;
|
|
} /* intern_SPisodd */
|